在特定程序中使键盘不发挥作用VB

可以使用钩子函数  
  首先声明api函数和常量  
  Public   Declare   Function   SetWindowsHookEx   Lib   "user32"   Alias   "SetWindowsHookExA"   (ByVal   idHook   As   Long,   ByVal   lpfn   As   Long,   ByVal   hmod   As   Long,   ByVal   dwThreadId   As   Long)   As   Long  
  Public   Declare   Function   UnhookWindowsHookEx   Lib   "user32"   (ByVal   hHook   As   Long)   As   Long  
  Public   Declare   Function   GetCurrentThreadId   Lib   "kernel32"   ()   As   Long  
  Public   Const   WH_KEYBOARD   =   2  
           
  Public   gLngKeyHook   As   Long  
           
  Public   Function   KeyboardProc(ByVal   nCode   As   Long,   ByVal   wParam   As   Long,   ByVal   lParam   As   Long)   As   Long  
  KeyboardProc   =   -1  
  End   Function  
   
  然后在窗口中设置钩子函数:  
  gLngKeyHook   =   SetWindowsHookEx(WH_KEYBOARD,   AddressOf   KeyboardProc,   App.hInstance,   GetCurrentThreadId)  
   
  最后别忘了在unload时取消钩子函数  
  UnhookWindowsHookEx   gLngKeyHook