『壹』 用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里就可以了
大福星数据比较好用，分中图都可以读取