最好是用VB,其他軟體也可。
如何從新浪等主流網站的財經板塊等地方讀取股票大盤資料,顯示在VB的標簽里,20秒讀取一次新的。
說起來蠻簡單的,但執行起來很難哦。。。
求代碼。。。
uj5u.com熱心網友回復:
自己先頂一下。。。麻煩各位了。。本人新手,搞點if什么還行,稍微復雜點就不行了uj5u.com熱心網友回復:
1、控制元件Text1:MultiLine 設定為True2、控制元件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
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/139695.html
標籤:網絡編程
上一篇:求vba高手指點!!
下一篇:專案經理看過來,看過來
