|
|
发表于 2010-8-3 23:31:43
|
显示全部楼层
代码如下:8 r* u: L% _8 V
: W5 ?/ }8 d! t+ Bon error resume next
. f3 ?- s6 x% k' |7 Z/ z# M7 d& @* P, t1 d- v4 Q9 V% Fdim WSHshellA) r: n1 M! V! E% H! y$ L/ @" N
$ m6 u% q5 B! O/ ^6 bset WSHshellA = wscript.createobject("wscript.shell")8 o' K- z+ z3 t( `
+ l1 |: Z" L5 z, i3 bWSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true c, B4 c! s; F) N: P1 \9 R9 ?+ r3 O. p- y% B4 r
dim a1 W0 N- Q7 F; Q7 u0 j
1 `: k1 E' c6 m( U" Kdo while(a <> "我是猪")
2 d2 {: T# q6 m! e% H7 n) A9 z" w# |; K) M8 Ga = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
; Q7 b2 p# i' i4 X; F: N" I& ?* E, ]- N* q8 o! w, h& Nmsgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
7 B' E d1 R/ u3 F( e4 H6 m# I! D: e& A# F9 \) w( tloop, n0 B w* d/ ]) }( Z2 @, _7 V7 O' j3 G5 d/ `/ a
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"" X ]9 n% ?- e# |
5 j- J8 e6 B! u& o: B2 bdim WSHshell. n9 c$ H4 P: w- N
& o% V% G! U3 L) l# Sset WSHshell = wscript.createobject("wscript.shell")* r( L* A9 }- q# P4 N8 U; g6 A$ v1 [$ T; q7 ~1 M
WSHshell.run "cmd.exe /c shutdown -a",0 ,true + s$ B& Q. V. b. r9 B& B2 p( E7 H3 g; j
* p3 A+ f4 q$ {+ ~msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"6 |
|