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
都可以删除了.