晓兰兰网上有关“vb恶搞程序”话题很是火热，小编也是针对vb恶搞程序寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。
on error resume next
DO
msgbox "嗨！！！！",64,"^_^"
msgbox "嗨！我是黑客",64,"ψ(╰_╯)"
msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"
msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "
msgbox "我来帮你杀毒~~~~",64,"^_^"
msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"
msgbox "还是；来捣乱吧",64,"^_^"
msgbox "首先接我的第一招~~",64,"V.S"
intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")
If intAnswer = vbYes Then
YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")
msgbox "抱歉 你不能出招...",64,"V.S"
If YONG = vbNo Then
msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"
msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"
DIM i
While(1)
For i=1 To 10
next
set WshShell=createObject("Wscript.Shell")
WshShell.SendKeys"{CAPSLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{SCROllLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{NUMLOCK}"
WSCRIPT.SLEEP 100
Wend
Else
End If
Else
set TUYONG=wscript.createobject("wscript.shell")
TUYONG.run ("shutdown -r -t 99999 -c &小样你输啦~~~哈哈，关机了！！！！&"),,true
End If
LOOP
创建文本文档把后缀改成 .vbe 就好了
这是最贱的
关于“vb恶搞程序”这个话题的介绍，今天小编就给大家分享完了，如果对你有所帮助请保持对本站的关注！
评论列表（3条）
我是奥特号的签约作者“晓兰兰”
本文概览：网上有关“vb恶搞程序”话题很是火热，小编也是针对vb恶搞程序寻找了一些与之相关的一些信息进行分析，如果能碰巧解决你现在面临的问题，希望能够帮助到您。on error resu...
文章不错《vb恶搞程序》内容很有帮助