最简单 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")