' -------------------------------------------------
' IEコンテキストメニューにインストール
' 以下を設定する
' ここから
メニュー名は、『ひまわりテスト』
起動プログラムは、母艦のパス&『テスト.hmw』
HTML全文ファイルは、母艦のパス&『全文.htm』
選択範囲ファイルは、母艦のパス&『選択範囲.txt』
起動用HTMLは、母艦のパス&『起動用スクリプト.htm』
' ここまで
' -------------------------------------------------
' レジストリへの登録
IEキーは、『Software\Microsoft\Internet Explorer\MenuExt\』
IEキーに、メニュー名を、足す。
HKEY_CURRENT_USERの、IEキーを、レジストリ開く。
それは、起動用HTML。『』に、レジストリ書く。
$7Fを、『contexts』に、レジストリにDWORDを書く。
0を、『flags』に、レジストリにDWORDを書く。
レジストリ閉じる。
' -------------------------------------------------
' 起動用 HTML の生成
雛形は、『<SCRIPT LANGUAGE="VBScript">
Dim ws, fo, tf
Dim SelText, Doc
Set ws = CreateObject("WScript.Shell")
Set fo = CreateObject("Scripting.FileSystemObject")
' HTML全体を保存する
Set tf = fo.CreateTextFile("__HTML_FILE__")
Doc = external.menuArguments.document.all.tags("HTML")(0).outerHTML
tf.WriteLine( Doc )
tf.Close
' 選択されたテキストを保存する
Set tf = fo.CreateTextFile("__TEXT_FILE__")
SelText = external.menuArguments.document.selection.createRange().text
tf.WriteLine( SelText )
tf.Close
'プログラムの実行
ws.Run CHR(34) & "__RUN_FILE__" & CHR(34)
</SCRIPT>』
それは、雛形。
『__HTML_FILE__』を、HTML全文ファイルに、置換
『__TEXT_FILE__』を、選択範囲ファイルに、置換
『__RUN_FILE__』を、起動プログラムに、置換
起動用HTMLへ、保存。
「IEの右クリックメニューに、{メニュー名}を登録しました。」と、言う。
おわり。
|