关于VB的WebBrowser控件问题(请高手解答+50分)

来源：百度知道 编辑：UC知道 时间：2024/06/14 05:20:05
关于VB的WebBrowser控件问题(请高手解答)
我用
WebBrowser1.Navigate "http://www.echu.net" 打开一个网站
我在VB的窗口中点击网页打开的新网页并不一定都是还在VB的窗口中打开的，我怎么做才能在我关闭VB所写的软件的时候把我刚才打开的IE窗口也关掉？另一个问题，我可以不可以把在VB网页窗口中的文件只在我的VB中打开并不在新的IE窗口中打开？
(请高手解答，完美者+100分)

一：
这个是关掉IE,但出把启动的所有网页关掉
shell "taskkill /im iexplore.exe /f"
二：
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "www.baidu.com"
End Sub

Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
WebBrowser1.Navigate2 URL
End Sub

我回答另一个问题吧。。
简单的说，在有些时候弹出窗口会判断来源和父窗口，判定不当要求重新登录。
这就要求在编程的时候过滤此窗口。。操作如下：

如果链接、按钮没有名称，循环判断直到找到你要的链接（或其它）
判断地址，读取相关字符串。。，处理得到你要的网址。。
webbrowser1.document.all(i).href="你想要的网址"
。。。。。。。。。。。。 .click

如果到期解决不了我再帮你处理吧。。

共有两种方法，请选择：
一、同样弹出窗口，但为VB窗口，而非IE窗口
Private Sub WebBrowser1_NewWindow2(ppDisp As Objec