Como llamar a rutina javascript desde webbrowser

[LeandroA]

hola tal como te pase en otro foro puedes ejecutar un script del webbrowser

Código:

Call WebBrowser1.Document.parentWindow.execScript("__doPostBack('DGOOSS$ctl02$ctl00','');", "JavaScript")

pero mira este valor DGOOSS$ctl02$ctl00 si no me equivoco es cambiante, supongo que para que no se pueda automatizar.

lo que puedes hacer es encontrar el valor en el html del documento

Código:

Private Sub Command2_Click()
Dim HTML As String
Dim PosStart As Long
Dim PosEnd As Long
Dim Code As String

HTML = WebBrowser1.Document.body.innerhtml
PosStart = InStr(HTML, "javascript:__doPostBack('")
If PosStart Then
    HTML = Mid(HTML, PosStart + 25)
    PosEnd = InStr(HTML, "'")
    If PosEnd Then
        Code = Left(HTML, PosEnd - 1)
        Call WebBrowser1.Document.parentWindow.execScript("__doPostBack('" & Code & "','');", "JavaScript")
    End If
End If

End Sub

Saludos