Saltar proxy con TActivex / oActiveX:Do / Navigate2

[JmGarcia]

Necesito saber el código fuente necesario para saltar un proxy (conociendo usuario y contraseña, claro ).

Lo necesito para con la clase TActivex en la que uso instrucciones de este estilo oActiveX:Do("Navigate2",cURL)

No me funciona cuando ejecuto el programa detras de un proxy... no se ve el contenido de la URL.

[JmGarcia]

¡¡¡ Socorro !!!

Help !!!

[jll-fwh]

Hola JmGarcia:

Depende del proxy que tengas, pero simplemente tienes que asignar en tu salida el puerto interno y en el proxy configurar el redirecionamiento de dicho puerto al real, es decir, mapearlo.

un saludo
JLL

[JmGarcia]

En otro programa que uso, del que solo uso para coger el contenido HTML de la página web deseada:

Code: Select all  Expand view

oHttp:=CreateObject("winhttp.winhttprequest.5.1")
...

Lo resuelvo de esta forma:

Code: Select all  Expand view

  Try
      if OkProxy
         oHttp:SetProxy(HTTPREQUEST_PROXYSETTING_PROXY,cProxyServer+":"+alltrim(str(nProxyPort)),cProxyNo)
      endif
      oHttp:SetTimeouts(30000,30000,30000,30000)
      oHttp:Open("GET",cUrl,.F.)
      if OkProxy
         oHttp:SetCredentials(cUserName,cPassword,HTTPREQUEST_SETCREDENTIALS_FOR_PROXY)
      endif
      oHttp:Send()
      cTextoHTML:=oHttp:ResponseText()
   Catch
      cTextoHTML:="Error"
   End Try

y en la variable cTextoHTML tengo el texto deseado...

Pero en el caso de oActiveX:Do("Navigate2",cURL) no se como se hace...