webbrowser，弹出窗口的问题

个人用webbowser写了个批量注册163的东西，用自动填表的方法，现在遇上个问题，有时候申请邮箱成功时会弹出360浏览器，显示登陆超时，如图。试过以下几种方法，都不能解决问题，求助易做图。



1.
WebBrowser1.Silent = True

2.
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.parentWindow.execScript "window.alert=null;"
WebBrowser1.Document.parentWindow.execScript "window.confirm=null;"  
WebBrowser1.Document.parentWindow.execScript "window.showModalDialog=null;
End Sub

3.
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href
End Sub

4.
清除ie cookie

补充：VB ,  基础类