09/01/25 14:11:57 XdmZStkM0
>>790
//以下コード
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(www.google.co.jp)")
BusyWait(IE)
IESetData(IE,True,"lr","lang_ja") // RADIO： 日本語のページを検索
MSGBOX( "日本語のページを検索 のラジオボタンをオンにしました．" )
IESetData(IE,True,"lr") // RADIO：ウェブ全体から検索
MSGBOX( "ウェブ全体から検索 のラジオボタンをオンにしました．" )
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