Проблема с отправкой левой кнопкой мыши

Обновить

April 2019

Просмотры

326 раз

1

У меня есть ряд кликов и движений курсора у меня есть в макросе. Все отлично работает до конца. Все клики работают до последнего клика. Я пытался поставить различные количества Спит между щелчками и до щелчка.

Что странно, что, когда я нажимаю на реальные, это работает! ааа Что же нечетное, если я нажимаю ввести это работает BUTTTT! SendKeys «{ENTER}» не нажать кнопку

Это мой код:

Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPtr
Public Declare PtrSafe 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)
'Declare mouse events

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
'Declare sleep
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Private Sub AAA()
    Sleep 150
SetCursorPos 80, 80 'x and y position
 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
 Sleep 50
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0



    Sleep 150
SetCursorPos 80, 170 'x and y position
 mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
 Sleep 50
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

Sleep 10
SetCursorPos 85, 270 'x and y position
 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
 Sleep 10
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

    Sleep 10
SetCursorPos 340, 170 'x and y position
 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
 Sleep 10
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Sleep 10
SetCursorPos 300, 475 'x and y position
 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0




End Sub

0 ответы