dlall.htm

来自「dminstV2.0.423源码介绍: 是一个完全免费的多功能的下载和管理工具。」· HTM 代码 · 共 30 行

<!--
Script for downloading all links in IE window
Copyright (c) 2004, VicMan Software
-->
<script language="VBScript">
	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 = external.menuArguments.document.links
        	set imags = external.menuArguments.document.images
		
		obj.Referer = external.menuArguments.document.Url

		for i = 0 to links.length - 1
			obj.Url = links(i).href
			obj.Comment = links(i).innerText	
			obj.AddUrlToList
		next 

                for i = 0 to imags.length - 1
			obj.Url = imags(i).href
			obj.Comment = imags(i).Alt	
			obj.AddUrlToList
		next 

		obj.ShowAddUrlListDialog
        end if
</script>