AutoIT实现自动检查并同步持仓（可配合无人值守工具）

莫小漠

代码功能就只是检查并同步持仓，代替人工
配合监控器30秒自动刷新

欢迎诸位debug和发展新功能。
关闭方式目前是右下角关闭，没有改消息模式

AUTOIT工具下载地址：http://www.autoitscript.com/auto ... -v3.3.0.0-setup.exe

使用方法：安装AUTOIT后，右键>新建AutoIt V3脚本，然后右击新建的脚本文件，编辑该脚本，复制粘贴下方代码，F7编译。会在相同目录下出现同名exe文件，即该工具。
配合论坛已有的AUTOIT脚本即可进一步加强账户交易准确性、稳定性及安全性。
本方式适用于使用BUY/SELL方式开仓的。
对于自动换月，若是正常上班的朋友，白天肯定没有时间去对持仓品种进行换月，因新版TB已支持品种直接映射而无需加载新商品，一方面节省了资源加快了系统运行速度，另一方面对目前论坛现有的自动换月代码产生影响（如果你依旧叠加好几个合约的话，那对你毫无影响）。
这里提供一个思路：在有时间的时候，比如下班之后，对工作区中的合约映射更改至新的目标主力合约，第二天开盘后，自动核对持仓工具配合监控器会发现持仓不对，自动予以同步。就实现的开盘时间无人值守的自动换月。

例如：股指周五要从IF1209换到IF1210了，周四晚上可以将工作区的映射合约改到IF1210，第二天开盘系统自动发现我们策略中不应该有IF1209合约，应该有IF1210合约，于是通过同步，平老仓换新仓。

工具使用了简单的GUI界面，可设置自动刷新时间，这个时间要配合监控器中的时间来使用。监控器刷新时间应该比工具刷新时间要短。
工具界面

监控器时间：

持仓匹配时自动提示并关闭对话框

持仓不匹配时提示并关闭对话框且开始同步持仓

1. #include <ButtonConstants.au3>
   
2. #include <GUIConstantsEx.au3>
   
3. #include <WindowsConstants.au3>
   
4. #region ### START Koda GUI section ### Form=
   
5. Dim $result, $lilunlots, $shijilots, $weizhi
   
6. $Form1 = GUICreate("仓位监控器辅助", 200, 200, 200, 200)
   
7. $Button1 = GUICtrlCreateButton("开始监控", 18, 56, 75, 25)
   
8. $Input1 = GUICtrlCreateInput("30", 120, 40, 49, 21)
   
9. $lable = GUICtrlCreateLabel("自动刷新时间(秒)：", 20, 40, 100, 17)
   
10. GUISetState(@SW_SHOW)
    
11. #endregion ### END Koda GUI section ###
    
12. 
    
13. While 1
    
14.         $nMsg = GUIGetMsg()
    
15.         Switch $nMsg
    
16.                 Case $GUI_EVENT_CLOSE
    
17.                         Exit
    
18.                 Case $Button1
    
19.                         While 1
    
20.                                 If WinExists("交易开拓者平台(旗舰版) - ", "") = 1 Then
    
21.                                         $result = 1
    
22.                                         WinActivate("交易开拓者平台(旗舰版) - ")
    
23.                                         Sleep(500)
    
24.                                         If WinExists("自动交易头寸监控器") = 0 Then
    
25.                                                 $result = WinMenuSelectItem("交易开拓者平台(旗舰版) -", "", "交易(&T)", "监控器")
    
26.                                         EndIf
    
27.                                         Sleep(1000)
    
28.                                         WinActivate("自动交易头寸监控器")
    
29.                                         ;ControlFocus("自动交易头寸监控器", "", "Button13")
    
30.                                         ;ControlClick("自动交易头寸监控器","","Button13")
    
31.                                         $shijilots = ControlGetText("自动交易头寸监控器", "", "Button18") ;获得账户实际持仓汇总
    
32.                                         $weizhi = StringInStr($shijilots, "=多")
    
33.                                         $shijilots = StringLeft($shijilots, $weizhi - 1)
    
34.                                         $shijilots = StringMid($shijilots, 3, 10)
    
35.                                         $lilunlots = ControlGetText("自动交易头寸监控器", "", "Button19") ;获得账户理论持仓汇总
    
36.                                         $weizhi = StringInStr($lilunlots, "=多")
    
37.                                         $lilunlots = StringLeft($lilunlots, $weizhi - 1)
    
38.                                         $lilunlots = StringMid($lilunlots, 3, 10)
    
39.                                         If ($lilunlots <> $shijilots) Then
    
40.                                                 ;将持仓数量输出到文本文件中
    
41.                                                 ;WinActivate("新建 文本文档 -")
    
42.                                                 ;ControlSetText("新建 文本文档 -", "", "Edit1",$shijilots&@CRLF&$lilunlots)
    
43.                                                 MsgBox(0 + 16, "头寸不匹配警告：", "实际仓位状况：" & $shijilots & @CRLF & "理论仓位状况：" & $lilunlots,5)
    
44.                                                 ControlFocus("自动交易头寸监控器", "", "Button12")
    
45.                                                 ControlClick("自动交易头寸监控器", "", "Button12")
    
46.                                                 Sleep(20)
    
47.                                                 ControlFocus("确认", "", "Button1")
    
48.                                                 ControlClick("确认", "", "Button1")
    
49.                                                 Sleep(20)
    
50.                                                 ControlFocus("委托确认[一键同步]", "", "Button2")
    
51.                                                 ControlClick("委托确认[一键同步]", "", "Button2")
    
52.                                                 Sleep(1000)
    
53.                                                 ControlFocus("自动交易头寸监控器", "", "Button16")
    
54.                                                 ControlClick("自动交易头寸监控器", "", "Button16")
    
55.                                         Else
    
56.                                                 MsgBox(0, "头寸匹配：", "实际仓位状况：" & $shijilots & @CRLF & "理论仓位状况：" & $lilunlots, 2)
    
57.                                                 ControlFocus("自动交易头寸监控器", "", "Button16")
    
58.                                                 ControlClick("自动交易头寸监控器", "", "Button16")
    
59.                                         EndIf
    
60. 
    
61.                                 EndIf
    
62.                                 ;Sleep($Input1 * 1000)
    
63.                         WEnd
    
64. 
    
65.         EndSwitch
    
66. WEnd

复制代码

CFXQM

bluefox

这个必须顶。。。。。

salonbus

高手

vinsen

这个牛！

莫小漠

感谢支持，团队有小东西就共享一下

zhen2710

试了一下，可以实现，谢谢分享

zhen2710

这个监控的频率好像设置无效，我改成 300 s  但是 还是不到 5秒就刷新 一次 ，总是提示 持仓匹配  您看看是不是有这个问题

zhen2710

还有 可以不可以 实现对于 部分账户 而不是 全部账户的 自动监控

flyfish

这个是好东西