Simple web page downloader
|
This LotusScript agent downloads a web page from web server.
Sub Initialize
Dim xml, tmp
Set xml = CreateObject("Microsoft.XMLHTTP")
Call xml.Open ("GET", "http://www.company.com/files/page1.html", False)
' adding "?rnd="+Cstr(Timer) to the URL will help avoiding caching problems
Call xml.SetRequestHeader ("Content-type", "text/html" )
Call xml.Send()
tmp = xml.responseText
Set xml = Nothing
Msgbox tmp 'show the full HTML content of the page
End Sub
|
|