|
View Page为什么不支持迅雷下载?
在设置里设置是迅雷下载了,但是点击后老是提示说你没有安装软件,在里边的代码是:
function Thunder(nL)
On Error Resume Next
set ThunderApi = CreateObject("Xunleibho.CatchRightClick.1")
if err<>0 then
MsgBox("Thunder not properly installed on this PC!")
else
Info = "Download from ViewPage"
DownloadInfo = "#*01#*" + nL + "#*02#*" + document.Location + "#*03#*" + Info + "#*04#*迅雷4#*05#*"
retValue = ThunderApi.sendUrl(DownloadInfo)
end if
end function
不知道怎么修改才可以。谢谢 |
|