#INCLUDE <wininet.h>
$LIBRARY <wininet.lib>

print InetGetSource$("http://1stcmc.com/testread.txt")
pause

FUNCTION InetGetSource OPTIONAL(strURL AS STRING, strHeader AS STRING = "") AS STRING
	LOCAL hIntOpen AS HINTERNET
	LOCAL hIntOpenURL AS HINTERNET
	LOCAL hDLLOpen AS HMODULE
	LOCAL strTemp AS STRING
	strTemp = strURL
	IF LCASE$(LEFT$(strTemp, 7)) <> "http://" AND _
		LCASE$(LEFT$(strTemp, 8)) <> "https://" THEN strTemp = "http://" & strTemp
	hIntOpen = InternetOpen("BCX GURUS", 0, 0, 0, 0)
	IF hIntOpen = NULL THEN FUNCTION = SetError(1,0,"")
	hIntOpenURL = InternetOpenUrl(hIntOpen, strTemp, strHeader, LEN(strHeader), 0x80000000, 0)
	IF hIntOpenURL = NULL THEN
		InternetCloseHandle(hIntOpen)
		FUNCTION = SetError(2,0,"")
	ENDIF
	LOCAL sBuffer$ * 2100000
	LOCAL tBuffer[1024] AS CHAR
	LOCAL pBuffer AS DWORD
	WHILE (InternetReadFile(hIntOpenURL,tBuffer,1023,&pBuffer))
		IF pBuffer = 0 THEN EXIT WHILE
		tBuffer[pBuffer] = 0
		sBuffer$ = sBuffer$ & tBuffer$
	WEND
	InternetCloseHandle(hIntOpen)
	InternetCloseHandle(hIntOpenURL)
	FUNCTION = sBuffer$
END FUNCTION