求高手看看VB6,能不能从网页上取股票数据 - VB6论坛

flyfeeling

等　级：论坛游民
帖　子：19
专家分：15
注　册：2011-9-11
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：9

求高手看看VB6,能不能从网页上取股票数据

请高手给实例看看,

VB程序每天能不能从新浪(或别的网站上)下载数据(每天的交易成交明细,及四价一量)
开盘价,最高价,最低价,收盘价,成交量

搜索更多相关主题的帖子: 成交量　

2011-09-24 23:41

bczgvip

等　级：贵宾
威　望：66
帖　子：1310
专家分：5312
注　册：2009-2-26

第 3 楼

得分:7

这类程序不是有专门的软件吗？

2011-09-25 00:08

szcjh

等　级：新手上路
帖　子：24
专家分：7
注　册：2011-9-12

第 5 楼

得分:7

我也关心这个问题

2011-10-01 08:55

szcjh

等　级：新手上路
帖　子：24
专家分：7
注　册：2011-9-12

第 7 楼

得分:0

下面这段代码是从新浪获取即时数据,是我从网上找到的,但是用VB6运行时提示"用户定义类型未定义",试了几次都不成功,总是提示"无效的内部过程",请高手看看该如何定义呢?
谢谢!!!
'======================================
Sub 获取股票实时价格()
'要求
Dim xmlhttp As MSXML2.XMLHTTP30
Set xmlhttp = New XMLHTTP30

Sheets("资金明细").Select
'Cells.Select

List = "sh000001,sz000001": '股票代码列表，用逗号分开

xmlhttp.Open "GET", "http://hq. + List, False
xmlhttp.send
strs = Split(xmlhttp.responseText, Chr$(10))
indexs = Split(Index, ",")

For i = 1 To UBound(strs) - 1
valueStr = Split(strs(i), ",")
'格式如下:
'0：股票名称，1：今开盘，2：昨收盘，3：当前价，4：最高价，5：高低价，6:买一价，7：卖一价，8：成交量(手)，9：成交额(元)，
'10：买一量(手)，11：买一价，12:买二量(手)，13：买二价，14:买三量(手)，15：买三价，16：买四量(手)，17：买四价，18：买五量(手)，19：买五价
'20：卖一量(手)，21：卖一价，22:卖二量(手)，23：卖二价，24:卖三量(手)，25：卖三价，26：卖四量(手)，27：卖四价，28：卖五量(手)，29：卖五价
'30：交易日期，31：交易时间
'var hq_str_sh601600="中国铝业,23.06,23.15,22.84,23.28,22.50,22.83,22.84,21192649,485084732,5274,22.83,2300,22.82,6600,22.81,54170,22.80,23389,22.79,10500,22.84,1400,22.85,34628,22.86,4400,22.87,18650,22.88,2008-04-11,15:05:33";
'此处可插入处理代码
Next i
End Sub
'======================================

2011-10-01 11:18

szcjh

等　级：新手上路
帖　子：24
专家分：7
注　册：2011-9-12

第 9 楼

得分:0

有一段取网上股票数据的javascript代码, 运行后会显示获取的数据, 那位老师能改写成VB代码就好了.)

'======================================================================================
<html>
<head>
<script type="text/javascript" src="http://hq.,sh601008"
charset="gb2312"></script>
<script type="text/javascript">
     var elements1=hq_str_sh601006.split(",");
     var elements2=hq_str_sh601008.split(",");
  n0=elements1[0];
  n1=" O:"+elements1[1];
  n4=" H:"+elements1[4];
  n5=" L:"+elements1[5];
  n3=" C:"+elements1[3];
  n21=" h1:"+elements1[21];
  n20=" hs:"+elements1[20];
  n11=" l1:"+elements1[11];
  n10=" ls:"+elements1[10];
document.write(n0,n1,n4,n5,n3,n21,n20,n11,n10);

  nn0=elements2[0];
  nn1=" O:"+elements2[1];
  nn4=" H:"+elements2[4];
  nn5=" L:"+elements2[5];
  nn3=" C:"+elements2[3];
  nn21=" h1:"+elements2[21];
  nn20=" hs:"+elements2[20];
  nn11=" l1:"+elements2[11];
  nn10=" ls:"+elements2[10];
document.write(nn0,nn1,nn4,nn5,nn3,nn21,nn20,nn11,nn10);

</Script>
</head>
</html>
'=================================================================

2011-10-05 13:50