getallurl.htm

来自「计算机硬件技术基础课程设计,用汇编语言编写的出租车计价器。 近期下载过的用户: 」· HTM 代码 · 共 49 行

<script language="VBScript">

Sub OnContextMenu()
	set ThunderAgent = CreateObject("ThunderAgent.Agent.1")

	set links = external.menuArguments.document.links
	set images = external.menuArguments.document.images
	link_count = links.length
	image_count = images.length

	strDownloadPage = external.menuArguments.document.url
	set theDownloadPage = external.menuArguments.document.getElementById("thunder_down_pageurl")
	if TypeName(theDownloadPage) <> "Nothing" then
		strDownloadPage = theDownloadPage.value
	end if

	strStatPage = ""
	set theStatPage = external.menuArguments.document.getElementById("thunder_stat_pageurl")
	if TypeName(theStatPage) <> "Nothing" then
		strStatPage = theStatPage.value
	end if


	if strStatPage <> "" then
		for i = 0 to link_count-1
			call ThunderAgent.AddTask4(links(i).href, "", "", links(i).innerText, strDownloadPage, -1, 0, -1, external.menuArguments.document.cookie, "", strStatPage)
		next 
		
		for i = 0 to image_count-1
			call ThunderAgent.AddTask4(images(i).src, "", "", images(i).innerText, strDownloadPage, -1, 0, -1, external.menuArguments.document.cookie, "", strStatPage)
		next
	else
		for i = 0 to link_count-1
			call ThunderAgent.AddTask4(links(i).href, "", "", links(i).innerText, strDownloadPage, -1, 0, -1, external.menuArguments.document.cookie, "", "")
		next 
		
		for i = 0 to image_count-1
			call ThunderAgent.AddTask4(images(i).src, "", "", images(i).innerText, strDownloadPage, -1, 0, -1, external.menuArguments.document.cookie, "", "")
		next
	end if

	call ThunderAgent.CommitTasks2(1)
	set ThunderAgent = nothing
end sub

call OnContextMenu()

</script>