Inet y redirecciones

[tepitenio]

Buenas, estoy usando el Inet en VB6 y tengo un problema que no puedo encontrar la soluion por ningun lado.

Cuando envio un OpenURL con el Inet a una URL que tiene una redireccion, no encuentro ninguna manera de saber que fui redireccionado. Es decir si yo ordene OpenURL ("http://sitiooriginal . com") y en el explorador va a sitioredireccionado . com como puedo saber la segunda URL con el Inet.

En su defecto, si alguien sabe hacerlo con el Winsock o algun otro control, sera bienvenido.

Gracias

[seba123neo]

Hola, el WebBrowser tiene una propiedad que te devuelve la direccion web en las que estas actualmente....podes preguntar eso en algun evento del webbrowser ..por ejemplo cuando esta bajando la web pregunta y asi detectar si se direcciono a otra web...

saludos.

[tepitenio]

ok. lo voy a probar. Mientras tanto, alguien sabe hacerlo con el INET o WINSOCK???

[David]

El problema es que hay varias formas de redirección (se puede hacer con un metatag, con Javascript, o con las cabeceras HTTP), con Winsock podrás detectar la redirección através de las cabeceras, pero las que se hacen a través de HTML o Javascript.

[tepitenio]

Iniciado por David el Grande

El problema es que hay varias formas de redirección (se puede hacer con un metatag, con Javascript, o con las cabeceras HTTP), con Winsock podrás detectar la redirección através de las cabeceras, pero las que se hacen a través de HTML o Javascript.

Lo que planteo seba123neo detecta todas las redirecciones?

[seba123neo]

pues tendrias que probar para saber si te funciona...pone alguna direccion que te direccione a otra pagina y proba...no perdes nada...

[tepitenio]

Ok, fenomeno, probe lo que sugirio seba123neo y funciona de maravillas (carma correspondiente aniadido!). Estoy sorprendido porque suelo usar este foro para temas de internet, pero para VB6 uso otros en teoria mas especializados pero nadie me pudo dar una solucion. Tire de casualidad el tema aca, y... buenisimo!!

Para el que le interese lo que hice fue muy simple. En un form agregue el control Webbrowser1 (En components Microsoft Internet Controls - creo que tenia un conflicto con el Winsock asique quitenlo)

y cree la siguiente rutina

Public Function TestRedirect(byval pRequest as string) as string
webbrowser1.navigate pRequest
do while webbroser1.ReadyState <> READYSTATE_COMPLETE
doevents
loop
testredirect = webbrowser1.locationurl
End Function

Y listo! La funcion devuelve la URL que realmente se mostro (si esta redireccionada mostrara la nueva)

GRACIAS!!!!!!!!!!!!!!!!!

[tepitenio]

Aclaracion: No se si funciona con todas las formas de redireccion (como bien observo David El Grande), eso lo dejo al tiempo, por ahora las que probe lo testeo bien.

[David]

Algunas redirecciones (como las que se realizan efectuados X segundos) no podrás detectarlas de esa forma.

Como comentario adicional, puedes usar los eventos DocumentComplete o NavigateComplete2 en lugar del bucle para saber cuando la carga de la página ha finalizado.