I wrote a small program for screen scraping any sites using XmlHttp object and VBScript. I know I haven't done any rocket science :) still I thought of sharing the code with you all.
XmlHttp -- Extensible Markup Language Hypertext Transfer Protocol
An advantage is that - the XmlHttp object queries the server and retrieve the latest information without reloading the page.
Set objXmlHttp = CreateObject("Msxml2.XMLHttp")
URL == "UR site URL comes here"
objXmlHttp.Open "POST", url, False
objXmlHttp.onreadystatechange = getref("HandleStateChange")
If (ObjXmlHttp.readyState = 4) Then
msgbox "Screenscrapping completed .."
divShowContent.innerHtml = objXmlHttp.responseText
<input id="divResult" onclick="ScreenScraping()" type="button" value="Click here to start screen scraping" name="btnScreenScraping">
<div id="divShowContent" />
Points to note:
1. Many sites have policies against screen scraping ... so before trying to screen scraping any particular site .. do check / respect their policy.
2. I have checked for readyState = 4 property value. It means, we have received complete data in responseText. If we don't do this check we might end up getting incomplete data .. if the site takes longer time to process our request.
3. In objXmlHttp.Open the third parameter takes boolean value. True means, scripts run without waiting for a response from the site/server which we are hitting. False means, if would wait for server response before starting its processing.
For understanding the basics of XmlHttp object, check ...