powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / keybd_event
7 сообщений из 7, страница 1 из 1
keybd_event
    #33717082
Barsss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может у кого то есть коды для символьных клавиш (A-Z, a-z)
очень надо для keybd_event



Private Const VK_ADD = &H6B
Private Const VK_ATTN = &HF6
Private Const VK_BACK = &H8
Private Const VK_CANCEL = &H3
Private Const VK_CAPITAL = &H14
Private Const VK_CLEAR = &HC
Private Const VK_CONTROL = &H11
Private Const VK_CRSEL = &HF7
Private Const VK_DECIMAL = &H6E
Private Const VK_DELETE = &H2E
Private Const VK_DIVIDE = &H6F
Private Const VK_DOWN = &H28
Private Const VK_END = &H23
Private Const VK_EREOF = &HF9
Private Const VK_ESCAPE = &H1B
Private Const VK_EXECUTE = &H2B
Private Const VK_EXSEL = &HF8
Private Const VK_F1 = &H70
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Const VK_F13 = &H7C
Private Const VK_F14 = &H7D
Private Const VK_F15 = &H7E
Private Const VK_F16 = &H7F
Private Const VK_F17 = &H80
Private Const VK_F18 = &H81
Private Const VK_F19 = &H82
Private Const VK_F2 = &H71
Private Const VK_F20 = &H83
Private Const VK_F21 = &H84
Private Const VK_F22 = &H85
Private Const VK_F23 = &H86
Private Const VK_F24 = &H87
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_HELP = &H2F
Private Const VK_HOME = &H24
Private Const VK_INSERT = &H2D
Private Const VK_LBUTTON = &H1
Private Const VK_LCONTROL = &HA2
Private Const VK_LEFT = &H25
Private Const VK_LMENU = &HA4
Private Const VK_LSHIFT = &HA0
Private Const VK_MBUTTON = &H4 ' NOT contiguous with L RBUTTON
Private Const VK_MENU = &H12
Private Const VK_MULTIPLY = &H6A
Private Const VK_NEXT = &H22
Private Const VK_NONAME = &HFC
Private Const VK_NUMLOCK = &H90
Private Const VK_NUMPAD0 = &H60
Private Const VK_NUMPAD1 = &H61
Private Const VK_NUMPAD2 = &H62
Private Const VK_NUMPAD3 = &H63
Private Const VK_NUMPAD4 = &H64
Private Const VK_NUMPAD5 = &H65
Private Const VK_NUMPAD6 = &H66
Private Const VK_NUMPAD7 = &H67
Private Const VK_NUMPAD8 = &H68
Private Const VK_NUMPAD9 = &H69
Private Const VK_OEM_CLEAR = &HFE
Private Const VK_PA1 = &HFD
Private Const VK_PAUSE = &H13
Private Const VK_PLAY = &HFA
Private Const VK_PRINT = &H2A
Private Const VK_PRIOR = &H21
Private Const VK_PROCESSKEY = &HE5
Private Const VK_RBUTTON = &H2
Private Const VK_RCONTROL = &HA3
Private Const VK_RETURN = &HD
Private Const VK_RIGHT = &H27
Private Const VK_RMENU = &HA5
Private Const VK_RSHIFT = &HA1
Private Const VK_SCROLL = &H91
Private Const VK_SELECT = &H29
Private Const VK_SEPARATOR = &H6C
Private Const VK_SHIFT = &H10
Private Const VK_SNAPSHOT = &H2C
Private Const VK_SPACE = &H20
Private Const VK_SUBTRACT = &H6D
Private Const VK_TAB = &H9
Private Const VK_UP = &H26
Private Const VK_ZOOM = &HFB
...
Рейтинг: 0 / 0
keybd_event
    #33717104
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
keybd_event
    #33717137
Barsss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эта таблица у меня есть но это не совсем то или я непонимаю чтото,
почему в примере пробел обозначается "Private Const VK_SPACE = &H20"
а в таблице код пробела "32"??
...
Рейтинг: 0 / 0
keybd_event
    #33717233
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запускаете стандартный виндовый калькулятор в инженерном виде и играетесь с переключателем HEX <-> DEC.
...
Рейтинг: 0 / 0
keybd_event
    #33717348
Barsss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пробовал уже получается ерунда.
а -Dex (97) - Hex (61)

вот код можете проверить


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_a = &H61

Private Sub Command1_Click()

Text1.SetFocus

Call keybd_event(VK_a, 0, 0, 0)
End Sub

Должно дать маленькую букву "а" а даёт "1"
Почему????
...
Рейтинг: 0 / 0
keybd_event
    #33717459
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Const VK_H =  72 
Const VK_E =  69 
Const VK_L =  76 
Const VK_O =  79 
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
    'Print the key on the form
    Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
    'Clear the form
    Me.Cls
    keybd_event VK_H,  0 ,  0 ,  0    ' press H
    keybd_event VK_H,  0 , KEYEVENTF_KEYUP,  0    ' release H
    keybd_event VK_E,  0 ,  0 ,  0   ' press E
    keybd_event VK_E,  0 , KEYEVENTF_KEYUP,  0   ' release E
    keybd_event VK_L,  0 ,  0 ,  0   ' press L
    keybd_event VK_L,  0 , KEYEVENTF_KEYUP,  0   ' release L
    keybd_event VK_L,  0 ,  0 ,  0   ' press L
    keybd_event VK_L,  0 , KEYEVENTF_KEYUP,  0   ' release L
    keybd_event VK_O,  0 ,  0 ,  0   ' press O
    keybd_event VK_O,  0 , KEYEVENTF_KEYUP,  0   ' release O
End Sub
...
Рейтинг: 0 / 0
keybd_event
    #33717933
Barsss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо большое, разобрался.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / keybd_event
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]