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

zouyifeng

我的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

不会VB哦...