取得股票实时行情数据

参考网址：
http://bbs.et8.net/bbs/archive/index.php/t-902376.html

奉献部分代码。
Private Function GetContent(ByVal StockCode As String) As String
If String.IsNullOrEmpty(StockCode) Then Return String.Empty
Dim url As String
url = "http://hq.sinajs.cn/type=js&list=" & StockCode
Dim XmlHttp As Object
XmlHttp = CreateObject("Microsoft.XMLHttp")
XmlHttp.Open("POST", url, False)
XmlHttp.Send()

Dim vs As String
vs = XmlHttp.responseText
XmlHttp = Nothing
GetContent = vs
End Function


返回数据格式
：一个一维字符串数组 String(24)，结构为：String(0)股票代号、String(1)股票名称、
' ' String(2)行情时间、String(3)最新价（元）、String(4)昨收盘（元）、String(5)今开盘（元）、
' ' String(6)涨跌额（元）、String(7)最低（元）、 String(8)最高（元）、String(9)涨跌幅（%）、
' ' String(10)成交量（手）、String(11)成交额（万元）、String (12)竞买价（元）、
' ' String(13)竞卖价（元）、String(14)委比（%）、
' ' String(15)-String(19)买一 - 买五（元）/手、String(20)-String(24)卖一 - 卖五（元）/手。

另外还用到了一个 http://www.webxml.com.cn/WebServices/ChinaStockWebService.asmx
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
http://www.dtapp.cn/index.php
这里面有一个很不错的股票实时行情软件，你可以借鉴一下。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
有WebService的接口就更好了，有ssl的就完美了.....
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
非常感谢jimjiang，今天我用C#也成功获取了sina的数据：

WebClient client = new WebClient();
client.Headers.Add("Content-Type", "text/html; charset=gb2312");
Stream data = client.OpenRead("http://hq.sinajs.cn/list=sh600683");
StreamReader reader = new StreamReader(data, Encoding.GetEncoding("gb2312"));
string s = reader.ReadToEnd();
MessageBox.Show(s);

reader.Close();
data.Close();
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
上面的C#代码只说明了可以获取到html 的源码。除此外就没了

我觉得用HttpWebRequest 和 HttpWebResponse 更方便