请问为什么IE右健里的程序都需要一个htm文件

[daewoo]

就像网际快车 QQ，这个htm文件是怎样启动网际快车的主程序的？谢谢！

[Andy__Huang]

這個你要到注冊表裡面找，要找到start page首頁啟動在哪裡，然後把它設置為首頁

[daewoo]

不好意思是我没说清楚，要想像网际快车那样添加到IE右健里，必须在注册表里添加一个建值，这个建值连接到网际快车文件夹里的一个htm文件，但是点击右健“使用网际快车下载“启动的是主程序而不是htm，请问它的原理是什么？htm文件怎样启动主程序的？

[happy_sea]

关注。。。

[笨笨兔兔兔兔兔]

htm启动主程序用wscript.shell就可以了

不过我觉得你说得原里可能有问题

[happy_sea]

打开jc_link和jc_all这两个htm文件看了一下，里面是一段VBScript，先创建"JetCar.Netscape"对象，再添加下载地址，只能大体看懂这个意思，具体原理和应用俺也不会，共同学习中。。。

[wudeqing]

有那种系统工具呀！找个试试不就可以了

[daewoo]

这是迅雷的htm文件，哪里是调用主程序的地方？
<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 Info = "" then
Info = "unknown"
end if
DownloadInfo = "#*01#*" + Url + "#*02#*" + Location + "#*03#*" + Info + "#*04#*迅雷4#*05#*"
retValue = ThunderApi.sendUrl(DownloadInfo)

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 [e-mail]")
end if
end sub
call OnContextMenu()
</script>