Question

谁有，不说我是猪就关机的软件

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) + "承认就好了嘛"
我不懂也，最好谁有做好的，加我Q 发给我

Answer 1

这个很简单，用汇编，VB,C,VC，VC++调用计算机中的shutdown 函数就行，如果要更让人讨厌点，就写入注册表，开机启动，并且调成全屏独占运行