Ошибка с keybd_event: не происходит нажатие сочетаний клавиш

@Jason · Регистрация: 25.12.2011

Author24 — интернет-сервис помощи студентам

Visual Basic

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()
Call keybd_event(&H12, 0, 0, 0)
Call keybd_event(&H73, 0, 0, 0)
Call keybd_event(&H73, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(&H12, 0, KEYEVENTF_KEYUP, 0)
End Sub

Почему не работает? Он должен жать alt + f4.

Добавлено через 37 минут
Все проблема решена)

VB.NET

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

Памирыч · 15.01.2012, 13:42

А чего код шестого? Тебе на каком синтаксисе нужно?

@Jason · 15.01.2012, 13:44 **[ТС]**

Да все разобрался что с 6)).

VB.NET

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

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	15.01.2012, 13:42	2
	А чего код шестого? Тебе на каком синтаксисе нужно? 1

	15.01.2012, 13:44