IE 拡張メニューインストーラ 【アンカー再構築(HTML作成)】

WEB ページ上のリンクを HTML としての A タグで再構築してクリップボードにコピーします

アンカー再構築(HTML作成) 以外のコマンドは別のインストーラでインストールしたものです


画像のリンクの場合は、テキスト候補として以下の順序で取得します

1) alt 属性
2) title 属性
3) 入力値

画像に属性が存在する場合は、window.prompt で値を入力します



ブラウザでダウンロード( winofsql.jp を信頼していただけるなら、そのまま実行して使えます )


このリンクはアンインストーラです



作成されるHTML
target="_blank" で固定ですが、ソースコードを変更すれば変わります。

※ 以下のコードは見易さの為に改行を入れています( 実際は一行 )
※ しかし、これもソースコードで変更可能です
<a href="http://maglog.jp/lightbox/Article473338.html" target="_blank">
PHP OpenID library の一連の処理のオブジェクトの内容</a>

インストールソースコード
******** ●ここを変更● ******** の部分を変更すると、
オリジナルが作成できます
<JOB>
<COMMENT>
************************************************************
IE 拡張メニューインストーラ

■クリップ=>アンカー(HTML作成)

■著作権その他

このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(lightbox)が保有しています。
また、本ソフトを運用した結果については、作者は一切責任を
負えせんのでご了承ください。
************************************************************
</COMMENT>

<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )

' Csript.exe で実行を強制
Crun

print "【クリップ=>アンカー(HTML作成)】をインストールします"
if not OkCancel( "インストールしてもよろしいですか?" ) then
	Wscript.Quit
end if

' ファイルシステムオブジェクト作成
GetFso

strInstallPath1 = ProgDir() & "\laylaClass"
strInstallPath2 = ProgDir() & "\laylaClass\menuex"
' ******** ●ここを変更● ********
strInstallPath3 = ProgDir() & "\laylaClass\menuex\clip_to_anchor.js"

on error resume next
Call Fso.CreateFolder( strInstallPath1 )
Call Fso.CreateFolder( strInstallPath2 )
on error goto 0

' ******** ●ここを変更● ********
Call PutTextFile( strInstallPath3, GetInline("clip_to_anchor") )

' レジストリ処理用オブジェクト作成
GetWshShell

on error resume next
' ******** ●ここを変更● ********
WshShell.RegWrite _
	"HKCU\Software\Microsoft\Internet Explorer\MenuExt\−●クリップ=>アンカー(HTML作成)\", _
	strInstallPath3, _
	"REG_SZ"
' ******** ●ここを変更● ********
WshShell.RegWrite _
	"HKCU\Software\Microsoft\Internet Explorer\MenuExt\−●クリップ=>アンカー(HTML作成)\Contexts", _
	&H3f, _
	"REG_DWORD"
on error goto 0

print "処理が終了しました"
print ""

Wscript.Quit

</SCRIPT>

<COMMENT>
******** ●ここを変更● ********
</COMMENT>
<RESOURCE id="clip_to_anchor">
<![CDATA[
<meta http-equiv="content-type" content="text/html; charset=SHIFT_JIS">
<SCRIPT language="JavaScript">

	try {
		// クリップボード
		strClip  = window.clipboardData.getData("Text")
		var txt = 
			window.prompt(
				"アンカー用のテキストを入力して下さい\n【 "+strClip + " 】",
				strClip);

		var stra = "<" + "a href=\"" + strClip + "\"";
		stra += " target=\"_blank\"";
		stra += ">" + txt + "<" + "/a>";

		window.clipboardData.setData("Text", stra );

		str = stra;

	}
	catch(e) {
		// このページの URL
		str = external.menuArguments.location.href;
	}

	alert(str);

</SCRIPT>
]]>
</RESOURCE>

</JOB>