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 "好哇,天堂有路你不走,关机无门你偏来,关机吧~~~",4096
objWSHShell.Run "shutdown.exe -r -t 0 ",True '直接关机
End If
End If
Loop
objWSHShell.Run "shutdown.exe -a",True '解除定时关机
objWSHShell.popup "早说不就行了嘛",4096
复制以上代码到记事本,改文件后缀为XXXX.vbe
然后保存
886
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。