08/02/26 23:24:32
すまん足らなかった こっちで
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(www.google.co.jp)")
BusyWait(IE)
IESetData(IE,"初心者のためのプログラミング言語ガイド Part7","q") // TEXT
IESetData(IE,True,"btnG") // SUBMIT Google 検索
BusyWait(IE)
IELink(IE,"初心者のためのプログラミング言語ガイド Part7") // ｽﾚﾘﾝｸ(tech板)l50
BusyWait(IE)
IELink(IE,"最新50") // ｽﾚﾘﾝｸ(tech板)l50
BusyWait(IE)
IESetData(IE,"テスト","FROM") // TEXT
// 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