这是我改的,如果有会VBScript给纠正一下. (1千字)

DLScr.htm
<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>
下面是导出的注册表文件.
REGEDIT4
[HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\MenuExt\Do!Link]
@="C:\\WINDOWS\\SYSTEM\\DLScr.htm"
"Contexts"=dword:00000010
"Flag"=dword:00000001
好象有这两个就行了,其他的文件:
DLOops.htm
DLExpired.htm
DLWarning.htm
oops.gif
x.GIF
NLRegEntry.exe
都可以删除了.