主题：阿火秘笈_编写技巧十九(12月5日更新_做参数优化时优化指定指标的方法)

十六、CTP账户的跟单VBA代码

B账户跟着A账户做单（前提是知道A账户的密码，在同一个金字塔同时登陆A账户和B账户）

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
 if Status="Tradeing" and filled>0 and Account="8000000000" then
  if aspect=0 then
   if kaiping=0 then order.Buy 1,filled,0,0,code,market,"800000",0
   if kaiping>0 then order.sellshort 1,filled,0,0,code,market,"800000",0
  end if
  if aspect=1 then
   if kaiping=0 then order.Buyshort 1,filled,0,0,code,market,"800000",0
   if kaiping>0 then order.sell 1,filled,0,0,code,market,"800000",0
  end if
 end if
End Sub