一个WebBrowser的问题

Question

用webBrowser做了一个浏览器，如何取得鼠标点击的超级链接。
像FlashGet一样，如果我点击的是一个Zip文件，则会弹出窗体让我下载，请问类似的功能如何实现。
请大家提供资料或给些提示也好

Answer 1

難道NI的TWebBrowser不能自動完成上述功能嗎？我試了試、TWebBrowser控件都能自動完成呀！

Answer 2

控制BeforeNavigator事件：Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Debug.Print URL
End Sub通过事件中的URL判断是否是下载的zip文件，然后进行你需要的操作。

Answer 3

楼上的，这是Delphi版，你贴VB的做什么呵

Answer 4

就是可以通过 BeforeNavigator 进行捕捉的，判断URL的结尾就可以知道文件类型了。
这一段的 VB 代码跟 Delphi 代码比较相近的，你换一下就可以了。

Answer 5

在WebBrowser1BeforeNavigate2事件中，判断URL（string类型）就可以知道连接的是网页还是其他文件了。

Answer 6

flashget是在注册表里做了修改。现在还没搞懂加了哪些设置。

Answer 7

Tencent是实现了IDownloadManager
记得有个IEDelphi自己写了一个下载管理器的

Answer 8

谢谢foreverzhang(ever_zhang)给的提示，问题已得到了解决

Answer 9

现在又有一个问题，点击的如果是ZIP文件，如果去掉IE的那个要求下载保存的窗体。如何屏蔽掉？

Answer 10

这个虽然可以用改注册表的方式改，改了不太好吧，又不是只有你一个程序用到这个设置
IE下载也会用到的
你要下载文件大可以用URLDownloadToFile自己下嘛