无聊学了一点简单的VB，编了一个简单的程序。

studentilove · 发表于 2010-10-1 09:41:08

msgbox("小小的测试一下你的人品")
msgbox("Made by InSiDe")
msgbox("Made In 云阳")
if msgbox("你是好人吗？",vbyesno)=vbyes then
msgbox("太不要脸了。")
msgbox("惩罚一下！")
else
msgbox("你是坏人嗦？")
msgbox("那还是得惩罚一下！")
end if
msgbox("正在释放木马")
msgbox("释放中")
msgbox(" 10%    ")
msgbox(" 30%    ")
msgbox(" 50%    ")
msgbox(" 70%    ")
msgbox(" 90%    ")
msgbox(" 100%    ")
msgbox("你的电脑已经中了木马")
const hw="你的电脑已经中了木马"
msgbox(hw)
msgbox(hw)
msgbox("点击确定无法关闭！")
msgbox("点击确定无法关闭！")
msgbox("点击确定无法关闭！")
dim  a
a=InputBox("输入“我是傻逼”")
if a="我是傻逼" then
msgbox("真是傻逼")
else
msgbox("系统即将崩溃！")
set R = Createobject("Wscript.shell")
R.run "shutdown -r -t 10"
end if

感觉VB挺好玩的。整点同学。
这个代码是重启的。。想试试的可以试试。。

studentilove · 发表于 2010-10-1 09:41:57

准备加上
do
loop的。。但是太邪恶了。

Darkly-潇 · 发表于 2010-10-1 11:25:48

话说我以前也编了个和楼主差不多的
只不过不是整人的.

lrj1231231 · 发表于 2010-10-1 12:39:38

只给反应十秒有点少啊。。。给个半分钟吧，。。。
shutdown -a输入需要点时间。。。。

纽约之眼 · 发表于 2010-10-1 15:09:59

如果最后时间改长一点
的确可以清除不过那样就不整人了
建议改为shutdown -r -t

掉毛天使 · 发表于 2010-10-1 20:25:42

可以在玩之前先新建一个.bat。。。。shutdown -a

纽约之眼 · 发表于 2010-10-2 15:51:27

话说你在不知道内容前你会搞个.BAT？

掉毛天使 · 发表于 2010-10-2 16:12:47

内容shutdown -a。。。
在点完STU那个以后马上把这个打开。。。

冬の~☆恋々 · 发表于 2010-10-2 16:29:48

其实这样是作弊的。。咱要靠手速。。

掉毛天使 · 发表于 2010-10-2 17:30:53

也可以在CMD里先输好，点完之后再回车。。。

纽约之眼 · 发表于 2010-10-2 19:09:17

这样STU的整已经被全面破解了

studentilove · 发表于 2010-10-2 22:05:10

那个10是倒计时10秒的。
开始设置的1000，结果要了16分钟。
只有在进程里把Wscript.exe结束了。

掉毛天使 · 发表于 2010-10-2 22:30:08

10秒中完船够嬲～

1285051389 · 发表于 2010-10-5 09:19:55

楼主真有耐心呀！

掉毛天使 · 发表于 2010-10-5 11:16:28

对了。。。。。VB是什么？

账号		自动登录	找回密码
密码			立即注册