C
CK
I have this code. Is there anyway to determine is a site requires a login
and if so, do not display that page? Close the browser? Otherwise I have to
click cancel. Is this possible? Sorry for the cross post. I wasn't sure
where this belonged.
Thanks in advance,
~ck
'********** 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 ************
and if so, do not display that page? Close the browser? Otherwise I have to
click cancel. Is this possible? Sorry for the cross post. I wasn't sure
where this belonged.
Thanks in advance,
~ck
'********** 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 ************