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")