OLE – HTML file via GET

These scripts use OLE to fetch a HTML file from the web using a HTML GET command.


Note that the executable has a built-in HTML browser window. It can be made visible via the command  html

newscript
dim WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.Open("GET","http://www.ripetech.com/", false)
'
WinHttpReq.Send()
'
dim lStrg = WinHttpReq.ResponseText
dim aLine
dim index = 0
'
freestring = ""
DO
aLine = subLine ( lStrg, index)
IF ( istype(aline) = "STRING" ) then
freestring = freestring & aline
ELSE
EXIT DO
END if
index = index + 1
LOOP
' empty the applications HTML browser window
html ()
' send text to the HTML browser window
html = freestring
' display the HTML browser window
html