Какой код у клавишей ALT и s ?

[TiG]

Вот пример эмуляции нажатия Ctrl+Esc, а мне нужно Alt+s, подскажите код клавиш пожалуста.

Данный пример покажет, как можно сэмулировать нажатие клавиш Ctrl + Esc, что равнозначно нажатия левой клавиши мыши на кнопке Пуск

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

Const VK_CONTROL = &H11
Const KEYEVENTF_KEYUP = &H2
Const VK_ESCAPE = &H1B

Private Sub ShowStartMenu()
Call keybd_event(VK_CONTROL, 0, 0, 0) 'Hажимаем Ctrl
Call keybd_event(VK_ESCAPE, 0, 0, 0) 'Hажимаем Esc
Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Esc
Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Ctrl
' End
End Sub

Private Sub Command1_Click()
ShowStartMenu
End Sub

[A.A.Z.]

Код: Выделить всё

Private Const VK_ALT As Long = &H12
Private Const VK_S As Long = &H53

[TiG]

Сенки, всё получилось))