06/12/11 17:44:49 JjGOR1vX0
str = GetPnirText()
MSGBOX(str)
function GetPnirText()
// 選択文字列を取得（UWSC 4.1c, Sleipnir 1.67 で動作確認）
Dim doc, idx, pnir
try
pnir = CreateOLEObj("Sleipnir.API")
except
MSGBOX(TRY_ERRMSG + "<#CR><#CR>" +_
"<#TAB><#TAB>Sleipnirを起動してから実行して下さい。")
Result = -1
Exit // ExitExit
endtry
idx = pnir.GetDocumentID(pnir.ActiveIndex)
doc = pnir.GetDocumentObject(idx)
try
while POS("FRAME",doc.activeElement.tagName)
//msgbox(POS("FRAME",doc.activeElement.tagName)) // デバッグ用
doc = doc.activeElement.contentWindow.document
wend
Result = doc.selection.createRange().text // 選択文字列
except
Result = ""
endtry
fend
===========================
>>376
//SCKEY(id, VK_ALT, T); SLEEP(0.1); SCKEY(id, W, VK_RETURN) // *.mht で保存
CLKITEM(id, "Web アーカイブ、単一のファイル (*.mht)", CLK_LIST) //←何故か成功する 4.1c
CLKITEM(id, "保存")