Vb禁用任务管理器带来的问题

来源:百度知道 编辑:UC知道 时间:2024/06/17 00:03:03
Private sub command1_click()
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
end sub
点击按钮可以禁用任务管理器,但是当我第二次点击时就出错了,显示已经打开,改怎么判断是否打开了呢?

On Error Goto Err
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
Exit Sub
Err:
Msgbox "已经打开过了"'你也可以不设置提示

Private sub command1_click()
on error goto dakai
Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1
exit sub
dakai:
msgbox "已经禁用了"
end sub