07/07/03 14:01:12 Rpl5KRfL0
A.UWSの中身(B.UWSからCallされる)
.
IE.Navigate("URLﾘﾝｸ(yyy.com))
.
BusyWait(IE)
// IE.Quit // IE終了
//------
Procedure BusyWait(ie)
Sleep(1) // Wait
Const TIME_OUT = 90
tm = Gettime()
repeat
Sleep(0.8)
ifb Gettime() - tm > TIME_OUT
MsgBox("Time Out:BusyWait")
ExitExit
endif
until (! ie.busy) and (ie.readyState=4)
Sleep(0.5)
Fend
Time Out:BusyWaitで停止してしまう時があるのです、回避作教えて下さい。
07/07/03 00:00 Ｕスクリプト: COM_Error:例外が発生しました。
X:\UWSC\A.UWS: 46行目: UNTIL (! IE.busy) AND (IE.readyState=4)
B.UWSの中身(A.UWSをCallする部分)
for 回数 = 1 to 1
Call A.UWS
print 回数
next
ブラウザで対象の読み込みが一定時間内に完了しない場合、この作業を諦めて
エラーで停止することなく次の作業へ進ませたいのです。