高校问答孔子的天命观是什么:vb循环下载html源代码，急，谢谢啦
来源：百度文库 编辑：高校问答 时间：2024/04/29 03:23:15
请问在vb中用webbrowser如何循环下载同一张html源代码，也就是说，比如要下载www.sina.com.cn,一段时间过后这张页面会更新数据，那么怎样再次下载该html源代码？我现在能做到第一次下载，如果要第二次再下载的话，就必须关上vb程序，再重启，这样可以下载，我很着急，谢谢高手啦！qq:173635235
我找不到webbrowser获得源代码的资料……
不过我用该方法：
加一个Inet控件，然后调用它的OpenURL方法，该方法会返回打开的内容，如果是纯文本就返回字符串
对于网页，会返回网页的html源代码
Inet需添加Microsoft Internet Transfer Control部件
html源代码 = Inet1.OpenURL("http://www.sina.com.cn")
对于延时，就用timer控件，
如果时间小于一分钟，直接用timer控件timer事件
若大于一分钟甚至几个小时（因为timer的间隔不许大于65.535秒）
你把它间隔改为一分钟，设个全局变量用来统计时间，timer控件timer事件发生一次，统计时间的全局变量加一
这样当他大于你要的间隔时间时就下载网页，并清零
这样就不用重复启动程序了
这是30分钟刷一次的，timer1为Interval为60000的Timer控件
下载html代码在sHTML 变量里
Dim statTime As Long
Private Sub Timer1_Timer()
Dim sHTML As String
statTime = statTime + 1
If statTime > 30 Then
sHTML = Inet1.OpenURL("http://www.sina.com.cn")'下载页面
statTime = 0'统计下一间隔
'...........
End If
End Sub
用timer控件，设置好间隔时间