在迅雷官方论坛找到一个方法,自己看看吧:
opera中使用迅雷完美解决方案
Sub AddLink(Url,Info,Location,strCID)
if Url <> "" then
if Info = "" then
Info = "unknown"
end if
if Len(Info) > 1000 then
Info = Left(Info, 1000)
end if
set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
if strCID <> "" then
call ThunderAgent.AddTask3(Url, "", "", Info, Location, -1, 0, -1, "",
strCID)
else
call ThunderAgent.AddTask(Url, "", "", Info, Location)
end if
call ThunderAgent.CommitTasks2(1)
set ThunderAgent = nothing
end if
end sub
url = Wscript.Arguments.Item(0)
addlink url,"注释","引用页","strcid"
将以上内容存为geturl.vbs,放入opera目录,在[Link Popup Menu]和[Image Link Popup Menu]中添加Item, "用thunder下载" = Execute program, "geturl.vbs","%l"即可
详见
http://han-gang.spaces.live.com/blog/cns!A4A77068CDA56AEA!197.entry