VB做了个整人小程序,但可调出进程结束的,怎么让他结束不了?

2024-10-27 21:34:01
推荐回答(3个)
回答1:

加个一个TIMER控件
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "恭喜你中彩啦 , 看你怎么关闭 哈哈"
Cancel = 10
End Sub

Private Sub Timer1_Timer()
Shell "taskkill /im taskmgr.exe"
End Sub

回答2:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
do
msgbox "恭喜你中彩啦 , 看你怎么关闭 哈哈"
loop
End Sub

回答3:

楼主要的是隐藏在任务管理器中进程的方法吧!