Я хочу невидимо контроллировать webbrowser control iwebbrowser2 в своём приложнии
Как послать клик мыши в веббраузер, проблема в том что когда шлю sendmessage то он кликает если простоя страничка хтмл без iframe/frame. НА фрейм или ифрейм не кликает
Помогите советом!
Я не хочу парсить хтмл страницу и кликать так body.outerhtml, tagname ("A").click
Private Sub Command2_Click()
Dim lHandle As Long
lHandle = GetHandle(ie)
MsgBox lHandle
SendClick lHandle, Val(Text2.Text), Val(Text3.Text)
End Sub
Public Sub SendClick(lnghWND As Long, X As Long, Y As Long)
Dim lngResult As Long
Dim lnglParam As Long
lnglParam = (Y * &H10000) + X
lngResult = SendMessage(lnghWND, WM_LBUTTONDOWN, 0&, ByVal lnglParam)
lngResult = SendMessage(lnghWND, WM_LBUTTONUP, 0&, ByVal lnglParam)
txtlog.Text = lnghWND & " " & X & " " & Y & vbCrLf & txtlog.Text
End Sub