Maybe test with this code:
CLEAR ? GetHTTPContent("http://www.atoutfox.org/ip.asp", .T.) ? GetHTTPContent("http://ipecho.net/plain")
******************************************* FUNCTION GetHTTPContent ******************************************* LPARAMETERS cURL, lBodyOnly
LOCAL oHTTP as Msxml2.ServerXMLHTTP, cErrorText, cHTML, lErrorState STORE "" TO cErrorText, cHTML
TRY ohttp = CREATEOBJECT("Msxml2.ServerXMLHTTP") CATCH cErrortext = "Cannot instanciate MSXML2" lErrorstate = .t. ohhtp = .NULL. ENDTRY
IF VARTYPE(oHTTP) = "O" TRY oHTTP.OPEN("GET",cUrl,.F.) oHTTP.SEND() CATCH lErrorState = .T. cErrortext = "Open/Send failed" ENDTRY ENDIF
IF NOT lErrorState cHtml = oHTTP.responseBody
IF NOT INLIST(VARTYPE(cHTML),"Q","C") OR EMPTY(cHTML) lErrorState = .T. cErrortext = "error on response" ELSE * convert unicode to utf cHtml = STRCONV(cHTML,9) ENDIF ENDIF
IF lErrorState cHTML = "Error: " + cErrorText ELSE IF lBodyOnly cHTML = STREXTRACT(cHTML, "<body>", "</body>",1,1) ENDIF ENDIF RETURN cHTML