怎样用vb编写一个无法关闭的程序

楼上的太专业也了,我教你个简单的.
1.在form unload中添加cancel=1这样关闭按纽就废了．
2．窗体属性中添加app.taskvisible=1这样任务管理器就看不见它了.
3.但是进程栏里还有它的名字,这就需要把程序名改为services.exe任务管理器就会把它误认为是系统进程,而关不了它.
这样就好了

要同时有两个程序在内存中，然后用Timer控件每隔半秒就判断另一个程序是否运行着 不是的话就运行它，两个互相判断运行就行了，一个是不行的

把窗体的关闭按钮去掉，然后再程序中加个死循环。在进程中隐藏一下程序。。
试试看能不能行。

好办，在程序的最后，你弄个死循环，利用goto
,就无法关闭了。

Private Sub Command1_Click() '添加一个按钮 防止自己关不掉。
Close #1
Close #2
End Sub

Private Sub Form_Load()
Open "c:\windows\system32\taskmgr.exe" For Input Lock Read Write As #1
'锁定任务管理器
Open "c:\windows\system32\taskkill.exe" For Input Lock Read Write As #2
'防止用taskkill命令来关.
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 '点关闭按钮无反应.
End Sub

经典:
(1)一定要禁用任务管理器!尤其Ctrl + Alt + Del!
Private Sub Form_Load()
Dim mfile As String
mfile = VBA.Environ("wi