就像网际快车 QQ,这个htm文件是怎样启动网际快车的主程序的?谢谢!

解决方案 »

  1.   

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

  2.   

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

  3.   

    htm启动主程序用wscript.shell就可以了不过我觉得你说得原里可能有问题
      

  4.   

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

  5.   

    这是迅雷的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 subSub 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 [email protected]")
    end if
    end sub
    call OnContextMenu()
    </script>