如何让以下代码每隔5分钟执行一次
WebBrowser1.Navigate "http://28.33.39.202/gis/map/default.asp"
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser3.Object) Then Exit Sub
Text3.Text = WebBrowser3.Document.body.innerText
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text2 = WebBrowser1.LocationURL ' 显示当前网址
' 判断当前网页是否全部调入完毕
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub

Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
If Not IsNull(objhtml) Then
s = objhtml.HTMLText

用时钟工具

能否具体点

用timer控件，将上面的代码写到
Private Sub Timer1_Timer()
interval=300000

如何让以下代码每隔5分钟执行一次
WebBrowser1.Navigate "http://28.33.39.202/gis/map/default.asp"
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser3.Object) Then Exit Sub
Text3.Text = WebBrowser3.Document.body.innerText
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text2 = WebBrowser1.LocationURL ' 显示当前网址
' 判断当前网页是否全部调入完毕
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub

Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
If Not IsNull(objhtml) Then
s = objhtml.HTMLText

End Sub

过程中就可以了。

楼上的,时钟的Interval可以那么大吗?

我看是不是可以这样：
读取时间（比如10秒读一次），
Private Sub Timer1_Timer()
interval=60000

当读到“分”的右边第一位为“5”或为“0”并且，秒小于“10”时调用
call一个sub或函数，它的内容就是：
WebBrowser1.Navigate "http://28.33.39.202/gis/map/default.asp"
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser3.Object) Then Exit Sub
Text3.Text = WebBrowser3.Document.body.innerText
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text2 = WebBrowser1.LocationURL ' 显示当前网址
' 判断当前网页是否全部调入完毕
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub

Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
If Not IsNull(objhtml) Then
s = objhtml.HTMLText

[此贴子已经被作者于2006-6-7 14:55:33编辑过]

不是很明白楼上所说的。

每隔两分钟写一次文件的问题

我通过在窗体中加入两个文本框和一个时间控件，通过以下代码进行每两分钟往txt中添加内容，可是不知那里出现，运行十分钟过去了里面还只是第一次运行写的内容，是不是定时运行没起作用，还有另有问题，请高手指教
Dim i As Integer
Private Sub Form_Load()
i = 0 '计数器初值
Timer1.Interval = 1
'定时器timer事件的时间间隔约1秒
Timer1.Enabled = True '启动定时器
Text1.Text = "2" & Text2.Text
Open App.Path & "\my.txt" For Append As #1
Print #1, Text1.Text; "; "
End Sub
Private Sub Timer1_Timer()
i = i + 1 '计数器加一
'约1分钟保存一次,可酌情'改变
If i = 20000 Then

i = 0 '计数器清零
End If
End Sub

对不起,计算错误interval多写了一个零.