论坛 › 『 提问交流 』 › 请教高人将这段VB代码转换成AU3，可以付酬谢

zouyifeng 发表于 2012-7-27 11:34:44

请教高人将这段VB代码转换成AU3，可以付酬谢

我的QQ：417806781，这是一段调用上期CTP的COM接口的代码，请教高人转换为AU3

Dim WithEvents ctp As ICTPClientAPI

Private Sub Login_Click()

    Dim errorID As Long
    Dim succ As Long
   
    Set ctp = New CTPCOMLib.ICTPClientAPI
   
    Call ctp.Login("config.xml", "00100", "888888", errorID)
    If errorID = 0 Then
       MsgBox "登录ok"
    Else
      MsgBox "登录错误：" & errorID
    End If

End Sub

Private Sub Buy_Click()
    Dim OrderID As Long
    Dim index As Integer
    Dim tm1, tm2 As Date
   
    Call ctp.Buy("IF1008", 1, 0, OrderID)

End Sub

lxzan 发表于 2012-7-27 12:49:29

不会VB哦...

查看完整版本: 请教高人将这段VB代码转换成AU3，可以付酬谢