[FlashGet]
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
[NetAnts]
ProgID=NetAnts.API
script=On Error Resume Next:set NetAntsApi=CreateObject("NetAnts.API"):if err<>0 then:MsgBox("NetAnts not properly installed on this PC!"):else:if NetAntsApi.IsUrlExist("%d_url") then : MsgBox("%d_url"+vbCrLf+"already in queue"):else:call NetAntsApi.AddUrl("%d_url", "%d_info", "%page.url"):end if
[ReGet]
ProgID=ClickCatcher.DownloadFromContextMenu
script=On Error Resume Next\nset Application=CreateObject("ClickCatcher.DownloadFromContextMenu")\nif err<>0 then\nMsgBox("ClickCatcher not properly installed on this PC!")\nelse\nApplication.Url = "%d_url"\nApplication.Info = "%d_url"\nApplication.Referer = "%page.url"\ncall Application.AddDownload()\nend if
[HiDownload]
ProgID=NetMoles.NetMoles
script=On Error Resume Next\nset NetMolesApi=CreateObject("NetMoles.NetMoles")\nif err<>0 then\nMsgBox("NetMoles not properly installed on this PC!")\nelse\nNetMolesApi.NMAddUrl "%d_url", "%page.url"\nend if
[Download Express]
ProgID=Mdpph.API.1
script=On Error Resume Next:set DP=CreateObject("Mdpph.API.1"):if err<>0 then:MsgBox("download express is not installed yet"):else:call DP.DownloadFile("%d_url","%d_info","%page.url"):end if
[Intertnet Download Accelerator]
ProgID=idaie.moveurlida
script=On Error Resume Next:set IDACOMObj=CreateObject("idaie.moveurlida"):if err<>0 then:MsgBox("ActiveX automation object placed in IDAIE.DLL is not registered or corrupted. Please try reinstall Internet Download Accelerator"):else:call IDACOMObj.AddURL("%d_url", "%page.url"):end if
[Mass Downloader]
ProgID=MassDown.AddUrl.1
script=On Error Resume Next:set MassDown=CreateObject("MassDown.AddUrl.1"):if err<>0 then:MsgBox("MassDown.dll is not registered. Please run `regsvr32.exe MassDown.dll"):else:call MassDown.AddUrlWithReferer("%d_url", "%download_info", "%page.url"):end if
[Star Downloader]
ProgID=sdext.stardownext
script=On Error Resume Next:set SDIE=CreateObject("sdext.stardownext"):if err<>0 then:MsgBox("sdext.dll could not be found. Please re-install Star Downloader"):else:call SDIE.DownloadURL("%d_url", "%page.url"):end if
[Download Master]
ProgID=dmie.moveurl
script=On Error Resume Next:set DMCOMObj=CreateObject("dmie.moveurl"):if err<>0 then:MsgBox("ActiveX automation object placed in DMIE.DLL is not registered or corrupted. Please try reinstall Download Master"):else:call DMCOMObj.AddURL("%d_url", "%page.url"):end if
[LeechGet]
ProgID=LeechGetIE.AddURL
script=On Error Resume Next:set LeechGet=CreateObject("LeechGetIE.AddURL"):if err<>0 then:MsgBox("LeechIE.dll is not registered. Please run `regsvr32.exe LeechIE.dll'"):else:call LeechGet.AddUrl("%d_url"):end if
[LeechGet 2004]
ProgID=LeechGetIE.LeechIE
script=On Error Resume Next:set LeechGet=CreateObject("LeechGetIE.LeechIE"):if err<>0 then:MsgBox("download express is not installed yet"):else:call LeechGet.AddUrl("%d_url"):end if
[DAP]
ProgID=dapie.catcher
script=On Error Resume Next:set DAPExt=CreateObject("dapie.catcher"):if err<>0 then:MsgBox("DAPIE.DLL is not registered or corrupted. Please re-install Download Accelerator Plus"):else:call DAPExt.MenuUrl("%d_url", "%page.url", ""):end if
[FreshDownload]
ProgID=fdcatch.fdnscatcher
script=On Error Resume Next:set FD=CreateObject("fdcatch.fdnscatcher"):if err<>0 then:MsgBox("FDCatch.dll is not registered or corrupted. Please re-install Fresh Download"):else:call FD.AddUrl("%d_url", "%page.url", 0):end if
[NetTransport2]
ProgID=NTIEHelper.NTIEAddUrl
Script=On Error Resume Next:set Obj=CreateObject("NTIEHelper.NTIEAddUrl"):if err<>0 then:MsgBox("NetTransport2 not properly installed!"+ vbCrLf+"Please install NetTransport2 again"):else:call Obj.AddLink("%d_url","%d_url","%d_info"):end if
我也来报到!