Set ie = CreateObject("olingi.ie")
If TypeName(ie) <> "IIE" Then
MsgBox "创建插件失败"
ExitScript
End If
ok = ie.open("网址")
If Not ok Then
MsgBox "打开网址失败"
ExitScript
End If
timeout = 10
isTimeout = false
nowTime = Now
continue = true
While continue
If DateDiff("s", nowTime, Now) > timeout Then
isTimeout = true
continue = false
ElseIf TypeName(ie.document) = "HTMLDocument" Then
If ie.document.ReadyState = "complete" Then
continue = false
End If
End If
Delay 200
Wend