最简单 VB6.易语言选股接口案例

VB6  调用选股案例

Private Declare Function Get_Stock Lib "XuanGu.dll" (ByVal Key As String, ByVal term As String, ByVal buf As String) As Boolean
Private Declare Function Key_Update Lib "XuanGu.dll" ()
Private Function json(ByVal JsonStr As String, ByVal code As String) As String
Dim scriptObj As Object
Set scriptObj = CreateObject("MSscriptControl.scriptControl")
scriptObj.Language = "Javascript"
scriptObj.AddCode "var Json = " & JsonStr & ";"
json = scriptObj.eval("Json." & code)
End Function

Private Sub Command1_Click()

Dim buf As String
Dim zhenjia As Boolean
Rem 设置足够的缓冲区
buf = Space$(100000)
zhenjia = Get_Stock("TlX97M27NxX2G1F+o1I/BgzvQEwVu7U2/5y78deysrg=", Text1.Text, buf)

If zhenjia Then
        a = Split(buf, "hhhh")
        For i = LBound(a) To UBound(a)
             List1.AddItem json(a(i), "code") & "    :     " & json(a(i), "股票简称") & "    :     " & json(a(i), "最新价")
        '    List1.AddItem a(i)
        Next i
Else
    MsgBox zhenjia
End If


buf = ""
End Sub



Private Sub Command2_Click()
Key_Update
End Sub

Private Sub List1_Click()
List1.Clear
End Sub

vb生成exe 程序后才能执行选股 

以下是效果

易语言的调用

.版本 2

.DLL命令 更新密钥, , "XuanGu.dll", "Key_Update", , Key_Update 获取密钥函数

.DLL命令 Get_Stock, 逻辑型, "XuanGu.dll", "Get_Stock", , Get_Stock  函数 任意编程语言通用 .易语言,vb,python,c# 等.....
    .参数 Key, 文本型, , Key =  密钥必须填写否则选不到数据
    .参数 term, 文本型, , 条件  =  选股条件多条件以 逗号 ,分开 如: macd金叉,kdj金叉 
    .参数 存放变量, 文本型, , 存放变量 ＝ 取空白文本 (10000)  ' 必须申请同等大小的缓冲区空间



.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

更新密钥 ()

.子程序 _按钮3_被单击
.局部变量 结果变量, 文本型

编辑框1.内容 ＝ “”

结果变量 ＝ 取空白文本 (10000)  ' 必须申请同等大小的缓冲区空间
' Get_Stock (#常量2, 组合框1.内容, 结果变量)
Get_Stock (“TlX97M27NxX2G1F+o1I/BgzvQEwVu7U2/5y78deysrg=”, 组合框1.内容, 结果变量)
编辑框1.内容 ＝ 结果变量


.子程序 _组合框1_列表项被选择

没有易语言的 代码段引用放代码 .实在没法看还是放代码图片好了

下面是易语言调用代码

易语言执行效果如下

 附件下载地址

VB6.易语言选股接口案例-副本.7z-VB文档类资源-CSDN下载