在做浏览器中遇到的问题 求指导啊

小弟在做一个浏览器webBrowser1
Private Sub Command1_Click()
WebBrowser1.Silent = False '不关闭交互
WebBrowser1.Navigate "" '打开网页
If WebBrowser1.Busy Then '加载网页
Form1.Caption = "正在打开网页..."
Exit Sub
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End If
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Call WebBrowser1.Document.parentWindow.execScript("window.alert=function (){return true;}", "javascript") '关闭弹出的js对话框
End Sub
出现如下问题
怎样设置定时刷新呢？ 加载网页后会有一个js弹出 第一次不弹出 可是再刷新网页 就会重新弹出 这是怎么回事啊