你是猪,,,vb经典代码

前端之家收集整理的这篇文章主要介绍了你是猪,,,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 "好哇,天堂有路你不走,关机无门你偏来,关机吧~~~",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相关文章