Question

vb循环下载html源代码，急，谢谢啦

请问在vb中用webbrowser如何循环下载同一张html源代码，也就是说，比如要下载www.sina.com.cn,一段时间过后这张页面会更新数据，那么怎样再次下载该html源代码？我现在能做到第一次下载，如果要第二次再下载的话，就必须关上vb程序，再重启，这样可以下载，我很着急，谢谢高手啦！qq:173635235

Answer 1

我找不到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

Answer 2

用timer控件，设置好间隔时间