Question

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

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

Answer 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

Answer 2

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

Answer 3

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