IE 拡張メニューインストーラ 【アマゾン専用レビュージャンプ】




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


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



商品単位で即レビューを参照
/商品ID/ref という文字列が URL に含まれている通常リンクで使用できます。
たいていは、Amazon のトップから商品を検索して表示されるリストのタイトルで問題無いと思います。
( そのような文字列が無ければ、実行しても何も起こりません )

その他にも、このような URL は多く、例えば単品で表示した以下のような場所でも使用できます



ここは必ず OK とは Amazon の仕様に依存するのでなんとも言えませんが、
インストールされる、menuex_url_review.js の内容を変更すれば対応はできます。
( ちょっと専門的で難しいですが )

ジャンプ先はうちのサイトのレビュー表示 WEB アプリなんで、たいしたものでは
無いですが、レビュー内容は Amazon の WEB サービスから取得してます

http://webase.winofsql.jp/frame.htm

通常は、ID 入力してクリックするんですが、IE 拡張メニューから来る時は、
クリップボード経由でデータを受け渡ししているので、環境によってはひょっとしたら
動かないかもしれませんが、IE のセキュリティ設定あたりを触れば OK だと思います。

後、WEB ページを表示するのに、IE を直接呼出しているので
以下のコマンドが動かない環境では動作しません
( その場合は、menuex_url_review.js の中の以下の部分の IE にパスを指定 )
iexplore.exe http://webase.winofsql.jp/frame.htm
インストール場所は、通常 C:\Program Files\laylaClass\menuex です。
C:\Program Files の部分は環境によって変わる可能性があります



インストールソースコード
WEB 上の VBScript ライブラリを使っているので、インターネットに繋がってないと
動作しません。また、@nifty のせいでちょっと遅いかもしれませんが・・・
<JOB>
<COMMENT>
************************************************************
IE 拡張メニューインストーラ

■アマゾン検索結果ページ専用レビュージャンプ

■著作権その他

このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(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 "【アマゾン検索結果ページ専用レビュージャンプ】をインストールします"
if not OkCancel( "インストールしてもよろしいですか?" ) then
	Wscript.Quit
end if

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

strInstallPath1 = ProgDir() & "\laylaClass"
strInstallPath2 = ProgDir() & "\laylaClass\menuex"
strInstallPath3 = ProgDir() & "\laylaClass\menuex\menuex_url_review.js"

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

Call PutTextFile( strInstallPath3, GetInline("menuex_url_review") )

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

on error resume next
WshShell.RegWrite _
	"HKCU\Software\Microsoft\Internet Explorer\MenuExt\−◎レビュージャンプ\", _
	strInstallPath3, _
	"REG_SZ"
WshShell.RegWrite _
	"HKCU\Software\Microsoft\Internet Explorer\MenuExt\−◎レビュージャンプ\Contexts", _
	&H20, _
	"REG_DWORD"
on error goto 0

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

Wscript.Quit

</SCRIPT>

<RESOURCE id="menuex_url_review">
<![CDATA[
<meta http-equiv="content-type" content="text/html; charset=SHIFT_JIS">
<SCRIPT language="JavaScript">
// *************************************************
// リンクの URL を取得
// *************************************************

	try {
		// *************************************************
		// カーソル下のオブジェクト
		// *************************************************
		var obj = external.menuArguments.event.srcElement;
		var str = obj.tagName;

		// *************************************************
		// アンカー専用処理( レジストリ 0x20 )
		// *************************************************
		if ( str.toUpperCase() == 'A' ) {
			str = external.menuArguments.event.srcElement.href;

			var re = new RegExp("/([^/]+)/ref","ig");
			re.exec(str);
			str = RegExp.$1
			if ( str.length == 10 ) {
				if ( external.menuArguments.location.hostname == 'www.amazon.co.jp' ) {
					// クリップボードコピー
					window.clipboardData.setData("Text","*amazon*" +str	);

					var wsh = new ActiveXObject("WScript.Shell");
					wsh.Run("iexplore.exe http://webase.winofsql.jp/frame.htm")
				}
			}
		}
	}
	catch(e) {
		// このページの URL
		str = external.menuArguments.location.href;
	}
//	alert(str);

</SCRIPT>
]]>
</RESOURCE>

</JOB>