你是猪，，，vb经典代码
Set objWSHShell = wscript.CreateObject("wscript.shell") '
Dim uMaMe
Do While (strReturn <> "我是猪") '循环语句，直到变量 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 &# -r -t 0 ", 0, True '直接关机
End If
End If
Loop
objWSHShell.Run &# -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096
复制以上代码到记事本，改文件后缀为XXXX.vbe
然后保存
886
