Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.144.16.254] |
|
Сообщ.
#1
,
|
|
|
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 |