- UID
- 38555
- 帖子
- 1366
- 精华
- 0
- 贡献
- 0
- 推广
- 0
- 有效BUG
- 0
- 注册时间
- 2007-1-9
|
9#
发表于 2009-2-27 14:07
| 只看该作者
本帖最后由 rebirth 于 2009-2-27 14:09 编辑
如果你只有迅雷5 的话,那么应该有两个,IE和迅雷5 ,其它的就是多余.
根据tw的下载器探测代码,你搜索相关的注册表(引号内),清除即可:比如网际快车搜索JetCar.Netscape
[网际快车]
ProgID=JetCar.Netscape
Script=On Error Resume Next:set JetCarCatch=CreateObject("JetCar.Netscape"):if err<>0 then:MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again"):else:call JetCarCatch.AddUrl("%d_url","%d_info","%page.url"):end if
[web迅雷]
ProgID=ThunderServer.WebThunder.1
Script=On Error Resume Next:Set obj=CreateObject("ThunderServer.WebThunder"):If Err<>0 Then:MsgBox("Web 迅雷 not properly installed!"):Else:Call obj.CallAddTask2("%d_url", "%d_info", "%page.url", 1, "", "", ""):End If
[超级旋风]
ProgID=QQIEHelper.QQRightClick.2
Script=On Error Resume Next:set QQRightClick=CreateObject("QQIEHelper.QQRightClick.2"):if err<>0 then:MsgBox("QQDownload not properly installed on this PC!"):else:call QQRightClick.sendUrl2("%d_url",document.Url,"d_info",document.cookie,0,0):end if |
|