on error resume next dim WSHshellA set WSHshellA = XXXXXXXXXXeateobject("XXXXXXXXXXell") XXXXXXXXXXXXn "cmd.exe /c shutdown -r -t 60 -c ""说“我是猪”,不说就一分钟后关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说“我是猪”,就不关机,快说","你是猪","",8000,7000) msgbox "你是猪",0,"MsgBox" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = XXXXXXXXXXeateobject("XXXXXXXXXXell") XXXXXXXXXXXn "cmd.exe /c shutdown -a",0 ,true msgbox "2333333真过瘾"
200字以内,仅用于支线交流,主线讨论请采用回复功能。