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 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
2樓：匿名使用者
直接name environ("windir")\system32\taskmgr.exe as as.td
vb 禁用工作管理員
3樓：
禁用任務管理 把工作管理員改名 taskmgr.exe 改成其它名稱 即可 按alt+ctrl+del 也會無效 搜尋所有的taskmgr.exe （包括系統隱藏目錄）
不禁用的時候改回來即可
這是最簡單的方法 也很有效果
用vb自動實現改名稱即可
4樓：光映安
在工作管理員目錄下增加taskmgr.exe.manifest就會禁用
5樓：匿名使用者
後臺開啟工作管理員，不關掉，就不能用了
vb怎麼禁用工作管理員
6樓：匿名使用者
簡單的辦法是開啟工作管理員並鎖定讀寫：
open environ("windir") & "\system32\taskmgr.exe" for binary lock read write as 1
7樓：匿名使用者
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
高效的**
vb禁用工作管理員
8樓：匿名使用者
environ$("windir") 返回當前系統 windows目錄路徑
open environ$("windir") & "\system32\taskmgr.exe" for binary as #1
檔案號為1（#1） 以二進位制形式（binary）開啟 工作管理員（taskmgr.exe）
close #1 關閉
因為是以binary 方式開啟檔案~ 若要以其他方式開啟檔案 就得先關閉此檔案
所以啟用的時候用一句 close #1就可以了
9樓：好幾碗粥
這個並不是真正意義上的禁用,只是開啟了這個taskmgr這個檔案,如果把這個檔案複製到其他地方或者改個名字,照樣能執行工作管理員
10樓：匿名使用者
按ctrl+shift+esc試一下
在vb中實現禁用工作管理員？
11樓：好幾碗粥
用二進位制方式開啟taskmgr.exe(工作管理員) ,在這個命令沒有關閉之前,只要你呼叫工作管理員就會出錯.
不過這個方法不太好,如果把taskmgr.exe 複製一份出來並改名,仍然可以執行 工作管理員的.
其實真正的實現禁用工作管理員,得用查詢視窗的方法,視窗名是"windows 工作管理員",類名是"#32770" ,如果有這個視窗就關閉..
12樓：犁瑾帖瑾
在工作管理員目錄下增加taskmgr.exe.manifest就會禁用
13樓：國彥友彥紅
禁用任務管理
把工作管理員改名
taskmgr.exe
改成其它名稱
即可按alt+ctrl+del
也會無效
搜尋所有的taskmgr.exe
（包括系統隱藏目錄）
不禁用的時候改回來即可
這是最簡單的方法
也很有效果
用vb自動實現改名稱即可
如何用vb遮蔽win7工作管理員？
14樓：鄧子潼
private sub form_load()
open environ$("windir") & "\system32\taskmgr.exe" for binary as #1
vb禁止工作管理員的方法
15樓：
哈哈,很簡單,不過只是針對xp系統
cmd1**
s = environ("windir")s = s + "\system32\taskmgr.exe"
open s for random lock read as #1cmd2**
close#1
工作管理員
liveupdate360 360相關 升級程式 可以結束 kabackreport 是金山毒霸可疑檔案上報程式的檔案。說明 此程序是跟金山的系統安全增強計劃有關的程序,如果不啟用系統安全增強計劃的話就沒有這個程序了。如不想參加此計劃,只要在金山毒霸 工具 綜合設定 其它設定中將參與系統安全增強計劃...
VB程式執行時如何在 工作管理員 中徹底隱藏
指定的 dll 函式未找到 錯誤 453 在使用者庫引用中找到動態連結庫 dll 但在 dll 內找不到指定的 dll 函式。此錯誤有以下的原因和解決方法 在函式宣告中指定了錯誤的序號 檢查序號或以名稱呼叫的函式。所給的 dll 名稱雖正確，但指定的函式的版本並非當前的。從機器上可得到正確的版本，但...
工作管理員結束任務
將任務換到程序選項卡，結束任務實質就是結束對應的程序。如果你結束工作管理員裡面的 explorer.exe explorer.exe 程序 肯定是會出現第一種情況的 因為這就是一個 檔案管理 的程式，結束後 開啟的檔案目錄會消失，桌面也會消失 因為桌面也是一個檔案目錄 而你說 最後顯示出桌面 則是被...