Function DownloadAllOrbit()
	On Error Resume Next
	Set obj=CreateObject("Orbitmxt.Orbit")
	if err<>0 then
		MsgBox("Orbit not installed.")
		DownloadAllOrbit = False
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		ReDim urls(links.length-1)
		Dim i
		For i=0 to links.length-1
			urls(i) = links(i).href + "&OBT_fname=" + links(i).alt
		Next
		Call obj.downloadList(urls, "", "", "")
		DownloadAllOrbit = True
	end if
End Function
Function DownloadAllFlashGet()
	On Error Resume Next
	Set JetCarCatch=CreateObject("JetCar.Netscape")
	if err<>0 then
		MsgBox("FlashGet not installed.")
		DownloadAllFlashGet=False
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		ReDim params(links.length*2)
		params(0) = document.Url
		Dim i
		For i=0 to links.length-1
			params(2*i+1) = links(i).href
			params(2*i+2) = links(i).alt
		Next
		JetCarCatch.AddUrlList params
		DownloadAllFlashGet = True
	end if
End Function
Function DownloadItemNetTransport(url, name)
	On Error Resume Next
	Set NTIECatcher=CreateObject("NTIEHelper.NTIEAddUrl")
	if err<>0 then
		DownloadItemNetTransport=False
	else
		call NTIECatcher.AddLink(document.Url, url, name)
		DownloadItemNetTransport=True
	end if
End Function
Function DownloadAllNetTransport()
	On Error Resume Next
	set NTIECatcher = CreateObject("NTIEHelper.NTIEAddUrl")
	if err<>0 then
		DownloadItemNetTransport=False
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		ReDim hrefs(links.length)
		ReDim remarks(links.length)
		Dim i
		for i = 0 to links.length - 1
			hrefs(i) = links(i).href
			remarks(i) = links(i).alt
		next
		call NTIECatcher.AddList(document.Url, hrefs, remarks)
		DownloadItemNetTransport=True
	end if
End Function
Function DownloadItemNetAnts(url, name)
	On Error Resume Next
	set NetAntsApi=CreateObject("NetAnts.API")
	if err<>0 then
		DownloadItemNetAnts=False
	else
		if NetAntsApi.IsUrlExist(url) then
			MsgBox(url + " alread in queue!")
			DownloadItemNetAnts=False
		else
			call NetAntsApi.AddUrl(url, name, document.Url)
			DownloadItemNetAnts=True
		end if
	end if
End Function
Function DownloadItemReGet(url, name)
	On Error Resume Next
	set Application=CreateObject("ClickCatcher.DownloadFromContextMenu")
	if err<>0 then
		DownloadItemReGet=False
	else
		Application.Url = url
		Application.Info = name
		Application.Referer = document.Url
		call Application.AddDownload()
		DownloadItemReGet=True
	end if
End Function
Function DownloadItemHiDownload(url, name)
	On Error Resume Next
	set NetMolesApi=CreateObject("NetMoles.NetMoles")
	if err<>0 then
		DownloadItemHiDownload=False
	else
		NetMolesApi.NMAddUrl url, document.Url
		DownloadItemHiDownload=True
	end if
End Function
Function DownloadItemDLExpert(url, name)
	On Error Resume Next
	set dlexpertapi= CreateObject("dlexpertapi")
	if err<>0 then
		DownloadItemDLExpert=False
	else
		call dlexpertapi.addjob(url,document.Url)
		DownloadItemDLExpert=True
	end if
End Function
Function DownloadItemWellGet(url, name)
	On Error Resume Next
	set WGApi=CreateObject("NxApi.myComponent")
	if err<>0 then
		DownloadItemWellGet=False
	else
		call WGApi.AddUrl(url,name,document.Url)
		DownloadItemWellGet=True
	end if
End Function
Function DownloadItemThunderMini(url, name)
	On Error Resume Next
	set ThunderAgent = CreateObject("ThunderMiniAgent.Agent.1")
	if err<>0 then
		DownloadItemThunderMini=False
	else
		Call ThunderAgent.AddTask(url, "", "", name, document.Url)
		Call ThunderAgent.CommitTask2(1)
		DownloadItemThunderMini=True
	end if
End Function
Function DownloadAllThunderMini(url, name)
	On Error Resume Next
	set ThunderAgent = CreateObject("ThunderMiniAgent.Agent.1")
	if err<>0 then
		DownloadAllThunderMini=False
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		Dim i
		for i=0 to links.length-1
			Call ThunderAgent.AddTask(links(i).href, "", "", links(i).alt, document.Url)
		Next
		Call ThunderAgent.CommitTasks2(1)
		DownloadAllThunderMini=True
	end if
End Function
Function DownloadItemThunder5(url, name)
	On Error Resume Next
	set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
	if err<>0 then
		DownloadItemThunder5=False
	else
		call ThunderAgent.AddTask(url, "", "", name, document.Url)
		call ThunderAgent.CommitTasks2(1)
		DownloadItemThunder5=True
	end if
End Function
Function DownloadAllThunder5()
	On Error Resume Next
	Set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
	if err<>0 then
		MsgBox("Thunder5 not properly installed on this PC!")
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		Dim i
		for i=0 to links.length-1
			call ThunderAgent.AddTask(links(i).href, "", "", links(i).alt, document.Url)
		next
		call ThunderAgent.CommitTasks2(1)
	end if
End Function
Function DownloadAllFDM()
	On Error Resume Next
	set obj = CreateObject("WG.WGUrlListReceiver")
	if err<>0 then
		Alert("Free Download Manager not properly installed! Please reinstall Free Download Manager")
	else
		Set links = document.getElementById("resultArea").getElementsByTagName("a")
		obj.Referer = document.Url
		Dim i
		for i = 0 to links.length - 1
			obj.Url = links(i).href
			obj.Comment = links(i).alt
			obj.AddUrlToList
		next
		obj.ShowAddUrlListDialog
	end if
End Function