で、できた〜
EXE内のIEのみ対応ですが、一応完成しましたので。
// IE準備完了フラグ準備
dim IE_ReadyFlag
// IE作成
axobj IE, "Shell.Explorer.2", 640, 360
// IEイベント割り込み
comevent IEEvent, IE, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"/*DIID_DWebBrowserEvents2*/, *Event
// 終了時に開放処理をする
onexit *Exit
// 選択範囲格納用変数準備
sdim SelectedString
// 表示用mesbox作成
sdim Temp, 1024
mesbox Temp, 640, 120
// とりあえずHSP3掲示板にアクセス
IE -> "Navigate" "http://hsp.tv/play/pforum.php"
// 準備完了になるまで待つ
repeat
wait 50
if IE_ReadyFlag : break
loop
*Main
// 選択範囲を取得
IERange = IESelection("createRange")
SelectedString = IERange("text")
// 表示
objprm 1, SelectedString
wait 50
goto *Main
*Event
if comevdisp(IEEvent) = 259/*DISPID_DocumentComplete*/ {
IEDoc = IE("Document")
IESelection = IEDoc("Selection")
IE_ReadyFlag = 1
}
return
*Exit
// 解放処理
if IE_ReadyFlag {
delcom IERange
delcom IESelection
delcom IEDoc
}
delcom IEEvent
delcom IE
end