VB禁用任务管理器代码.pdfVIP

禁用任务管理器 Option Explicit Private Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib user32 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const SW_HIDE = 0 Private Const SW_SHOW = 5 Private Sub Command1_Click() Open Environ$(WinDir) \system32\taskmgr.exe For Binary As #1 Dim hLong As Long Dim hwnd As Long hwnd = FindWindow(Shell_TrayWnd, vbNullString) hLong = FindWindowEx(hwnd, 0, Button, vbNullString) ShowWindow hLong, SW_HIDE End Sub Private Sub Command2_Click() Close #1 Dim hLong As Long Dim hwnd As Long hwnd = FindWindow(Shell_TrayWnd, vbNullString) hLong = FindWindowEx(hwnd, 0, Button, vbNullString) ShowWindow hLong, SW_SHOW End Sub 运行时暂时禁用任务管理器 Private Sub Form_Load() Dim s As String s = Environ(windir) s = s + \system32\taskmgr.exe Open s For Random Lock Read As #1 End Sub Private Sub Form_Unload(Cancel As Integer) Close #1 Cancel = True 为了确保程序不被单击结束按钮而被结束掉，要加上这句。 End Sub