Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 "http://www.163.com/" End Sub
如果你想知道弹出窗口的URL呢，那就
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 = False MsgBox URL
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)
