Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.visible=1
.left=0
.top=0
.menubar=0
.toolbar=0
.statusBar=1
.height = 800
.width = 600
.TheaterMode = True
iHeight = .Height
iWidth = .Width
.TheaterMode = False
.Height = iHeight
.Width = iWidth
.navigate "http://www.google.com"
End With
'Wait until IE has finished loading
Do While objIE.ReadyState <> 4
WScript.Sleep 100
Loop
Set objIE = Nothing
|