Question

webbrowser控件 如何捕捉弹出窗口的消息内容

Answer 1

'下面这个是我写的浏览器里的一个捕获新窗口的处理过程，不知道对你有没有用
'WebMain是我定义的WebBrowser控件数组
'FormWeb是我定义的浏览器新窗体
Private Sub WebMain_NewWindow2(Index As Integer, ppDisp As Object, Cancel As Boolean)
On Error GoTo ErrShow
If CheckNew.Value = 0 Then
Cancel = True
Dim myfrmweb As FormWeb
Set myfrmweb = New FormWeb
Load myfrmweb
myfrmweb.Show
myfrmweb.Visible = True
'myfrmweb.WebIE.Navigate2 WebMain(Index).Document.activeElement.getAttribute("href")
WebMain(Index).Navigate2 WebMain(Index).Document.activeElement.href
myfrmweb.SetFocus
Else
Cancel = True
'WebMain(Index).Navigate2 WebMain(Index).Document.activeElement.href
WebMain(Index).Navigate2 WebMain(Index).Document.activeElement.getAttribute("href")
End If

Exit Sub
ErrShow:
If Trim(TheUrl) <> "" Then
WebMain(Index).Navigate2 TheUrl
Else
Cancel = False
End If

End Sub

Answer 2

'WebMain是我定义的WebBrowser控件数组