Inet y redirecciones

[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!!!!!!!!!!!!!!!!!