(win2000)屏蔽CTRL+ALT+DEL,win,ALT+TAB,ALT+F4 (100分)

Question

多谢

Answer 1

1、屏蔽Ctrl+Alt+Del：   
  Option   Explicit   
  Private   Declare   Function   GetCurrentProcessId   Lib   "kernel32"   ()   As   Long   
  Private   Declare   Function   GetCurrentProcess   Lib   "kernel32"   ()   As   Long   
  Private   Declare   Function   RegisterServiceProcess   Lib   "kernel32"   (ByVal   dwProcessID   As   Long,   ByVal   dwType   As   Long)   As   Long   
    
  Private   Const   RSP_SIMPLE_SERVICE   =   1   
  Private   Const   RSP_UNREGISTER_SERVICE   =   0   
            
  Private   Sub   MakeMeService()   
          Dim   pid   As   Long   
          Dim   reserv   As   Long   
          pid   =   GetCurrentProcessId()   
          RegisterServiceProcess   pid,   RSP_SIMPLE_SERVICE   
  End   Sub   
            
  Private   Sub   UnMakeMeService()   
          Dim   pid   As   Long   
          Dim   reserv   As   Long   
          pid   =   GetCurrentProcessId()   
          RegisterServiceProcess   pid,   RSP_UNREGISTER_SERVICE   
  End   Sub   
            
  Private   Sub   Command1_Click()   
          Call   MakeMeService   'ʹ´°¿ÚÒþ²Ø   
  End   Sub   2.Alt+F4：   
  Private   Sub   Form_QueryUnload(Cancel   As   Integer,   UnloadMode   As   Integer)   
          Cancel   =   UnloadMode   =   vbFormControlMenu   
  End   Sub               
  Private   Sub   Command2_Click()   
          Call   UnMakeMeService     'ʹ´°¿ÚÏÔʾ   
  End   Sub   

Answer 2

http://www.mndsoft.com/blog/article.asp?id=599

Answer 3

CTRL+ALT+DEL要hook NTDLL
其他的hook KeyBoard就可以

Answer 4

http://www.mndsoft.com/blog/article.asp?id=599

Answer 5

RegisterServiceProcess 只有 98 才有,现在流行 NT,大哥~您太老了吧!

Answer 6

http://www.codeproject.com/win32/AntonioWinLock.asp