VB操作网页代码.docVIP

防止新窗口里头打开网页 代码1： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim frm As Form1 Set frm = New Form1 frm.Visible = True Set ppDisp = frm.WebBrowser1.object End Sub 代码2： 有这段代码， 有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！ Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href End Sub 代码3： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) On Error Resume Next Dim frmWB As Form1 Set frmWB = New Form1 frmWB.WebBrowser1.RegisterAsBrowser = True Set ppDisp =