Con la ayuda de otro colega de otro foro encontre la solución. Facilísimo y simple.
Lo que buscaba. Funciona aparentemente sólo con Internet Explorer, pero es tan transparente al usuario que no importa.
Lo publico aca para que quede la solución, capaz le sirva a alguien:
[color=#FF0000]FUNCTION ConsultaWeb(cUrl)
LOCAL cError,oExplorer
LOCAL cResult
oExplorer := TOleAuto():New("InternetExplorer.Application")
oExplorer:Navigate(cUrl)
oExplorer:Visible:=.F. // IE invisible
// Las siguientes 4 lineas son para pausar la carga de una pagina, omitelas si no te son necesarias
//WaitSeconds(5) // deshabilito, no hace falta
WHILE oExplorer:Busy
HB_IDLESLEEP(1)
ENDDO
// Guardamos en texto del resultado de la web
cResult:=oExplorer:Document:Body:InnerText
oExplorer:End()
IF "OK"$cResult
ALERT("El envio del SMS fue un exito")
ENDIF
RETURN cResult
↧