dllink.htm

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

<!--
Script for downloading selected item (file or image) from IE context menu
Copyright (c) 2004, VicMan Software
-->
<script language="VBScript">
	On Error Resume Next
	set obj = CreateObject ("WG.WGUrlReceiver" )
	if err<>0 then
		Alert("Free Download Manager not properly installed! Please reinstall Free Download Manager")
	else
		set ev = external.menuArguments.event
		set el = ev.srcElement
		set doc = external.menuArguments.document
		sel = doc.selection.createRange().text
		alt = el.Alt
		inr = el.innerText

		if sel <> "" then 
			obj.Comment = sel
		elseif alt <> "" then
			obj.Comment = alt
		else
			obj.Comment = inr
		end if

                set an = el
		do until TypeName (an) = "HTMLAnchorElement" Or TypeName (an) = "Nothing"
			set an = an.parentElement
		Loop

                if TypeName (an) = "Nothing" then 
			obj.Url = el.href
		else
			obj.Url = an.href
		end if

		obj.Referer = external.menuArguments.document.Url
		obj.AddDownload
        end if
</script>