Question

求一个整人的QQ程序，你不说自己是猪就关机的那个。

有的+QQ670328480给我发过来

Answer 1

先创建个文本在复制下列粘贴，保存好后把文本后缀改成vbs，里面的文字可以自由修改
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) + "哈哈哈哈，一切皆有可能~"

Answer 2

qq449260584
= =我给你发