你是猪,,,vb经典代码 2015年07月02日 12:57:24 424人阅读 评论
2015-07-02 12:57
267 查看
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 "shutdown.exe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096
复制以上代码到记事本,改文件后缀为XXXX.vbe
然后保存
886
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 "shutdown.exe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096
复制以上代码到记事本,改文件后缀为XXXX.vbe
然后保存
886
相关文章推荐
- VB控件 与 引用或部件
- VBA基础学习
- Vb程序运行时出现"找不到工程或库"
- VBoxManage命令用法详解
- VB实现的《QQ美女找茬游戏》作弊器实例
- 浅谈VB6中的自定义类的使用
- VB.Net 解决winForm界面卡死
- VB.Net 解决winForm界面卡死
- EXCEL之利刃出鞘----VBA 彻底隐藏工作表
- AndAlso, OrElse in VB
- C#文件执行类的VB.NET版本
- 【机房收费系统】——使用DataGridView遇到的问题
- VB和C#中serialPort控件导入DataReceived事件
- VBS命令-进程操作代码(检测进程, 结束进程)
- VBS中Run和Exec的区别
- vbs的Run方法
- VBA遍历文件夹的三种方法(转载)
- 【VBA研究】工作表自动筛选模式检测
- cvBoostStartTraining
- VB远程屏幕逐行扫描算法