以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  交易策略发布专区  (http://weistock.com/bbs/list.asp?boardid=10)
----  【专业版】股指开户秒10笔记录  (http://weistock.com/bbs/dispbbs.asp?boardid=10&id=30405)
--  作者：明心
--  发布时间：2012/11/5 19:45:24
--  【专业版】股指开户秒10笔记录
Sub kaihu()
set minutedata = marketdata.GetMinuteData("c05","dq")
           wsj    = minutedata.askprice(minutedata.Count-1)
           wbj    = minutedata.BIDPRICE(minutedata.Count-1)
 
    for i = 1 to 5
 
       order.OrderQueue = 1
       call order.buy(0,1,wsj+2,0,"c05","dq","",0)
       call order.sell(0,1,wbj-2,0,"c05","dq","",0)
    
    next 
    
    application.MsgOut "10笔交易结束"
 
End Sub