林峰 泼墨桃花:关于BT的右键

如果你想有也可以，自己动手改注册表
将以下代码保存为geturl.htm，并放到你安装BT的目录下
***********************************
<script language="VBScript">

Sub AddLink(Url,Info,Location)
On Error Resume Next

set ThunderApi = CreateObject("Xunleibho.CatchRightClick.1")
if err<>0 then
MsgBox("Thunder not properly installed on this PC!")
else
if Url <> "" then
if Info = "" then
Info = "unknown"
end if
if Len(Info) > 1000 then
Info = Left(Info, 1000)
end if

DownloadInfo = "#*01#*" + Url + "#*02#*" + Location + "#*03#*" + Info + "#*04#*thunder_backwnd#*05#*"
retValue = ThunderApi.sendUrl(DownloadInfo)
end if
end if
end sub

Sub OnContextMenu()
set srcEvent = external.menuArguments.event
set srcLocation = external.menuArguments.location

set EventElement = external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = "MenuExtAnchor" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText,srcLocation)
elseif srcEvent.type="MenuExtImage" then
if TypeName(EventElement)="HTMLAreaElement" then
Call AddLink(EventElement.href,EventElement.Alt,srcLocation)
else
set srcImage = EventElement
set srcAnchor = srcImage.parentElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
call AddLink(srcImage.href,srcImage.Alt,srcLocation)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcImage.Alt,srcLocation)
end if
elseif srcEvent.type="MenuExtUnknown" then
set srcAnchor = EventElement
do until TypeName(srcAnchor)="HTMLAnchorElement"
set srcAnchor=srcAnchor.parentElement
if TypeName(srcAnchor)="Nothing" then
Call AddLink(EventElement.href,EventElement.innerText,srcLocation)
exit sub
end if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText,srcLocation)
elseif 1=1 then
MsgBox("Unknown Event Source """ + srcEvent.type + """" + vbCrLf + "Please send description of error to fengliang@sandai.net")
end if
end sub

call OnContextMenu()

</script>
*****************************************

然后将以下代码保存为right.reg
*****************************************
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&使用BT下载]
@="C:\\BT安装目录\\geturl.htm"
"Contexts"=dword:00000022
****************************************

“C:\\BT安装目录\\geturl.htm” 其实就是找到你安装BT的目录下面的geturl.htm文件，现在是假设你装在了C:\BT安装目录\ 下，你的geturl.htm就放在那下面，注意：写在right.reg文件里的时候“\”变成“\\”。

最后双击那个right.reg文件

申明：此方法是从添加其他下载软件到右键中学来的，对你的机器环境无法进行测试，并不能保证一定有效，如有任何系统错误，后果自负！！

呵呵，吓你的啦，应该没什么问题的，就算不行，你到时候在注册表里把那个添加的键值删除就可以了，应该不会影响到你系统的。还是怕的话，备份你的注册表吧！！

很简单 你把地址下好后 要选择打开之后它才会下载的