VB软件做个整人蓝屏代码，我上网找过，但是最后那里错了，但是我又不知道怎么改，求大神快快帮帮我，我

整人VB小程序：蓝屏死机

本程序启动后，延时指定的时间（默认10秒）后出现蓝屏，模拟蓝屏死机情形。此时，用户无法使用开始菜单、任务管理器，无法 *** 作任何程序，只能干着急。

1 秒钟后，在蓝屏的背景上显示：Your Windows is died   5 秒钟后，显示：Windows 警告 内存出现严重错误   10 秒钟后，显示并计数：警告 硬盘错误，无法正常运行 Windows，Windows 正在试图修复所有错误，请等待 100 秒……   25 秒钟后，显示：警告 由于你使用了盗版 *** 作系统 微软惩罚你：定期死机

此后，这 4 条信息交替显示   结束本程序的方式有两个：

1用鼠标单击屏幕左上角，连续 5 次（左上角 20 个像素范围的区域，大约 1 平方厘米的大小）

2到程序设定的时间后自动结束，默认 120 秒。   下面是程序运行截图

''

以下是窗体代码，在

VB60

上调试通过：

'

一、在窗体添加一个定时器控件：

Timer1

，不必设置任何属性，

采用默认属性即可

'

二、在属性窗口将窗体的

BorderStyle

属性设置为

0

Dim ctCi As Long, ctT As Long, ctExitT As Long, ctStr() As String,

ctStrS As Long, ctExit As Boolean

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd

As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y

As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

As Long

Dim ctShowT As Long

Private Sub Form_Load()

ctShowT = 10

'

运行程序后，

延时显示蓝屏的时间

（秒）

，

可根据自己的喜好设定

MeBackColor = RGB(0, 0, 255): MeCaption = "

蓝屏死机

"

MeAutoRedraw = True: MeWindowState = 2

MeFontSize = 21: MeForeColor = &HFFFFFF

Timer1Interval = 50: Timer1Enabled = True

ReDim ctStr(0 To 0)

End Sub

Private Sub Form_Click()

If ctExit Then Unload Me

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer,

X As Single, Y As Single)

'

单击左上角

20

个像素范围

Dim S1 As Single

S1 = MeScaleX(20, 3, MeScaleMode)

If X > S1 Or Y > S1 Then ctCi = 0: Exit Sub

ctCi = ctCi + 1

If ctCi > 4 Then Call ExitInf

End Sub

Private Sub ExitInf()

ctExitT = 120

'

程序自动退出的时间（秒），可根据自己的

喜好设定

MeHide

说的是这个吗？                                                                                                                                                                                                                                                                                                                                                                                                         那个程序会让电脑1分钟内关机，并且显示“请输入＇我是弱智＇”，他才会停止关机，并d出一个框：早这样说不就好了吗。  如果需要这个  你反问我就好了。                                        如果你只需要源码

。。记得 反问。。

VBS文件手机是不能打开的，但可以将它嵌入到网页文件上，有的手机浏览器是支持HTML文件的，但是VBS代码中的大部分在手机上都不能用，如调用外部程序什么的，因为那是Windows的代码，不过手机可以支持msgbox、inputbox等函数，嵌到网页中的方法是新建一个文本文档，扩展名改为html，在里面输入<script language="vbscript"></script>，输入vbs代码时在两个括号中间输入，不过可能和vbs文件不太一样，如

<script language="vbscript">msgbox "哈哈！"</script>

不过手机还是推荐用JS脚本，举个例，d出对话框

<script language="vbscript">alert("哈哈！");</script>

如果你有能力你可以直接把做出的html文件上传到一个域名上，然后在手机直接输入网址打开，或者文件传到手机上打开

测试你的手机浏览器是否支持JS插件：在浏览器地址栏上输入

javascript:alert("哈哈！")

然后回车，如果能d出对话框说明支持JS

VBS的方法：输入

vbscript:msgbox ("哈哈！")

回车，同上

望采纳

谁都喜欢整蛊别人，但是如果不知道该怎么整蛊，会容易出问题的，怎么整蛊最搞笑？

不要在严肃场合整蛊，容易引起公愤，那样就达不到搞笑效果了。

不要找地位比较高的人整蛊，他们不会配合你的。

掌握整蛊对象的性格，才能知道用什么方式整蛊能被对方接受。

适当使用道具，比如假老鼠玩具、毛毛虫玩具等等，那些胆小的人惊恐的表情会让周围的人哄堂大笑。

多看看整蛊达人的例子，多向他们学习搞笑本领，时间长了自然就知道怎么整蛊了。

1

登陆她的qq。

既然被她x，还是在qq上的，就说明可以知道对方的qq号，然后自己的可以在自己这边登上qq，输入她的qq号，然后随便输几个密码，瞎输入就行，输入上三十多次，这个qq在今天就禁止登陆了，对方别想今天登上去了。

2

复制他。

把自己头像改成和他一样的。然后他骂自己什么话，就复制一下，然后粘贴出去原封不动的还给他，就把自己当做复读机一样，可以把自己的qq昵称改成复制，这样来恶搞对

3

举报他。

如果他的言论过于不堪入耳，言辞让自己无法接受，就举报对方的qq号，可以注册几个小号一起举报，或者是找一些朋友一起举报，举报对方人身攻击自己，举报次数多了，官方会限制对方登陆qq的。

4

刷屏刷表情。

对方骂自己，自己就给他发各种各样的表情包，把自己收藏了许多的表情包在半夜的时候或者猜测对方不在的时候狂刷表情，造成刷屏现象，这样一打开qq可能就死机了，来恶搞对方qq。

5

把qq昵称改掉。

如果是在群里被骂的话，那么他肯定会在群里艾特自己，这时候就把自己的昵称改成祖宗，这样他一艾特自己就会显示艾特祖宗就好像叫自己祖宗一样，每说一句就得叫自己一下，这样来恶搞对方。

6

安装恶搞软件。

可以从百度上面下载一些恶搞软件安装一下，然后发送给对方的qq上，这样对方接收了之后就开始恶搞的步骤了，好多那种恶搞软件，选择轻微的程序恶搞即可，适当惩罚下对方就行了。

1、首先在打开的手机桌面中，打开微信软件，如下图所示。

2、然后在打开的微信主页面中，打开发现，如下图所示。

3、接着在发现页面，进入小程序，如下图所示。

4、然后在小程序中，选择我的小程序。在我的小程序页面，点击右上角的编辑。

5、最后点击右侧的减号，可以关闭删除小程序，如下图所示就完成了。

以上就是关于VB软件做个整人蓝屏代码，我上网找过，但是最后那里错了，但是我又不知道怎么改，求大神快快帮帮我，我全部的内容，包括:VB软件做个整人蓝屏代码，我上网找过，但是最后那里错了，但是我又不知道怎么改，求大神快快帮帮我，我、vbs整人小程序代码.手机可以用吗、如何恶搞别人等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！