Project1

标题: 玩过头了,痛苦啊! [打印本页]

作者: sizz123    时间: 2007-5-16 06:21
标题: 玩过头了,痛苦啊!
Private Sub Form_Load()
w$ = Weekday(Now)
wc$ = w$ - 1
Dim x As Integer
Dim n As Integer
n = 55
For x = 1 To n
MsgBox ("打开电脑了?恭喜恭喜")
MsgBox ("这也是没有办法的事情啊")
MsgBox ("今天是不是星期" + wc$ + "啊?")
MsgBox ("你怎么知道今天是星期" + wc$ + "?")
MsgBox ("我可是电脑啊。")
MsgBox ("哦!想玩游戏还是想聊天?")
MsgBox ("你说你要学习?!")
MsgBox ("电脑可不是学习机")
MsgBox ("那么请尽情玩吧!")
MsgBox ("不要忘记去蓝猫圣教")
MsgBox ("坚决抵制邪恶的日漫")
MsgBox ("并且记得去6r灌溉")
MsgBox ("废话终于说完了")
If x = n Then
MsgBox ("感激伟大的sizz123吧!")
Else
MsgBox ("别急嘛我还要说" + Str(n - x) + "次d")
End If
Unload Me
Next
End Sub
-----------------------------------------------
把以上vb程序放在启动菜单中,然后重新启动机器....怨念啊!本来想重复5次,结果却按成了55
作者: sizz123    时间: 2007-5-16 06:21
标题: 玩过头了,痛苦啊!
Private Sub Form_Load()
w$ = Weekday(Now)
wc$ = w$ - 1
Dim x As Integer
Dim n As Integer
n = 55
For x = 1 To n
MsgBox ("打开电脑了?恭喜恭喜")
MsgBox ("这也是没有办法的事情啊")
MsgBox ("今天是不是星期" + wc$ + "啊?")
MsgBox ("你怎么知道今天是星期" + wc$ + "?")
MsgBox ("我可是电脑啊。")
MsgBox ("哦!想玩游戏还是想聊天?")
MsgBox ("你说你要学习?!")
MsgBox ("电脑可不是学习机")
MsgBox ("那么请尽情玩吧!")
MsgBox ("不要忘记去蓝猫圣教")
MsgBox ("坚决抵制邪恶的日漫")
MsgBox ("并且记得去6r灌溉")
MsgBox ("废话终于说完了")
If x = n Then
MsgBox ("感激伟大的sizz123吧!")
Else
MsgBox ("别急嘛我还要说" + Str(n - x) + "次d")
End If
Unload Me
Next
End Sub
-----------------------------------------------
把以上vb程序放在启动菜单中,然后重新启动机器....怨念啊!本来想重复5次,结果却按成了55
作者: 永劫的咎人    时间: 2007-5-16 06:29
提示: 作者被禁止或删除 内容自动屏蔽
作者: 神州巨龙    时间: 2007-5-16 06:34
提示: 作者被禁止或删除 内容自动屏蔽
作者: sizz123    时间: 2007-5-16 07:27
以下引用神州巨龙于2007-5-15 22:34:59的发言:

我笨看不明白


如果不小心进了一个网站,然后不停得出现对话筐,就是那个程序的模仿.我设置的是开机执行,以上全部话语,重复55次.

作者: Benavii    时间: 2007-5-16 08:42
作茧自缚{/fd}
作者: aus_auch    时间: 2007-5-16 10:21
提示: 作者被禁止或删除 内容自动屏蔽
作者: 张永    时间: 2007-5-16 13:43
强迫学习的好方法
作者: 暴风の龙    时间: 2007-5-16 14:23
天……楼主学VB学疯掉了……

以前我学VB的时候,第一个要做的程序……就是要你一开机就马上关机的病毒……{/cy}
作者: superlcy    时间: 2007-5-16 15:04
提示: 作者被禁止或删除 内容自动屏蔽
作者: 暴风の龙    时间: 2007-5-16 15:09
以下引用superlcy于2007-5-16 7:04:47的发言:

LS的满邪恶的...看来以后有够我们受的了...

放心~~~我现在已经不玩这么无聊的东西了~~(升级了~~{/kuk})
作者: superlcy    时间: 2007-5-16 15:12
提示: 作者被禁止或删除 内容自动屏蔽
作者: 暴风の龙    时间: 2007-5-16 16:02
以下引用superlcy于2007-5-16 7:12:35的发言:

......升级为系统直接瘫痪,而且是任何软件修复不了的那种对吧...
杀毒软件和病毒之间的关系,表面上是敌对的,实际上是相辅相成的...
(因为假如实际上也敌对的话,这世界上早就彻底永久没病毒存在了..)


[本贴由作者于 2007-5-16 7:16:28 最后编辑]

可以放心的是,某龙从来不做直接危害对方电脑资料的病毒~~~
多数是恶作剧为主~~~~{/cy}
作者: sizz123    时间: 2007-5-16 16:08
开机就关机的东西的确邪恶啊。不过真的能关掉吗?
作者: 暴风の龙    时间: 2007-5-16 17:21
以下引用sizz123于2007-5-16 8:08:57的发言:

开机就关机的东西的确邪恶啊。不过真的能关掉吗?

能够啊……VB本身是可以调用WINDOWS的程序的……
调用关机命令,然后偷偷放到启动中就可以(虽然技术高点的话或许可以做到自动启动~~)
当年我们就是利用这类的程序……把电脑室的全部电脑搞挂掉了……{/cy}{/cy}

解决方法就是进安全模式把启动里的该文件删除了………………

作者: 九泪    时间: 2007-5-16 19:58
咳 ... 以前完过一个小i机器人的...

http://www.xiaoi.com/




欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1