' -------------------------------------------------
' IEコンテキストメニューにインストール
' 以下を設定する
' ここから
メニュー名は、『ひまわりテスト』
起動プログラムは、母艦のパス&『テスト.hmw』
HTML全文ファイルは、母艦のパス&『全文.htm』
選択範囲ファイルは、母艦のパス&『選択範囲.txt』
起動用HTMLは、母艦のパス&『起動用スクリプト.htm』'これは適当でOK
' ここまで

' -------------------------------------------------
' レジストリへの登録
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の右クリックメニューに、{メニュー名}を登録しました。」と、言う。
おわり。

