中国DOS联盟

[Version]
Signature="$Chicago$"
Provider="MetaBuilders"

[DestinationDirs]
DefaultDestDir=10,"web"

[DefaultInstall]
AddReg=CopyUrl_AddReg
CopyFiles=CopyUrl_CopyFiles

[CopyImageUrl_CopyFiles]
CopyUrl.html

[CopyImageUrl_AddReg]
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开",,%REG_SZ%,"%10%\web\Url456.html"
HKCU,"Software\Microsoft\Internet Explorer\MenuExt\链接到剪贴版并用IE打开","contexts",%REG_Dword%,00000034
[Strings]
REG_SZ=0x00000000
REG_BINARY=0x00000001
REG_DWORD=0x00010001

<SCRIPT LANGUAGE="JavaScript" defer>
    var parentWin = external.menuArguments;
    var srcEvent = external.menuArguments.event;
    var doc = parentWin.document;
    var eventElement = doc.elementFromPoint ( srcEvent.clientX, srcEvent.clientY );
    var cpb = parentWin.clipboardData;
   
    var src123 = eventElement;
    var str = new String(src123.href.toString());
    str =  + str +
   
    cpb.setData("Text",str.toString());
    window.open(cpb.getData("text"),"");
               
</SCRIPT>

<SCRIPT LANGUAGE="VBScript" defer>
<!--
Dim PopupBreite
Dim PopupHoehe
Dim ExpireDate

sub ShowThePopup(Which)
        PosStr = "left=" & exwin.event.screenx
        PosStr = PosStr & ",top=" & exwin.event.screeny
        PosStr = PosStr & ",width=" & PopupBreite
        PosStr = PosStr & ",height=" & PopupHoehe
        PosStr = PosStr & ",resizable=no,scrollbars=no,menubar=no,toolbar=no,location=no,directories=no,status=no"
        window.open Which,"popup", PosStr
end sub

PopupBreite = 400
PopupHoehe = 200

Randomize(Time())

set exwin = external.menuArguments
set sel = exwin.document.selection
set rng = sel.createRange()
Wort = rng.text


if Wort = "" then
        set ptrng = exwin.document.body.createTextRange()
        ptrng.moveToPoint exwin.event.x, exwin.event.y
        ptrng.expand("word")
        Wort = ptrng.text
end if

Wort = Trim(Wort)


if Instr(Wort,"@")>0 and Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then
                if Left(LCase(Wort),7) <> "mailto:" then Wort="mailto:" & Wort
else
                if Left(LCase(Wort),7) <> "http://" and Left(LCase(Wort),6) <> "ftp://" then Wort="http://" & Wort
end if


window.open Wort



-->
</SCRIPT>