在win2000/XP系统下如何锁键盘？

Question

在win2000/XP系统下如何锁键盘？（如锁Ctrl+Alt+Del  Ctrl+Tab 等）
已前在９８/ｍｅ下锁过但在2000/ｘｐ下锁不了。
大家帮帮！！

Answer 1

不大好做,得APIHOOK,
锁Ctrl+Alt+Del可以写注册表,
HKEY_CURRENT_USER\software\microsoft\windows\currentversion\policies\system
 子键下的"DisableTaskMgr"=1就可以了

Answer 2

dongge2000(秋日私语) 写注册表锁，我没用过，但解锁时不是要重启呢？

Answer 3

Option Explicit
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 RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData 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                                                  '  Note  that  if  you  declare  the  lpData  parameter  as  String,  you  must  pass  it  By  Value.
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4                                                '  32-bit  number
Dim reg As LongPrivate Sub Command1_Click()
 Dim dValue(3) As Byte
    dValue(0) = 1
    dValue(1) = 0
    dValue(2) = 0
    dValue(3) = 0
    RegSetValueEx reg, "DisableTaskMgr", 0, REG_DWORD, dValue(0), 4
End SubPrivate Sub Command2_Click()    Dim dValue(3) As Byte
    dValue(0) = 0
    dValue(1) = 0
    dValue(2) = 0
    dValue(3) = 0
    RegSetValueEx reg, "DisableTaskMgr", 0, REG_DWORD, dValue(0), 4
End SubPrivate Sub Form_Load()
Dim dValue(3) As Byte
    dValue(0) = 1
    dValue(1) = 0
    dValue(2) = 0
    dValue(3) = 0
    RegSetValueEx reg, "DisableTaskMgr", 0, REG_DWORD, dValue(0), 4    RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", reg
End Sub
在xp 上这样可以锁住任务栏管理器  也就是锁住了Ctrl+Alt+Del

Answer 4

Private Sub Command1_Click()  /关闭
Private Sub Command2_Click() /打开

Answer 5

zhaopp(可怜的孩子)
多谢帮助了。可我还没时间试 bluesky23(乐天) 
在论谈搜索一下，有很多这样的例子

Answer 6

http://blog.csdn.net/jiangsheng/archive/2003/11/09/3789.aspx
http://codeproject.com/w2k/AntonioWinLock.asp参考一下