求从网站读取动态数据代码

Question

最好是用VB，其他软件也可。
如何从新浪等主流网站的财经板块等地方读取股票大盘数据，显示在VB的标签里，20秒读取一次新的。
说起来蛮简单的，但执行起来很难哦
求代码

Answer 1

1、控件Text1：MultiLine 设置为True2、控件Timer1:Interval 设置为20000Private Sub Timer1_Timer()
    On Error Resume Next
    Set x = CreateObject("msscriptcontrol.scriptcontrol")
    x.Language = "JavaScript"
    Text1.Clear
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://hq.sinajs.cn/rn=" & x.Eval("(new Date).getTime();") & "&list=s_sh000001,s_sz399001", False
        .setRequestHeader "Referer", "http://finance.sina.com.cn/stock/"
        .Send
        x.AddCode .responsetext
        Text1.Text = x.Eval("hq_str_s_sh000001") & vbCrLf & x.Eval("hq_str_s_sz399001")
    End With
End Sub