在注册表中建立一个新项，屏蔽CTRL+ALT+DEL，这样做对吗？
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Sub Command1_Click()
Dim Value As Long 'value = 1 -- 禁用， value = 0 -- 不禁用
Value = 0
'修改注册表屏蔽任务管理器
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Policies\System", hkey
RegSetValueEx hkey, "DisableTaskMgr", 0, REG_DWORD, Value, 4
End Sub
问题点数：10、回复次数：6Top
1 楼loveyouvb（）回复于 2006-06-01 23:02:18 得分 0
最简单的方法就是把taskmgr.exe这个文件给删除了
那样怎么办也不可以使用CTRL+ALT+DEL这三个键了Top
2 楼aspnet003（aspnet003）回复于 2006-06-05 13:09:03 得分 0
这样做也太狠了点吧Top
3 楼zcsor（偶业余的虽然星星了，但是水平依然是非常业余的。）回复于 2006-06-05 13:59:03 得分 0
恩，确实过分。。最近写了一个。。还真难为我了。。
98下很容易了
Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function SystemParametersInfo Lib "User32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As _
Any, ByVal fuWinIni As Long) As Long
Private Sub Command1_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
Private Sub Command2_Click()
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub
Private Sub Form_Load()
Command1.Caption = "bukeyong"
Command1.Caption = "keyong"
End Sub
2K下我是用修改Msgina.dll导出的WlxLoggedOnSAS的跳转指令实现的。。。谁有更好的办法吗。。。。太麻烦了我Top
4 楼air936542x（air936542）回复于 2006-06-05 20:50:40 得分 0
我也建议kill it后renameTop
5 楼verywzm（寒江雪）回复于 2006-06-06 07:33:20 得分 0
XP中taskmgr.exe是删不了的，不信你试一下，不过前提是没有关系统保护。Top
6 楼hpygzhx520（）回复于 2006-06-06 09:48:15 得分 0
哎，不是任务管理器的问题。在XP下，若是经典登录，而不是欢迎屏幕，那么CTRL+ALT+DEL显示的并非任务管理器。Top
