vb循环下载html源代码,急,谢谢啦
发布网友
发布时间：2022-04-29 02:26
共2个回答
热心网友
时间：2022-06-28 16:48
不过我用该方法：
加一个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
热心网友
时间：2022-06-28 16:48
