你是猪，，，vb经典代码

概述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

总结

以上是内存溢出为你收集整理的你是猪，，，vb经典代码全部内容，希望文章能够帮你解决你是猪，，，vb经典代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。