none
Эмуляция клика кнопки мыши по заданным координатам на веб-странице VBA RRS feed

  • Общие обсуждения

  • Добрый вечер, извиняюсь, к сожалению, весь код приложить не могу. в макросе


    Private Declare Function
    SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 'для постановки курсора мышки по координатам
    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) 'для клика мышки
    Private Const MOUSEEVENTF_LEFTDOWN = &H2:

    PrivateConstMOUSEEVENTF_LEFTUP = &H4  

    объявлена процедура Sub St(), макрос заходит на внутренний сайт, заполняет поля, кликает кнопки с помощью

    ie.document.getelementbyID() и
    ie.document.getelementbyTagName()

    После этого происходит эмуляция нажатия кнопки мыши по заданным координатам в IE.  
    Xm = 250: Ym = 600: Call SetCursorPos(Xm, Ym): Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0): Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0):
    End Sub

    Если во время выполнения процедуры Sub St() до эмуляции клика мыши подвигать мышью, то координаты клика смещаются.
    Как сделать, чтобы клик происходил в заданное место, независимо от перемещений мыши до эмуляции?

    Заранее спасибо.
    1 марта 2018 г. 16:38