SendKeys

йфя

Дата: 22.09.2005 17:57:03

Просто событие на нажатие:

Private Sub Command0_Click()
   SendKeys "{CapsLock}"
End Sub

Но никаких действий с Caps-ом не происходит :( Мож было у кого?

adv

Дата: 22.09.2005 18:12:42

А, собственно, что вы хотите получить, что лампчка загорелась. Как тут говорили, электроэнергию экономить надо.

Пример из хелпа (чуть переделанный):

dim rv
rv = shell("notepad.exe", 1)
AppActivate rv
SendKeys "{h}"
SendKeys "{CAPSLOCK}"
SendKeys "{h}"

йфя

Дата: 22.09.2005 18:21:28

Интересная какая штука получается, да действительно печатает h и H, но после этого почему CapsLock оказывается выключеным? Если дальше просто продолжить писать то увы - маленькие буквы, насчет лампочки - тоже надо, что б горела :)

AMSh

Дата: 22.09.2005 23:24:09

Попробуй через WinAPI. keybd_event - имитирует нажатие и отжатие клавиши на клавиатура.

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_CAPITAL = &H14     'Виртуальный код CAPSLOCK
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Command1_Click()
    'Нажимаем клавишу
    Call keybd_event(VK_CAPITAL, 0, 0, 0)
    'Отпускаем клавишу
    Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0)
End Sub