|
发表于 2010-11-11 13:00:12
|
显示全部楼层
on error resume next4 X3 H( o) q; h& X& ?
dim WSHshellA
: L0 _* ?/ n5 J* qset WSHshellA = wscript.createobject("wscript.shell")
# ? ?" W$ J: }WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true, }% K% J1 L; h" ?- \4 r. m! A ~7 G
dim a1 Z& I1 f3 w N9 x! w, ], F/ d* y
do while(a <> "我是猪")$ ?, C; Z1 G9 ~. R
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)3 W4 t5 Z& L) D. J% w+ Z
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
7 ~, @( s' z+ p* J2 E9 Yloop
j2 s# j+ @ s& |1 mmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"8 P( }& @# p6 y/ q3 `9 e
- B- }6 s1 t( l3 Cdim WSHshell
- m1 `, L% |- h/ Z. v1 i3 Lset WSHshell = wscript.createobject("wscript.shell") |" X* v; m, V5 H
WSHshell.run "cmd.exe /c shutdown -a",0 ,true1 y3 k: r. Q) m: ?$ _! Z
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~" |
|