|
日時: 2018/02/06 19:11
名前: lightbox
|
このスケルトンは、インストーラも兼ねています。
ダウンロード
拡張子:
<JOB>
<COMMENT>
************************************************************
IE 拡張メニューインストーラ
■サンプルアプリケーション
1) カーソル下のテキストを取得します
2) 選択状態のテキストがあれば、それを取得します
3) リンクの場合は、テキストと URL を取得します
4) HTML タグによっては( PRE など ) その範囲内のテキスト
を取得します
■著作権その他
このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(lightbox)が保有しています。
また、本ソフトを運用した結果については、作者は一切責任を
負えせんのでご了承ください。
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
' //////////////////////////////////////////////////////////
' インストール時の表示名
strProgName = "カーソル下テキスト情報取得"
' インストールファイル名( 拡張子は .htm となる )
strProgFile = "My_ie_MenuExt"
' メニューとウインドウのタイトルに表示する文字列
' レジストリに登録するのでユニークである必要があります
strRegName = "−★カーソル下テキスト情報取得"
' 対象となるコンンテンツ
nTargetType = &H3F
' &H3F : UNKNOWNを除く全て
' &H1 : DEFAULT
' &H2 : IMAGE
' &H4 : CONTROL
' &H8 : TABLE
' &H10 : TEXTSELECT
' &H20 : ANCHOR
' &H40 : UNKNOWN
' 画面ありがどうか
bIsGUI = True
' //////////////////////////////////////////////////////////
' Csript.exe で実行を強制
Crun
print strProgName & " をインストールします"
if not OkCancel( "インストールしてもよろしいですか?" ) then
Wscript.Quit
end if
' ファイルシステムオブジェクト作成
GetFso
strInstallPath1 = "c:\laylaClass"
strInstallPath2 = "c:\laylaClass\menuex"
strInstallPath3 = "c:\laylaClass\menuex\" & strProgFile & ".htm"
on error resume next
if not Fso.FolderExists( strInstallPath1 ) then
Call Fso.CreateFolder( strInstallPath1 )
if Err.Number <> 0 then
ErrorFlg = True
end if
end if
if not Fso.FolderExists( strInstallPath2 ) then
Call Fso.CreateFolder( strInstallPath2 )
if Err.Number <> 0 then
ErrorFlg = True
end if
end if
on error goto 0
' ******** ●ここを変更● ********
Call PutTextFile( strInstallPath3, _
Replace(GetInline("MenuExt"),"$REGNAME", strRegName ) )
' レジストリ処理用オブジェクト作成
GetWshShell
on error resume next
WshShell.RegWrite _
"HKCU\Software\Microsoft\Internet Explorer\MenuExt\"&strRegName&"\", _
strInstallPath3, _
"REG_SZ"
WshShell.RegWrite _
"HKCU\Software\Microsoft\Internet Explorer\MenuExt\"&strRegName&"\Contexts", _
nTargetType, _
"REG_DWORD"
if bIsGUI then
' この定義があると、画面あり
WshShell.RegWrite _
"HKCU\Software\Microsoft\Internet Explorer\MenuExt\"&strRegName&"\Flags", _
&H1, _
"REG_DWORD"
end if
on error goto 0
print "処理が終了しました"
print ""
Wscript.Quit
</SCRIPT>
<COMMENT>
******** ●ここを変更● ********
</COMMENT>
<RESOURCE id="MenuExt">
<![CDATA[
<SCRIPT language="VBScript">
Dim WshShell,RegName,strLocation,obj,doc
Set WshShell = CreateObject("WScript.Shell")
RegName = "$REGNAME"
' *************************************************
' ウインドウサイズ
' *************************************************
window.dialogWidth = "800px"
window.dialogHeight = "600px"
' window.dialogTop = "100px"
' window.dialogLeft = (window.screen.width/2)&"px"
strLocation = external.menuArguments.location
on error resume next
ExecuteGlobal "function dummy(): end function"
on error goto 0
Function setObj( src )
Set obj = src
End Function
</SCRIPT>
<SCRIPT language="JavaScript">
setObj(external.menuArguments.event.srcElement);
</SCRIPT>
<html>
<head>
<title>$REGNAME</title>
<meta http-equiv="content-type" content="text/html; charset=SHIFT_JIS">
<STYLE type="text/css">
* {
font-size:12px;
}
body {
margin:0;
}
</STYLE>
<SCRIPT language="VBScript">
' 関数定義用
</SCRIPT>
<base target="_self">
</head>
<BODY>
<FORM
method="POST"
action="http://host/サーバ側処理.php"
>
<TEXTAREA
name="text"
style='width:790px;height:550px;'
></TEXTAREA>
<INPUT
type="submit"
name="send"
value="送信"
><br>
</FORM>
</BODY>
</html>
<SCRIPT for=window event=onload language="VBScript">
' onload 処理
Set doc = obj.document
set objTextArea = doc.selection
set objTextRange = objTextArea.createRange( )
on error resume next
strData = objTextRange.text
nLen = Len( strData )
on error goto 0
if nLen <> 0 then
document.getElementsByName("text")(0).value = strData
else
strTag = obj.tagName
if UCase( strTag ) = "A" then
strWork = obj.innerText
strWork = strWork & vbCrLf & obj.href
document.getElementsByName("text")(0).value = strWork
else
document.getElementsByName("text")(0).value = obj.innerText
end if
end if
</SCRIPT>
]]>
</RESOURCE>
</JOB>
|