inovaさんありがとうございます。ちゃんとそうやっているはずなのですが・・・・
スクリプトは
sdim url, 512
input url, ginfo(12), 22
button gosub "移動", *navigate
button gosub "更新", *refresh
; IEコンポーネントの設置
axobj IE, "Shell.Explorer.2", ginfo(12), 300
stop
です。」
*navigate
if url = "" : return
IE->"Navigate" url
return
*refresh
if url = "" : return
IE->"Refresh" url
return
// IEコンポーネントのイベント
#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
; コントロール設置まわりの処理は省略
sdim sText, 512
comevent ie_event, IE, DIID_DWebBrowserEvents2, *event
stop
*event
DispID = comevdisp(ie_event)
// DISPID_STATUSTEXTCHANGE
if DispID = 102 {
comevarg sText, ie_event, 0
mes sText
return
}
// DISPID_TITLECHANGE
if DispID = 113 {
comevarg sText, ie_event, 0
mes sText
return
}
return
です。