- 77 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/12/20(日) 20:15:15 ID:sezMof5L0]
- // 待ちループなしのIE制御スクリプト
STOPFORM(true)
PUBLIC gIE2
gIE2 = CreateOLEObj("InternetExplorer.Application")
gIE2.visible = True
gIE = CreateOLEObj("InternetExplorer.Application")
gIE.visible = True
ID = HNDToID(gIE.HWND)
OLEEvent( gIE, "DWebBrowserEvents2", "TitleChange", "TitleChange" )
OLEEvent( gIE, "DWebBrowserEvents2", "BeforeNavigate2", "BeforeNavigate2" )
OLEEvent( gIE, "DWebBrowserEvents2", "NewWindow2", "NewWindow2" )
OLEEvent( gIE, "DWebBrowserEvents2", "OnQuit", "OnQuit" )
sleep(60)
CtrlWin(ID, CLOSE)
Procedure OnQuit()
exitexit
FEND
Procedure TitleChange() // キャッシュに入ってない場合に２回呼ばれる。そして１回目はページ受信前のタイトル。
Title = EVENT_PRM[0]
print "TC " + Title
FEND
Procedure BeforeNavigate2() // １回のページ操作につき１回呼ばれる。
IE = EVENT_PRM[0] // IEオブジェクト
URL = EVENT_PRM[1] // 開くURL
print "BN " + IEGetData( IE, "TAG=title" ) + " " + URL
FEND
Procedure NewWindow2()
EVENT_PRM[0] = gIE2 // 新しく指定するブラウザオブジェクト（自分自身は指定できない）
EVENT_PRM[1] = True // Cancel flag
print "NW"
Fend
|
 |
