VPF::Проблема с эмуляцией клавиши - Форум программистов

I_Am_Rock

Дата 18.1.2008, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Всем привет!

У меня такая проблема.
Эта маленькая программа фоткает экран (эмулирует клавишу PrintScreen) и вставляет содержимое буфера обмена в объект Image1.
Но вот беда - почему-то приходится дважды нажимать кнопку Command1, чтобы это произошло, причем программно сделать это (т.е. двойное нажатие кнопки) не получается!

Вы можете подумать - "почему этот чел ленится дважды нажимать кнопку!"
Дело в том что я собираюсь сделать так, чтобы прога фоткала экран по событию таймера.
А она этого не делает! - т.е. в этом случае приходится дважды запускать прогу и ждать события таймера. А это неприемлимо!

Заранее спасибо!

Код


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 Command1_Click()
keybd_event &H2C, 0, 0, 0
keybd_event &H2C, 0, KEYEVENTF_KEYUP, 0
Image1.Picture = Clipboard.GetData
Clipboard.Clear
End Sub

Private Sub Form_Load()
Clipboard.Clear
End Sub

Это сообщение отредактировал(а) cardinal - 18.1.2008, 21:38

I_Am_Rock

Дата 18.1.2008, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Разобрался smile

Оказывается, нужно после "keybd_event &H2C, 0, KEYEVENTF_KEYUP, 0" вставить "DoEvents"...
Все равно спасибо за внимание! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »