王小琰:opera 和迅雷关联的问题
?﹏??﹍浮雲的回答:
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这样不行,迅雷不支持这样的路径,我改了路径右键菜单有了迅雷下载了