IE = CreateOLEObj("InternetExplorer.Application") IE.Visible = True IE.Navigate("http://canal22.org/") BusyWait(IE) SLEEP(45) IE.Quit // IE終了 //------ Procedure BusyWait(ie) Sleep(0.5) // Wait Const TIME_OUT = 90 tm = Gettime() repeat Sleep(0.2) ifb Gettime() - tm > TIME_OUT MsgBox("Time Out:BusyWait") ExitExit endif until (! ie.busy) and (ie.readyState=4) Sleep(0.5) Fend IE.Navigate("about:blank"