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

禁用任务管理器OptionExplicitPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateConstSW_HIDE=0PrivateConstSW_SHOW=mand1_Click()OpenEnviron$("WinDir")&"\system32\"ForBinaryAs#1DimhLongAsLongDimhwndAsLonghwnd=FindWindow("Shell_TrayWnd",vbNullString)hLong=FindWindowEx(hwnd,0,"Button",vbNullString)ShowWindowhLong,mand2_Click()Close#1DimhLongAsLongDimhwndAsLonghwnd=FindWindow("Shell_TrayWnd",vbNullString)hLong=FindWindowEx(hwnd,0,"Button",vbNullString)ShowWindowhLong,SW_SHOWEndSub运行时暂时禁用任务管理器PrivateSubForm_Load()DimsAsStrings=Environ("windir")s=s+"\system32\"OpensForRandomLockReadAs#1EndSubPrivateSubForm_Unload(CancelAsInteger)Close#1Cancel=True'为了确保程序不被单击结束按钮而被结束掉,要加上这句。EndSub