' -------------------------------------------------
' IEReLXgj[ɃCXg[
' ȉݒ肷
' 
j[́AwЂ܂eXgx
NvÓA͂̃pX&weXg.hmwx
HTMLSt@ĆA͂̃pX&wS.htmx
I͈̓t@ĆA͂̃pX&wI͈.txtx
NpHTMĹA͂̃pX&wNpXNvg.htmx'͓KOK
' ܂

' -------------------------------------------------
' WXgւ̓o^
IEL[́AwSoftware\Microsoft\Internet Explorer\MenuExt\x
IEL[ɁAj[AB

HKEY_CURRENT_USEŔAIEL[AWXgJB
́ANpHTMLBwxɁAWXgB
$7FAwcontextsxɁAWXgDWORDB
0AwflagsxɁAWXgDWORDB
WXgB

' -------------------------------------------------
' Np HTML ̐
`́Aw<SCRIPT LANGUAGE="VBScript">
    Dim ws, fo, tf
    Dim SelText, Doc

	Set ws = CreateObject("WScript.Shell")
	Set fo = CreateObject("Scripting.FileSystemObject")

	' HTMLŜۑ
    Set tf = fo.CreateTextFile("__HTML_FILE__")
	Doc = external.menuArguments.document.all.tags("HTML")(0).outerHTML
    tf.WriteLine( Doc )
    tf.Close
	' IꂽeLXgۑ
    Set tf = fo.CreateTextFile("__TEXT_FILE__")
    SelText = external.menuArguments.document.selection.createRange().text
    tf.WriteLine( SelText )
    tf.Close
    
    'vO̎s
	ws.Run CHR(34) & "__RUN_FILE__" & CHR(34)
</SCRIPT>x
́A`B
w__HTML_FILE__xAHTMLSt@CɁAu
w__TEXT_FILE__xAI͈̓t@CɁAu
w__RUN_FILE__xANvOɁAu
NpHTMLցAۑB

uIẺENbNj[ɁA{j[}o^܂BvƁAB
B

