| Вопрос: Симуляция нажатия | Добавлено: 23.05.03 19:05 |
Автор вопроса:  Casper
|
| Как симулировать нажатие Enter в Windows? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 23.05.03 19:37 |
|
симуляция <> эмуляция SendKeys "{ENTER}" |
||
|
Номер ответа: 2 Автор ответа:  ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #2 | Добавлено: 23.05.03 19:41 |
Держи код в принципе не про Enter, разберешся в принципе Работает корректнее SendKeys Const VK_H = 72Const VK_E = 69Const VK_L = 76Const VK_O = 79Const KEYEVENTF_EXTENDEDKEY = &H1Const KEYEVENTF_KEYUP = &H2Private 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 SubPrivate 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 OEnd Sub |
||
Страница: 1 |