各位老师好,我找到了一个实时更新股价的数据接口:http://qt.gtimg.cn/q=sz000568,在浏览器中测试时,每隔5秒刷新一次数据,测试显示数据能够得到有效更新。然后我在计划管理中写了如下代码: For Each dr As Row In Tables("数据采集").Rows
Dim hc As New HttpClient("http://qt.gtimg.cn/q=" & dr("代码"))
hc.Resp
Dim sts() As String = hc.GetData.Trim(" ").Split("~")
dr("名称复核")= sts(1)
dr("当前价")= sts(3)
dr("昨日收盘价")= sts(4)
Next
执行间隔设置为:5000,却发现股价不能及时更新,请问问题出在哪里?