1、首先找到webbrowser 的WebBrowser1_NewWindow 事件
2、定义 跳转地址变量 newurldim newurl as string获取要跳转的地址 Dim newUrl = WebBrowser1.StatusText
3、让webbrowser1加载新网址 WebBrowser1.Navigate(newUrl) '加载新的网址
4、阻止外部浏览器捕获 e.Cancel = True '使外部浏览器无法捕获此事件
5、 ' 完整代码如下 Dim newUrl = We水瑞侮瑜bBrowser1.StatusTe旌忭檀挢xt WebBrowser1.Navigate(newUrl) '加载新的网址 e.Cancel = True '使外部浏览器无法捕获此事件