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

最好是用VB，其他软件也可。
如何从新浪等主流网站的财经板块等地方读取股票大盘数据，显示在VB的标签里，20秒读取一次新的。
说起来蛮简单的，但执行起来很难哦。。。
求代码。。。股票软件悬赏代码 VB --------------------编程问答-------------------- 自己先顶一下。。。麻烦各位了。。本人新手，搞点if什么还行，稍微复杂点就不行了 --------------------编程问答-------------------- 1、控件Text1：MultiLine 设置为True

2、控件Timer1:Interval 设置为20000





Private 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

补充：VB ,  网络编程