На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Как сэмулировать нажатие, определённых клавиш
      ExpandedWrap disabled
        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 KEYEVENTF_KEYUP = &H2 – это используется для того чтобы отпустить клавишу
        Private Sub Form_Load()
           Call keybd_event(vbKeyControl, 0, 0, 0)
           Call keybd_event(vbKeyEscape, 0, 0, 0)
           Call keybd_event(vbKeyEscape, 0, KEYEVENTF_KEYUP, 0)
           Call keybd_event(vbKeyControl, 0, KEYEVENTF_KEYUP, 0)
        End Sub
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0521 ]   [ 15 queries used ]   [ Generated: 17.11.19, 20:03 GMT ]