推扬网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
推扬网 门户 你问我答 查看内容

王小琰:opera 和迅雷关联的问题

2020-8-11 16:33| 发布者: admin| 查看: 61| 评论: 0

摘要: ?﹏??﹍浮雲的回答: opera里用迅雷关联最完美的办法只有用脚本了。1、将以下内容存为“byThunder.vbs” Sub AddLink(Url,Info,Location,strCID)if Url thenif Info = thenInfo = unknownend ifif Len(Info) 100 ...

?﹏??﹍浮雲的回答:

opera里用迅雷关联最完美的办法只有用脚本了。1、将以下内容存为“byThunder.vbs” Sub AddLink(Url,Info,Location,strCID)if Url <> "" thenif Info = "" thenInfo = "unknown"end ifif Len(Info) > 1000 thenInfo = Left(Info, 1000)end if set ThunderAgent = CreateObject("ThunderAgent.Agent.1") if strCID <> "" thencall ThunderAgent.AddTask3(Url, "", "", Info, Location, -1, 0, -1, "", strCID)elsecall ThunderAgent.AddTask(Url, "", "", Info, Location)end if call ThunderAgent.CommitTasks2(1)set ThunderAgent = nothingend ifend sub url = Wscript.Arguments.Item(0)addlink url,"Info","Location","strCID" 2、打开Opera的standard_menu.ini文件(在opera安装目录下的“defaults”文件夹里),在[Link Popup Menu]和[Image Link Popup Menu]中添加 Item, "用迅雷下载" = Execute program, "C:\byThunder.vbs","%l" (其中C:\byThunder.vbs表示byThunder.vbs保存在C盘根目录,需根据实际情况修改) 我就是用的这种办法,是可以用的。

?﹏??﹍浮雲的回答:

opera里用迅雷关联最完美的办法只有用脚本了。1、将以下内容存为“byThunder.vbs” Sub AddLink(Url,Info,Location,strCID)if Url <> "" thenif Info = "" thenInfo = "unknown"end ifif Len(Info) > 1000 thenInfo = Left(Info, 1000)end if set ThunderAgent = CreateObject("ThunderAgent.Agent.1") if strCID <> "" thencall ThunderAgent.AddTask3(Url, "", "", Info, Location, -1, 0, -1, "", strCID)elsecall ThunderAgent.AddTask(Url, "", "", Info, Location)end if call ThunderAgent.CommitTasks2(1)set ThunderAgent = nothingend ifend sub url = Wscript.Arguments.Item(0)addlink url,"Info","Location","strCID" 2、打开Opera的standard_menu.ini文件(在opera安装目录下的“defaults”文件夹里),在[Link Popup Menu]和[Image Link Popup Menu]中添加 Item, "用迅雷下载" = Execute program, "C:\byThunder.vbs","%l" (其中C:\byThunder.vbs表示byThunder.vbs保存在C盘根目录,需根据实际情况修改) 我就是用的这种办法,是可以用的。

?﹏??﹍浮雲的回答:

opera里用迅雷关联最完美的办法只有用脚本了。1、将以下内容存为“byThunder.vbs” Sub AddLink(Url,Info,Location,strCID)if Url <> "" thenif Info = "" thenInfo = "unknown"end ifif Len(Info) > 1000 thenInfo = Left(Info, 1000)end if set ThunderAgent = CreateObject("ThunderAgent.Agent.1") if strCID <> "" thencall ThunderAgent.AddTask3(Url, "", "", Info, Location, -1, 0, -1, "", strCID)elsecall ThunderAgent.AddTask(Url, "", "", Info, Location)end if call ThunderAgent.CommitTasks2(1)set ThunderAgent = nothingend ifend sub url = Wscript.Arguments.Item(0)addlink url,"Info","Location","strCID" 2、打开Opera的standard_menu.ini文件(在opera安装目录下的“defaults”文件夹里),在[Link Popup Menu]和[Image Link Popup Menu]中添加 Item, "用迅雷下载" = Execute program, "C:\byThunder.vbs","%l" (其中C:\byThunder.vbs表示byThunder.vbs保存在C盘根目录,需根据实际情况修改) 我就是用的这种办法,是可以用的。

?﹏??﹍浮雲的回答:

opera里用迅雷关联最完美的办法只有用脚本了。1、将以下内容存为“byThunder.vbs” Sub AddLink(Url,Info,Location,strCID)if Url <> "" thenif Info = "" thenInfo = "unknown"end ifif Len(Info) > 1000 thenInfo = Left(Info, 1000)end if set ThunderAgent = CreateObject("ThunderAgent.Agent.1") if strCID <> "" thencall ThunderAgent.AddTask3(Url, "", "", Info, Location, -1, 0, -1, "", strCID)elsecall ThunderAgent.AddTask(Url, "", "", Info, Location)end if call ThunderAgent.CommitTasks2(1)set ThunderAgent = nothingend ifend sub url = Wscript.Arguments.Item(0)addlink url,"Info","Location","strCID" 2、打开Opera的standard_menu.ini文件(在opera安装目录下的“defaults”文件夹里),在[Link Popup Menu]和[Image Link Popup Menu]中添加 Item, "用迅雷下载" = Execute program, "C:\byThunder.vbs","%l" (其中C:\byThunder.vbs表示byThunder.vbs保存在C盘根目录,需根据实际情况修改) 我就是用的这种办法,是可以用的。

Alex的回答:

我也出现这个问题,我的是因为安装路径中有中文如:c\软件\OPERA这样不行,迅雷不支持这样的路径,我改了路径右键菜单有了迅雷下载了


鲜花

握手

雷人

路过

鸡蛋

最新评论

热门推荐
最新资讯

广告服务|投稿要求|禁言标准|版权说明|免责声明|手机版|小黑屋|推扬网 ( 粤ICP备18134897号 )|网站地图 | 邮箱:vayae@hotmail.com

GMT+8, 2025-5-1 18:23 , Processed in 0.063665 second(s), 29 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

返回顶部