VB点击网页弹窗的问题

我在VB里显示一个网页，然后我就用VB模拟点击网页里的图片，但是有个问题

就是弹出了一个新的窗口（IE）来显示那个网页。我想利用VB来显示另一个网页。有办法吗？

可以弄个WebBrowser1控件数组， WebBrowser1(0) WebBrowser1(1) 设计的时候重叠在一起，而后当打开新窗口时，原窗口隐藏，用对应的另一个窗口打开即可 由于两个窗口重叠在了一起，用户也无法觉察到 Dim iNum As Integer Private Sub Command1_Click() WebBrowser1(iNum).Navigate " http://www.baidu.com" End Sub Private Sub Form_Load() ShowWeb iNum End Sub Private Sub WebBrowser1_NewWindow2(Index As Integer, ppDisp As Object, Cancel As Boolean) ShowWeb 1 - Index Set ppDisp = WebBrowser1(1 - Index).Object End Sub Private Sub ShowWeb(ByVal i As Integer) WebBrowser1(i).Visible = True WebBrowser1(1 - i).Visible = False End Sub

来自网络 测试通过