?? getallurl.htm
字號(hào):
<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>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -