金字塔提供了VBA方式的二次开发接口,而VBA是可以很容易调用COM自动化接口组件来实现下单的。下面的代码可以实现把金字塔中的交易信号,对接到宽客帮策略执行系统中,从而实现自动交易:
测试宏
Sub Test()
Dim QuantOrder '定义宽客帮下单COM组件
Dim nCount
Dim bRet
Dim Info
'创建组件对象
Set QuantOrder = CreateObject("ZMOrder.QuantTrade")
'指定应用类型,256默认为金字塔
QuantOrder.AppType = 256
'指定宽客帮定时扫描文件变化定时器,毫秒
QuantOrder.ScanTimer = 500
'添加名称为策略3的策略,返回策略编号,在宽客帮对接插件管理中也可以先编辑维护好策略列表信息
nQuantID = QuantOrder.AddQuant("策略3",1)