中国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>