VB编写的无限弹窗软件保存下来怎么不是无限弹？

你好,很高兴为您解答。 加一个Timer，其中属性Interval值设为1，然后双击Timer建立如下代码：

Private Sub Timer1_Timer()

MsgBox "你的电脑已经中病毒了，弹窗无限进行中……", vbCritical, "哈哈"

End Sub

如果更邪恶一点的话：

方法一：可以再把Form的属性Visible值设为False（找不到运行窗口）。    

方法二：把Form的BorderStyle属性设为：None，BackColor设为任何一个你想要的颜色，启动方式WindowState设为Maximized。（窗口独占全屏，你也可以在背景上加一些其他东西）

方法三：（自己发挥吧）……



还有一个：

在Timer1里面加入语句：

Private Sub Timer1_Timer()

Dim frm As New Form1

frm。    Show

End Sub

这样的效果是不断生成Form1窗口，而且每生成一个窗口添加速度加快一倍，如果不想这样可以另行再建立一个窗口（如Form2），然后把第二行改为Dim frm As New Form2就行了。  窗口的内容可以自己补充，弄得像一个错误窗口就行了。  

。

加一个Timer，其中属性Interval值设为1，然后双击Timer建立如下代码：

Private Sub Timer1_Timer()

MsgBox "你的电脑已经中病毒了，弹窗无限进行中……", vbCritical, "哈哈"

End Sub

如果更邪恶一点的话：

方法一：可以再把Form的属性Visible值设为False（找不到运行窗口）。    

方法二：把Form的BorderStyle属性设为：None，BackColor设为任何一个你想要的颜色，启动方式WindowState设为Maximized。（窗口独占全屏，你也可以在背景上加一些其他东西）

方法三：（自己发挥吧）……



还有一个：

在Timer1里面加入语句：

Private Sub Timer1_Timer()

Dim frm As New Form1

frm。    Show

End Sub

这样的效果是不断生成Form1窗口，而且每生成一个窗口添加速度加快一倍，如果不想这样可以另行再建立一个窗口（如Form2），然后把第二行改为Dim frm As New Form2就行了。  窗口的内容可以自己补充，弄得像一个错误窗口就行了。  

。