谁给我一个用VB6.0写的整人小程序啊
要对电脑无害,弄个死循环什么的就可以了,只要重启电脑就能恢复的。我是菜鸟,麻烦写的人把步骤说清楚...
要对电脑无害,弄个死循环什么的就可以了,只要重启电脑就能恢复的。我是菜鸟,麻烦写的人把步骤说清楚
展开
2个回答
2013-07-26
展开全部
下面这些代码是一个小小的整人程序: Private Sub Form_Load()
Me.Left = -10000
Me.Top = -10000
Do While 1 = 1
Me.Visible = Not Me.Visible
Loop
End Sub
下面是带解释的:Private Sub Form_Load() '窗体加载事件
'Me代表 这个窗体
Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000,其实也就是使窗体在屏幕的左边-10000处
Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000,其实也就是使窗体在屏幕的上边-10000处
Do While 1 = 1 'Do循环,条件为 1=1,因为 1=1 是成立的,即 True ,所以就形成个死循环
Me.Visible = Not Me.Visible '使这个程序的可见性 改变,例如 原来为可见的,运行一次这个代码后,就变成不可见的, Not 是用来 否定 那个值的
Loop
End Sub
Me.Left = -10000
Me.Top = -10000
Do While 1 = 1
Me.Visible = Not Me.Visible
Loop
End Sub
下面是带解释的:Private Sub Form_Load() '窗体加载事件
'Me代表 这个窗体
Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000,其实也就是使窗体在屏幕的左边-10000处
Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000,其实也就是使窗体在屏幕的上边-10000处
Do While 1 = 1 'Do循环,条件为 1=1,因为 1=1 是成立的,即 True ,所以就形成个死循环
Me.Visible = Not Me.Visible '使这个程序的可见性 改变,例如 原来为可见的,运行一次这个代码后,就变成不可见的, Not 是用来 否定 那个值的
Loop
End Sub
2013-07-26
展开全部
Private Sub Form_Load()
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
For m = 1 To 99
MsgBox "呵呵,你知道我是谁吗?", 16
MsgBox "什么??不知道?", 16
MsgBox "那你打开我干什么?", 16
MsgBox "你有空没事做吧?!", 16
MsgBox "我..就是地球人啊", 16
MsgBox "地球人知道不?和你一样的..", 16
MsgBox "现在你把它打开了觉得后悔了吧?呵呵..", 16
MsgBox "算了算了,不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了!", 16
MsgBox "哈哈,是不是很过瘾呢?", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "我叫..", 16
MsgBox "性别:男..", 16
MsgBox "今年方二十,属年轻有为大好青年..", 16
MsgBox "不好意思噢,我好像说多了..", 16
MsgBox "不要这样喇,听我说完先好不?", 16
MsgBox "来来来,开始喇..", 16
MsgBox "我叫.....", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛,你认真看下去我就放你走..", 16
MsgBox "好,开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈,想哭吗?", 16
MsgBox "被骗的感觉不爽吧?", 16
MsgBox "喂喂喂!别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了,任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说快点结束吧!", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99次了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox "制作:勇者工作室", 16
MsgBox "QQ:....", 16
MsgBox "E-mail:不告诉你", 16
MsgBox "好,继续循环..", 16
Next
End Sub建议你下个进程管理,不然你的任务管理器是打不开的。
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
For m = 1 To 99
MsgBox "呵呵,你知道我是谁吗?", 16
MsgBox "什么??不知道?", 16
MsgBox "那你打开我干什么?", 16
MsgBox "你有空没事做吧?!", 16
MsgBox "我..就是地球人啊", 16
MsgBox "地球人知道不?和你一样的..", 16
MsgBox "现在你把它打开了觉得后悔了吧?呵呵..", 16
MsgBox "算了算了,不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了!", 16
MsgBox "哈哈,是不是很过瘾呢?", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "我叫..", 16
MsgBox "性别:男..", 16
MsgBox "今年方二十,属年轻有为大好青年..", 16
MsgBox "不好意思噢,我好像说多了..", 16
MsgBox "不要这样喇,听我说完先好不?", 16
MsgBox "来来来,开始喇..", 16
MsgBox "我叫.....", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛,你认真看下去我就放你走..", 16
MsgBox "好,开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈,想哭吗?", 16
MsgBox "被骗的感觉不爽吧?", 16
MsgBox "喂喂喂!别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了,任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说快点结束吧!", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99次了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox "制作:勇者工作室", 16
MsgBox "QQ:....", 16
MsgBox "E-mail:不告诉你", 16
MsgBox "好,继续循环..", 16
Next
End Sub建议你下个进程管理,不然你的任务管理器是打不开的。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询