Question

VB屏蔽任务管理器

我现在想用VB6.0做一个程序
程序运行时，窗体最大化，布满整个屏幕
可以屏蔽Alt+F4,也可以屏蔽 任务管理器。
说白了，就是可以屏蔽任何键盘操作和鼠标操作。。

类似于那个 万象网管 刚开机时那个界面差不多。。
谢谢各位大哥大姐！！！

Answer 1

屏蔽Alt+F4: 再属性框将窗体的ControlBox 属性设置为false

屏蔽任务管理器 :Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1

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
' 保持窗口位置

Private Sub Form_Load()
Me.WindowState = 2 '将窗体最大化
Me.BorderStyle = 0 '将窗体设置为无边框

Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 '屏蔽任务管理器

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为在所有窗口前端
End Sub

Answer 2

Option Explicit
'添加两个命令按钮
Private Sub Command1_Click()
Dim mfile As String
mfile = VBA.Environ("windir ")
mfile = mfile & "\system32\taskmgr.exe "
Open mfile For Input Lock Read Write As #1
End Sub

Private Sub Command2_Click()
Close #1
End Sub

Private Sub Form_Load()
Command1.Caption = "XP下禁用任务管理器 "
Command2.Caption = "XP下恢复任务管理器 "
End Sub

Answer 3

直接name Environ("windir")\system32\taskmgr.exe as as.td