你是猪，，，vb经典代码
发布时间：2020-12-17 07:45:22 所属栏目：百科 来源：网络整理
导读：Set objWSHShell = wscript.CreateObject("wscript.shell") ' Dim uMaMe Do While (strReturn "我是猪") '循环语句，直到变量 strReturn 等于 “我是猪” 时退出循环。 strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ","好好考虑吧……"
|
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 "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~",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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |