请教能用VB读取股票实时价格吗？

[lzlichun]

能用VB读取大智慧或通达信的股票实时交易价格吗？

请指教。谢谢！！！

[蓝天630902]

Type 日线数据类型
    a1 As Long    '日期
    a2 As Long    '开盘价
    a3 As Long    '最高价
    a4 As Long    '最低价
    a5 As Long    '收盘价
    a6 As Single  '成交金额
    a7 As Long    '成交量
    a8 As Long    '保留
End Type

Sub 通达信日线数据()
    Dim File2 As Integer
    Dim b As 日线数据类型
    File1 = FreeFile
    Open ThisWorkbook.Path & "\SH600006.day" For Binary Access Read As #File1
    i = 1
    Do While Not EOF(File1)
        Get #File1, , b
        Cells(i, 1) = b.a1
        Cells(i, 2) = (b.a2) / 100    '开盘价元
        Cells(i, 3) = (b.a3) / 100    '最高价元
        Cells(i, 4) = (b.a4) / 100    '最低价元
        Cells(i, 5) = (b.a5) / 100    '收盘价元
        Cells(i, 6) = (b.a6) / 10000  '成交金额 万
        Cells(i, 7) = (b.a7) / 1000   '成交量 万股
        Cells(i, 8) = (b.a8) / 100
        i = i + 1
    Loop
    Close #File1
End Sub

[bbdream1729]

设计数据类型是之后的事吧 要读取其他程序的数据的话先用ce找找看内存地址 然后api读取内存

[lzlichun]

引用 2 楼 bbdream1729 的回复:

设计数据类型是之后的事吧 要读取其他程序的数据的话先用ce找找看内存地址 然后api读取内存

老师能详细指导吗？ 不胜感激！！！

[lzlichun]

引用 2 楼 bbdream1729 的回复:

设计数据类型是之后的事吧 要读取其他程序的数据的话先用ce找找看内存地址 然后api读取内存

什么是CE？怎样看内存地址？ 敬请指教。谢谢！！！

[现在还是人类]

不要信他的，他是写外挂写多了，呵呵

[现在还是人类]

你直接到大智慧管网去取数据不就很简单吗？网页上一堆的接口和数据，你只管看代码和使用就可以了。 在技术上你可以参考ajax技术实现，只是你用vb就变成了abax技术，呵呵

[lzlichun]

引用 5 楼 SupermanKing 的回复:

不要信他的，他是写外挂写多了，呵呵

那请教老师该怎么做啊？ 先谢谢了！！！