程序

Set objWSHShell = wscript.CreateObject("wscript.shell") ' objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True dim strReturn do While (strReturn <> "我是猪") strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000) If strReturn = "你才是" Then If uMaMe <> "yes" Then uMaMe = "yes" objWSHShell.popup "敢骂我，你再骂一次试看看！",1,"",4096 Else objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096 objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机 End If End If Loop objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机 objWSHShell.popup "早说不就行了嘛",1,"",4096