自動化ツールuwsc使いよ集まれ3

自動化ツールuwsc使いよ集まれ3 at SOFTWARE

793:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示