此程序没有什么技术含量,只是拿来逗逗同学们玩!放入记事本保存成vbe格式就ok!当然你可以改成你想说的!
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说 我是猪八戒,不说我就2分钟关你机.哈哈!"" ",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")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c "
msgbox chr(13) + chr(13) + chr(13) + "自己都说自己是猪八戒了,唉。你真可爱。居然承认了。"
阅读(1043) | 评论(1) | 转发(0) |