Sub APPLICATION_VBAStart()
  \'设置一个定时器
  call Application.SetTimer(2,5000)
End Sub

Sub APPLICATION_Timer(ID)

 \'得到指定的CTP帐户信息，
 dim Cash\'现金余额
 dim Guaranteemoney\'占用保证金
 dim Money\'当前可用资金

 Cash = Order.Account2(3)
 Guaranteemoney = Order.Account2(28)
 Money=Order.Account2(19)
 \'MsgBox Cash
 \'MsgBox Guaranteemoney
 \'MsgBox Money

 \'返回持仓数量,成本等
 dim BuyHoding
 dim BuyCost
 dim BuyTodayHoding
 dim SellHoding
 dim SellCost
 dim SellTodayHoding
 dim PNL
 dim UseMargin
 dim Code
 dim Market
 
 \'取第一个当前默认帐户持仓品种
 Result = Order.HoldingInfo2(0,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin ,Code,Market)
 If Result <> 1 Then
  Exit Sub
 End If

 \'显示当前的买入持仓量
 MsgBox BuyCost
 \'msgbox BuyHoding
 \'MsgBox Market
 \'MsgBox code
 
 \'取指定品种的和约信息
 dim Multipliter, MinTick, ShortPercent, LongPercent\'该品种的乘数/单位（也就是交易单位），该品种的最小变动单位，该品种的空头保证金，该品种的多头保证金
 Result2 = Order.Contract(Code, Market, Multipliter, MinTick, ShortPercent, LongPercent)
 If Result2 <> 1 Then
  Exit Sub
 End If
 \'MsgBox Market
 \'MsgBox code
 \'MsgBox Multipliter
 \'msgbox MinTick
 \'MsgBox ShortPercent
 \'MsgBox LongPercent

 
 \'取au1011的最新动态行情数据
 \'set Report1 = marketdata.GetReportData("SRX00","ZQ")
 set Report1 = marketdata.GetReportData(code,Market)
    \'msgbox Report1.NewPrice \'显示最新价
    
 Pre=BuyCost/Multipliter/BuyHoding\'买入成本价
 NewPrice= Report1.NewPrice\'最新价格
 ZF = (Pre - NewPrice) /Pre * 100
 Highprice=BuyCost
 
 \'1///////////////////如果直接下跌的话直接止损
 if NewPrice-pre<0 then
  If Zf >=5 then\'亏损超过5%止损
   
    order.OrderQueue = 1
  call order.sell(1,BuyHoding,0,0,"code","Market","",0)
  End if 
  End if
  \'2//////////////////如果涨了的话实现移动止损
  if NewPrice-pre>0 then
   if Highprice-NewPrice<0 then
    Highprice=NewPrice
   else  
    Highprice=Highprice 
    
   End if
  End if
  
  if NewPrice-pre>0 and Highprice-NewPrice>0 then
  xf = (Highprice - NewPrice) /Highprice * 100
  If xf >=5 then\'和最高盈利价相比亏损超过5%止损
   
    order.OrderQueue = 1
  call order.sell(1,BuyHoding,0,0,"code","Market","",0)
   
  End if
  End if
End Sub