『壹』 用VB如何抓取下面網頁里的數據
那個是通過AJAX實時更新數據的頁面。
這個http://q.stock.sohu.com/cn/msq.shtml?q=cn_600287頁面對應的數據都在這里。
http://hq.stock.sohu.com/msq?cn_600287
看這個頁面的源代碼即可。
『貳』 VB如何讀取股票大盤數據，20秒更新一次，並動態的顯示到文本框中，請高手幫忙
這個要連接資料庫的。。
『叄』 在VB.NET中如何使用新浪股票數據介面
這個你的拿錢和新浪那邊買個介面 人家給你代碼你復制到自己網站里就可以了
『肆』 我想從網頁上（比如網易、新浪）上實時抓取大盤和個股的實時行情，請給出VB的完整源碼，並加註釋。
下載遨遊瀏覽器。打開你所需要的網頁，比如新浪的大盤那裡。然後點擊瀏覽器的查看按鈕，然後其中有個查看源代碼。
就會彈出一個筆記本，然後就是你要的源代碼。
也就是所謂的數據模式啦！我剛才一直想粘貼過來我剛剛得到的。可惜網路不讓我發，不知道為什麼。你自己試下就知道了。
『伍』 如何用VB做股票數據接收系的源代碼
報價方，在開盤時共同商定價位，再實時的價位是因市場交易，自動變化的
『陸』 VB怎麼獲取資料庫里的記錄值
adoQuery資料庫控制項名
GetLastTestNO 屬性值存放變數
查詢語句：
adoQuery.RecordSource = "select * from " +查詢屬性等
查詢資料庫語句之後：
adoQuery.Refresh
If adoQuery.Recordset.RecordCount = 0 Then
Else //查詢結果有記錄
//判斷查詢到的記錄中，所要找的屬性是否空值
If Not IsNull(adoQuery.Recordset.Fields(屬性)) Then
If adoQuery.Recordset.RecordCount > 1 Then
adoQuery.Recordset.MoveLast
//將對應的屬性值賦值給變數，查詢到多個記錄則顯示最後一個記錄
GetLastTestNO = adoQuery.Recordset.Fields(dbInjNO)
Else
//只有一個記錄
GetLastTestNO = adoQuery.Recordset.Fields(dbInjNO)
End If
Else
GetLastTestNO ="" //無記錄
End If
End If
將GetLastTestNO 顯示在控制項上即可得到所要的屬性密碼值
『柒』 用VB 讀取通達信實時股票數據(現價，漲幅)
關鍵是介面
我估計現在沒有免費的介面了！！！
所以你想自己編程獲取實時數據，幾乎不可能了！！！
總之，沒有有效的網路實時數據支持，這是開源股軟的最致命的地方！！！
『捌』 用VB如何直接獲取股票實時數據
可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據，代碼如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
『玖』 vb獲取新浪微博信息
你可以用WebBrowser控制項模擬網頁登錄，然後提取HTML里的好友信息，自己摸索一下吧，不難實現。
『拾』 vb轉換股票數據的問題
大智慧股票數據
每個記錄40 byte
格式
long Date 0'相對開頭偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20
不是二進制方式，使用隨機方式 Random 讀取， 讀取以後 價格 /1000 就行了
定義類型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type
Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type
用 Get 讀取記錄到 就可以了
ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1
讀取以後轉換到
dzh里就可以了
大福星數據比較好用，分中圖都可以讀取