vb 自制浏览器的问题！！

Question

捕捉错误可以试着用GetLasterror,广告窗口一般是javascript的打开窗口之类的语句写的,怎么做就看你的了

Answer 1

采用on error goto e
e:
 err.description
处理错误
采用onclick=""弹出窗口试试

Answer 2

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Dim NewWindow As form1
   
   Set NewWindow = New form1
   NewWindow.Show
   Set ppDisp = NewWindow.WebBrowser1.Object
End Sub
这段代码可以实现在自己的浏览器中打开新网页

Answer 3

用:
On Error Goto error1'中间是你调用前一页或后一页的代码exit sub
error1:
'前页或后页的Enable设为False，具体代码你自己写吧

Answer 4

on error resume nextPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   Dim NewWindow As form1
   
   Set NewWindow = New form1
   NewWindow.Show
   Set ppDisp = NewWindow.WebBrowser1.Object
End Sub