Como llamar a rutina javascript desde webbrowser

[pana99]

Hola a todos

Tengo un control webbrowser en donde necesito llamar a la rutina javascript:__doPostBack('DGOOSS$_ctl2$_ctl0','')

Esa parte es la que no se como hacerla.

Mil gracias

[David]

Con Navigate usando el protocolo javascript:

Código vb:

WebBrowser1.Navigate "javascript:/* código */"
 

[pana99]

DAvid, gracias. Lo he probado, no da error pero no hace nada
Tal vez me puedas ayudar dandote mas datos
Lo que necesito es hacer click en imagenes\imprimir2.gif de este html

Gracias

</table><table id="PanelOOSS" cellpadding="0" cellspacing="0" border="0" height="159" width="100%"><tr><td>

<DIV style="DISPLAY: inline; WIDTH: 424px; COLOR: darkblue; FONT-FAMILY: Arial; HEIGHT: 49px; TEXT-ALIGN: center"
align="center" ms_positioning="FlowLayout">
<P>Obras Sociales a la que pertenece
</P>
</DIV>
<P>
</P>

<table cellspacing="0" rules="all" bordercolor="LightSteelBlue" border="1" id="DGOOSS" height="8" width="98%">
<tr class="GrillaTitulos">
<td class="GrillaTitulos" width="10%">Código</td><td class="GrillaTitulos" width="50%">Descripción</td><td class="GrillaTitulos" width="30%">Condición</td><td class="GrillaTitulos" width="10%">Situación</td><td><font color="Gray">CODEM</font></td>
</tr><tr class="GrillaDetalle">
<td class="GrillaDetalle">604</td><td class="GrillaDetalle">OBRA SOCIAL DE AGENTES DE LOTERIAS Y AFINES DE LA REPUBLICA ARGENTINA</td><td class="GrillaDetalle">Titular</td><td class="GrillaDetalle">ACTIVO</td><td align="Center"><a href="javascript:__doPostBack('DGOOSS$_ctl2$_ctl0' ,'')"><img src=imagenes\imprimir2.gif border=0></a></td>

</tr>
</table>

[David]

¿Esto no funciona?:

Código vb:

WebBrowser.Navigate "javascript:__doPostBack('DGOOSS$_ctl2$_ctl0' ,'')"
 

[pana99]

Error no da, pero no hace nada.

Lo que yo necesito es que pase a la pagina siguiente. (pense que llamando a esa rutina devolvia algo o avanzaba) pero no hace nada

Si clikeo manualmente en La imagen "imagenes\imprimir2.gif" si avanza y me muestra lo que quiero

Obviamente lo quiero hacer por codigo y no manualmente
Gracias

[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

[pana99]

Si !!! Es correcto como vos decís y funciona a la perfección
El tema estaba en que DGOOSS$ctl02$ctl00 es cambiante.
Ahora funciona de mil maravillas.
Mil gracias