'********** Example Code ************
OpenWebSites
WScript.echo "Done"
WScript.quit
Sub OpenWebSites
Dim objHTML
Dim sUrls
Dim sBody
Const DELIMITER = ","
sUrls =
Split("https://mail02.innovasi.com/exchange,http://www.google.com",DELIMITER)
Set objHTML = CreateObject("InternetExplorer.Application")
For j = 0 To UBound(sUrls)
objHTML.Visible = True
objHTML.Navigate(sUrls(j))
while objHTML.ReadyState <> 4
WScript.sleep 50
wend
sBody = objHTML.Document.body.innerText
WScript.echo sBody
Next
End Sub
'********* End Code ************
If you are not familiar with HTML, it might be a little difficult to figure
out. For learning purposes, you might download and run a freebee HTMLEditor
download from Microsoft. Learn about this simple HTML editor at:
http://msdn2.microsoft.com/en-us/library/ms537834.aspx;
Download it at:
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/samples/internet/author/html/htmleditor/default.asp
To use it, go to one of the password-requiring URLs, select some part of the
screen that indicates you want to skip it, and paste it into the
HTML_Editor.hta window. Use its File menu to save it to a file. View that
saved file in a text/html/script editor, and you should have just a small
amount of HTML code to figure out.
-Paul Randall
"CK" <c_kett...@hotmail.com> wrote in message
news:nRsVi.15824$lD6....@newssvr27.news.prodigy.net...