lansar una url a una pagina abierta

[Zorombo]

holas a todos, nesesito que me ayuden con vb6, tengo que hacer que una pagina abierta valla a una direccion que yo le doy, la pagina ya la tengo identificada y se maximisa o se acctiva cuando yo quiero, solo me falta algun codigo que me permita ingresarle el hwnd o handle y la direccion que yo quiero. utilizo shellexecute cuando la pagina no esta abierta pero no me sirve cuando la pagina ya esta abierta por que me abre una nueva o la carga en la ultima que utilice.

eso es, gracias de ante mano.

[luciano]

Hola.

una forma

Andate a referencias y chequea "Microsoft internet controls"

Luego pone dos command button

Código:

Option Explicit
Dim ie As New InternetExplorer

Private Sub Command1_Click()
    ie.Navigate ("www.google.com")
    ie.Visible = True
End Sub

Private Sub Command2_Click()
    ie.Navigate ("www.yahoo.com")
    ie.Visible = True
End Sub

Private Sub Form_Load()
    Command1.Caption = "Google"
    Command2.Caption = "yahoo"
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Local Error Resume Next
    If Not ie Is Nothing Then
        ie.Quit
        Set ie = Nothing
    End If
End Sub

Acá tene sun ejemplo para modificar otras propiedades

Acceder al internet explorer desde vb


..saludos



--------------------

[Zorombo]

gracias luciano por responder, pero no funciona lo que pusiste y no estoy seguro si sirva para lo que nesesito.
me tira un error que dice asi, Class does not support automation or does not support expected interface.

explico nuevamente lo que nesesito:

si no hay ninguna pagina abierta, la abro con: resultado = ShellExecute(Me.hWnd, "open", dir, "", "", 1), todo bien, pero si abro mi correo o otra pagina y ago correr denuevo el programa el shellexecute se ejecuta en la ultima pagina que utilice (osea, en la pagina que estaba revisando mi correo). yo nesesito que se abra en la misma anterior, esa es mi duda.
ej : if titulo=titulopagina then
AQUI VA EL CODIGO QUE NESESITO
else
resul = ShellExecute(Me.hWnd, "open", dir, "", "", 1)
end if


agradeceria muchisimo tu ayuda o de cualquier que lo pueda solucionar, thanks.

[Zorombo]

luciano, taba equivocado el ie.navegate me sirvio muy bien era justo loq ue nesesitaba, hasta elimine shellexecute y funciona mejor, pero abro la pagina que yo quiero con ie.navegate lo mas bien, pero si la cierro y apreto el boton de la aplicacion me da un error "Automation error", nose como sulucionarlo, ayuda plis, bye thanks