DO decl
LOCAL lcRmScript, lcLocal
lcRmScript = Repli(Chr(0), 250)
* dwDetectFlags = 1, 2
* PROXY_AUTO_DETECT_TYPE_DHCP
* PROXY_AUTO_DETECT_TYPE_DNS_A
IF DetectAutoProxyUrl(@lcRmScript, Len(lcRmScript), 2) = 0
WAIT WINDOW NOWAIT "Not detected. "
RETURN
ENDIF
lcRmScript = STRTRAN(lcRmScript, Chr(0), "")
IF Not EMPTY(lcRmScript)
= MessageB("Location of a WPAD autoproxy script: " +;
Chr(13)+Chr(13) + lcRmScript, 64, " DetectAutoProxyUrl")
WAIT WINDOW NOWAIT "Donwloading from URL... "
lcLocal = SYS(2003) + "\autoscript.txt"
URLDownloadToFile(0, lcRmScript, lcLocal, 0,0)
WAIT WINDOW NOWAIT "Downloaded from " + lcRmScript + " "
IF FILE(lcLocal)
MODI FILE (lcLocal) NOMODI NOWAIT
ENDIF
ENDIF
* end of main
PROCEDURE decl
DECLARE INTEGER GetLastError IN kernel32
DECLARE INTEGER DetectAutoProxyUrl IN wininet;
STRING @lpszAutoProxyUrl, LONG dwAutoProxyUrlLength,;
LONG dwDetectFlags
DECLARE INTEGER URLDownloadToFile IN urlmon;
INTEGER pCaller, STRING szURL, STRING szFileName,;
INTEGER dwReserved, INTEGER lpfnCB
|