батник

Code:

   Option Explicit 
      Private 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 
      Private Declare Function UnhookWindowsHookEx Lib "user32" ( _ 
          ByVal hHook As Long _ 
      ) As Long 
        
      Private Declare Function CallNextHookEx Lib "user32" ( _ 
          ByVal hHook As Long, _ 
          ByVal ncode As Long, _ 
          ByVal wParam As Long, _ 
          lParam As Any _ 
      ) As Long 
      
      Public Const WH_KEYBOARD_LL = 13 
      Private Const HC_ACTION = 0 
      Private Const HC_NOREMOVE = 3 
      Public Type KBDLLHOOKSTRUCT 
          vkCode As Long 
          scanCode As Long 
          flags As Long 
          time As Long 
          dwExtraInfo As Long 
      End Type 
      
      Private hHook As Long 
      Public IsHooked As Boolean 
        
      Public Sub SetKeyboardHook() 
          If IsHooked Then 
              MsgBox "Don't hook WH_KEYBOARD_LL twice or you will be unable to unhook it." 
          Else 
              hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0) 
              IsHooked = True 
          End If 
      End Sub 
        
      Public Sub RemoveKeyboardHook() 
          UnhookWindowsHookEx hHook 
          IsHooked = False 
      End Sub 
      
      Public Function LowLevelKeyboardProc(ByVal uCode As Long, ByVal wParam As Long, lParam As KBDLLHOOKSTRUCT) As Long 
          If uCode >= 0 Then 
              Select Case uCode 
                  Case HC_ACTION 
                      'Debug.Print Hex(lParam.vkCode) 
                      'If a RETURN key is pulled from the queue then discard it. 
                      If lParam.vkCode = &HD Then 
                          LowLevelKeyboardProc = 1 
                          Exit Function 
                      End If 
                  Case HC_NOREMOVE 
                      'The message has not been removed from the message queue 
              End Select 
          End If 
          LowLevelKeyboardProc = CallNextHookEx(hHook, uCode, wParam, lParam) 
      End Function

Code:

Private Sub Form_Load()     SetKeyboardHook   End Sub     Private Sub Form_Unload(Cancel As Integer)     RemoveKeyboardHook   End Sub

хук попробовал, не пашет >_< на вб6.0

 

добавь сюда HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ запись
rundll32.exe keyboard.exe, disable

 

вроде есть
/showpost.php?p=1911571&postcount=3
эту опцию не тестил.
но каспер лочит батник с этой опцией ))

 

фича под 9х, если я не ошибаюсь в ХР не пашет

 

NetSter, пишет "не является приложением win32" при открытии батника
vvs777 во во
NetSter, название программы просто с ног сшибательное

 

возник другой вопрос, первый пока не актуален, как нажать и удерживать Ctrl как правый так и левый и удерживать?
гуглю - не могу найти.. знаю что звучит тупо, но.. не могу найти
VISUAL BASIC 6.0

 

пожалуй ограничусь SendKeys "^O" но как оставить комбинацию зажатой >_<

 

тут есть кто? =\
если тыкнуть
Private Sub CommandButton1_Click()
SendKeys "^E"
End Sub
то по идее при нажатии, кнопка "западает" и ctrl автоматом становится "нажатым", я правильно понимаю? но кнопка после добавления кода не "западает" при нажатии >_<
омг, помогите сонному человеку
"проспись" не канает
то ли SendKeys "^E" вобще не пашет, или я не правильно записал..

 

в ПМ отпишы обясню что да как, ато тут тема за минуту на 10 страниц назад улетает

 

TrambleR, уже сам разобрался..
всем спс =\
всех кто отпишет "не за что" - зарежу =\
zlo12 и NetSter вреале спс за попытки помочь

 

обновил первый пост

 

А какая винда? На хр должно работать, а вот на висте пошлет...
ПС если надо есть подобная, точно рабочая функция, могу покопать...

 

в том-то и дело, что хр, а хук не пашет