无限弹出窗口程序

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:03:39
曾经有一网友给我发啊一个小程序，就是你点它然后就弹出一个新的对话框，好玩的很，就是不可关闭，无限循环的出现不同的内容，求这样的源代码，谢谢

可以用VB编写！
使用1个时间控件即可！
Private Sub Form_Load()
Timer1.Enabled = True '这里是起用时间控件
Timer1.Interval = 100 '这里设置控件每多少时间运行一次（这里是每1秒弹一次窗口出来，无限弹
End Sub

Private Sub Timer1_Timer()
magbox "这里是弹出内容" '这里是弹出的内容
End Sub

<script language=javascript>
function alertforever()
{
while(true)
{
int i=0;
i++;
alert(显示'i')
}
}
</scritpt>
<input type=button value="***" OnClick=alertforever()>

保存用

<script language=javascript>
function alertforever()
{
while(true)
{
int i=0;
i++;
alert(显示'i')
}
}
</scritpt>
<input type=button value="点了要想后果哦" OnClick=alertforever()>