[Visual Basic] 复制代码
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
if Status = "Tradeing" then
dim action
'仅处理成交回报消息
If Kaiping = 0 Then
If Aspect = 0 Then
action = "开多"
else
action = "开空"
end if
else
If Aspect = 0 Then
action = "平空"
else
action = "平多"
end if
end if
'按照市价给所有连接客户发送交易信号
call network.SendAlarmSignal("",Code,Market,0,"VBA测试","服务器信号",action,1,1)
end if
End Sub
大佬啊~
你们这段现成的代码就可以实现云跟单啊~
我咋就没注意看vba的功能~弄那么大一圈子~
现在的问题是~客户端这边接受的信号全是市价单~
有办法设置一下变成限价单~就是自定义一下下单方式什么的~在哪里改呢?
服务器这边vba代码需要怎么改吗?
|