Программное нажатие клавиши - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5