New subject: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?

17 Jun 2020


      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

RE: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?