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

#2

flyfeeling2011-09-24 23:49

,怎么说看不见,又见了,不好意思
请版主帮删除多余的

#3

bczgvip2011-09-25 00:08

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

#4

oshi2011-09-25 21:27

不是有专门的看股票的软件嘛。

#5

szcjh2011-10-01 08:55

我也关心这个问题

#6

szcjh2011-10-01 08:59

我想搞一个自动交易软件,需要能获取即时行情数据,希望有更多关心这类问题的VB高手.

#7

szcjh2011-10-01 11:18

下面这段代码是从新浪获取即时数据,是我从网上找到的,但是用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
'======================================

#8

xdwtdcq2011-10-02 15:28

关注中，，，，，，

#9

szcjh2011-10-05 13:50

有一段取网上股票数据的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>
'=================================================================

#10

smithlzh2012-06-13 15:22

我也有这样的需求；铜价。