自動化ツールuwsc使いよ集まれ2

自動化ツールuwsc使いよ集まれ2 at SOFTWARE

421:名無しさん＠お腹いっぱい。
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, "保存")

次ページ

続きを表示

1を表示