Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
dim objXMLHTTP,URL
DestFolder = "./"
URL = "put the url here"
set objXMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.4.0")
objXMLHTTP.Open "GET", URL, False
[red]objXMLHTTP.SetRequestHeader "Authorization", "authenticationcode"[/red]
objXMLHTTP.Send
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write objXMLHTTP.responseBody
oStream.savetofile DestFolder & strFilename, adSaveCreateNotExist
oStream.close
set oStream = nothing
Set objXMLHTTP = Nothing