VB中如何禁止弹出窗口

Question

我做了一程序，就是隔个几秒去访问不同人的QQ空间程序可以运行，但是他不定时弹出一个对话框运行时错误'-2147024726(800700aa)'
tutomation 错误 
 这是弹出来的，第是这一个，还要弹出另外一个
当面页面的脚本发生错误
行219
char   111
错误 'g-parent.sidomain' 为空或不是对像
代码 0
URL http://ctc.qzonestyle.gtimg.cn/qzone/v5/owner2/ic/ic_core_v2.1.js
是否要在此而面上继续运行脚本如果我设置的时间为五秒的话，当出现第二个对话框，在五秒内没有点击是或否的话，将会出现第二个对话框，然后程序就崩溃关闭。
出现对话框的机率是随机性的，没有固定的时间，有时一开程序就会，有时挂一个小时都不会出现这情况。
请问要怎么解决

Answer 1

你试试
on error resume next

Answer 2

automation 错误有的时候是禁止不了的吧，比如说是拉上去的控件加载错误，

Answer 3

on error resume next  这个是没有用的
automation  这个有什么办法解决吗？ 如果我用这个软件挂机不能在电脑，有什么办法控制光标一直点在屏幕的某一个地方呢，这样的话就算出现了也可以点掉

Answer 4

先设置控件属性WebBrowser1.Silent   True，再加入代码Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Silent = True
End Sub