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


      Here's another one without using any fancy IE or XML stuff. Just plain OS
functions...
CLEAR
? GetURLContent("http://www.atoutfox.org/ip.asp", .T.)
? GetURLContent("http://ipecho.net/plain")
************************************************************
FUNCTION GetURLContent
************************************************************
LPARAMETERS cURL, lBodyOnly
LOCAL cFile, cResult
cFile = REPLICATE(CHR(0), 260)
cResult = ""
DECLARE INTEGER URLDownloadToCacheFile IN urlmon;
    INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,;
    INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC
IF URLDownloadToCacheFile(0, cURL, @cFile, LEN(cFile), 0,0)  = 0
    cFile = RTRIM(cFile)
    cResult = FILETOSTR(cFile)
    DELETE FILE (cFile)
ENDIF
IF lBodyOnly
    cResult = STREXTRACT(cResult, "<body>", "</body>",1,1)
ENDIF
RETURN cResult
[excessive quoting removed by server]

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?