WEB ページ上のリンクを HTML としての A タグで再構築してクリップボードにコピーします ※ アンカー再構築(HTML作成) 以外のコマンドは別のインストーラでインストールしたものです 画像のリンクの場合は、テキスト候補として以下の順序で取得します 1) alt 属性 2) title 属性 3) 入力値 画像に属性が存在する場合は、window.prompt で値を入力します ブラウザでダウンロード( winofsql.jp を信頼していただけるなら、そのまま実行して使えます ) このリンクはアンインストーラです 作成されるHTMLtarget="_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> |