在Xp下的一个开机密码程序,很小,只有一个密码输入框,一个解锁按钮,
是在VISUAL BASIC6.0下编的;
代码如下:
Private Sub Command1_Click()
If Text1.Text = "123456" Then '这里密码为 123456
MsgBox "登录成功!" + "欢迎你进入系统!", vbYes, "提示"
Unload Me
Else
MsgBox "解锁码错误!", vbNo, "警告"  '错误提示
Text1.Text = ""
Text1.SetFocus
End If
End Sub
能正常启动,现在要屏蔽CTRL+ALT+DEL、ALT+TAB、WIN键这四个键,看了网上的一些方法,还是不能解决,
希望这里的专家能帮我解决喽,(我只要加进我的代码后是完整的代码,不要摸不着头脑的解答,否则就不要回答了,
省的浪费你的时间,)
哪位好心的帮帮我吧,都快晕死了!
先谢谢了,

解决方案 »

  1.   

    应从以下几个方面入手:
    1、将应用主窗体设成置顶窗口,但不能有msgbox,可以在msgbox前还原;SetWindowPos frmLock.hwnd, -2, 0, 0, 0, 0, SWP_NOREDRAW Or SWP_NOSIZE Or SWP_NOMOVE
    2、CTRL+ALT+DEL可以在程序启动时在注册表屏蔽点这三个键;如:SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\system", "DisableTaskMgr", "1"
    3、其他键用全局钩子可解决。Public Declare Function DisableTaskKeys Lib "KBHook.dll" (ByVal bDisable As Boolean, ByVal bBeep As Boolean) As Boolean以上文件可以在http://hxfkof.blog.163.com 安装程序下找到。
      

  2.   

    http://hxfkof.blog.163.com日志中的
    本作品为工作需要所写 IC卡机房管理系统收费管理端 http://my.mofile.com/hxfkof ,网页的共享文件下载setup_server.exeIC卡机房管理系统工作端http://my.mofile.com/hxfkof,     网页的共享文件下载setup_client.exe