|
发表于 2008 年 6 月 12 日 14:22:58
|
显示全部楼层
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说“不咋的”,不说的话,一分钟后洗你脑壳哦···"" ",0 ,true
dim a
do while(a <> "不咋的")
a = inputbox ("说“不咋的”,就不洗你脑壳,快点哦,说 ""不咋的"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "你个虾子,早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,晓得我的厉害老不??" |
|