(Мне надо сделать программу которая при ее запуске через определенное время будет совершать 1 нажатие кнопки F1 + 1 клик (тоесть нажимается F1, а потом сразу же клик мыши). Я тут по примерам что-то похожее попробовал сделать первый раз все получается ок, но кнопка мыши всегда остается нажатой
Вот исходник:
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 'событие отпускания клавиши
Const VK_F1 = &H70 'нажата клавиша F1
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Private Sub ShowStartMenu()
Call keybd_event(VK_F1, 0, 0, 0) 'Hажимаем F1
Call keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем F1
mouse_event MOUSEEVENTF_LEFTDOWN, X, Y, cbutt, dwEI
mouse_event MOUSEEVENTF_LEFTUP, X, Y, cbutt, dwEI
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1 + 1
If Label1.Caption = 3 Then
ShowStartMenu
End If
If Label1.Caption = 3 Then
Label1.Caption = 0
End If
End Sub
------------------------
P.S. Заранее очень благодарен!