' ＩＥオブジェクトの取得
Function GetIEobject
On Error Resume Next
Err.Clear
Set GetIEobject = WScript.CreateObject("InternetExplorer.Application","IE_")
If Err.number <> 0 Then
MsgBox "IEオブジェクトの作成に失敗しました"
Wscript.Quit
Exit Function
End If
On Error Goto 0
End Function
' ページのロード待ち
Sub WaitLoad
DO
DO
Wscript.Sleep 100
Loop while IE.Busy = true
LOOP while IE.ReadyState = READYSTATE_COMPLETE
end sub