Программное нажатие клавиши - VB (60583)
Формулировка задачи:
Есть код:
Почему-то кнопку нажимает не везде. Мне конкретно нужно чтоб в игре нажимало. Окно открыто, но никаких действий не происходит. Может необходимо использование каких-либо библиотек?
Решение задачи: «Программное нажатие клавиши»
textual
Листинг программы
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши Private Sub Form_Load() RunCode "PANZER" End Sub Private Function RunCode(Code As String) Dim N As Long For N = 1 To Len(Code) keybd_event Asc(Mid$(Code, N, 1)), 0, 0, 0 Next For N = 1 To Len(Code) keybd_event Asc(Mid$(Code, N, 1)), 0, KEYEVENTF_KEYUP, 0 Next End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д