• 标 题:好东东大家分享一下,一个80K的小巧软件 (338字)
  • 作 者:冰泉2001
  • 时 间:2002-1-26 22:44:11
  • 链 接:http://bbs.pediy.com

你是不是经常要在一个网页里复制网址,然后把它粘贴到浏览器中打开

?有了Do!Link这个软件,你就可以直接复制网址然后按右键→Do!Link
就可以打开它了。软件挺管用的,可惜有时间限制,但没有输入注册码

的地方,它安装后没有主程序,只是往Windows的system文件夹及注册

表添加了一些东西,俺菜鸟不知到如何破,哪位大哥有空就把它解了,

造福大家啊!

  • 标 题:找到了 (180字)
  • 作 者:mici2k
  • 时 间:2002-1-27 13:26:03

C:\WINDOWS\SYSTEM\DLScr.htm
用编辑器打开发现是VBScript编写的,我不懂.不过>>>>>>
找到ExPireDate= #01/27/2002#这是我的安装日期
将其改为ExPireDate= #01/27/3002#这样就可以用1000年了.

  • 标 题:可以永不过期,比用1000年强吧 (300字)
  • 作 者:一一君
  • 时 间:2002-1-28 12:13:33

删除下面的
if DateAdd("m",1,ExpireDate)>Now() or (DateAdd("d",45,ExpireDate)>Now() and rnd()>0.25) then
:
:
else
        if DateAdd("d",45,ExpireDate)<Now() then
                ShowThePopup("DLExpired.htm")
        else
                ShowThePopup("DLWarning.htm")
        end if
end if

  • 标 题:这是我改的,如果有会VBScript给纠正一下. (1千字)
  • 作 者:mici2k
  • 时 间:2002-1-28 19:30:11

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