用AUTOIT和TB打造国内期货无人值守全自动交易系统[开拓者公式]

;注意，一定要把AutoIt脚本文件放在TB安装目录下，与TB执行程序TradeBlazer.exe放同一目录


 

1. #Include <date.au3>


2. Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword


3. $path=@ScriptDir&"\"


4. $TBloginname="***"        ;用你的TB登陆账号替换***


5. $TBloginpassword="***"    ;用你的TB登陆密码替换***


6. While 1


7. If        (@HOUR=8 And @MIN>=50 Or @HOUR>8) And @HOUR<=15 Then


8.         Sleep(500)


9.   If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者平台(旗舰版) - ") = 0 Then


10.         ProcessClose("TradeBlazer.exe")


11.         ProcessClose("TBDataCenter.exe")


12.     Sleep(3000)


13.   EndIf


14.   If WinExists("交易开拓者平台(旗舰版) - ") = 0 Then


15.     $result=0


16.         FileDelete($path&"data\__db.001")


17.     FileDelete($path&"data\__db.002")


18.         FileDelete($path&"data\__db.003")


19.     Run($path&"TradeBlazer.exe",$path)


20.     WinWaitActive("欢迎登录交易开拓者平台(旗舰版)","",20)


21.     WinActivate("交易开拓者平台(旗舰版)")


22.         MouseClick("left", 500, 500, 2)


23.     ControlFocus("欢迎登录交易开拓者平台(旗舰版)","","Edit1")


24.     ControlSetText("欢迎登录交易开拓者平台(旗舰版)","","Edit1",$TBloginname)


25.         MouseClick("left", 500, 500, 2)


26.     ControlFocus("欢迎登录交易开拓者平台(旗舰版)","","Edit2")


27.     ControlSetText("欢迎登录交易开拓者平台(旗舰版)","","Edit2",$TBloginpassword)


28.         MouseClick("left", 500, 500, 2)


29.     ControlFocus("欢迎登录交易开拓者平台(旗舰版)","","Button1")


30.         Sleep(5)


31.     ControlClick("欢迎登录交易开拓者平台(旗舰版)","","Button1")


32.         Sleep(1000)


33.         If WinExists("欢迎登录交易开拓者平台(旗舰版)","用户密码错误") Then


34.                 WinClose("欢迎登录交易开拓者")


35.                 $result = -1


36.         EndIf


37.     If $result = -1 Then


38.                 MsgBox(4096, "登录错误提示", "TB登录密码错误", 10)


39.                 ContinueLoop


40.         EndIf


41.     WinWaitActive("交易开拓者平台(旗舰版) - ","",30)


42.     Sleep(5000)


43.     WinActivate("交易开拓者平台(旗舰版) - ")


44.     If WinExists("系统消息") Then


45.         WinActivate("系统消息")


46.                 Sleep(1000)


47.         WinClose("系统消息")


48.         Sleep(1000)


49.     EndIf


50.     WinActivate("交易开拓者平台(旗舰版) - ")


51.     Sleep(2000)


52.     $result=WinMenuSelectItem("交易开拓者平台(旗舰版) - ","","交易(&T)","交易帐户登录")


53.         WinWaitActive("帐户登录","",20)


54.     WinActivate("帐户登录")


55.         ControlFocus("帐户登录","","Button1")


56.         Sleep(3000)


57.     ControlClick("帐户登录","","Button1")


58.     Sleep(5000)


59.         WinActivate("交易开拓者平台(旗舰版) - ")


60.         $result=WinMenuSelectItem("交易开拓者平台(旗舰版) - ","","文件(&F)", "启动所有自动交易")


61.     Sleep(2000)


62.     If $result=0 Then


63.         WinActivate("交易开拓者")


64.                 Sleep(1000)


65.         WinClose("交易开拓者")


66.         Sleep(2000)


67.     EndIf


68.   EndIf


69.  


70. ElseIf WinExists("交易开拓者") And @HOUR>=16 Then ;非交易时间关闭TB


71.             WinActivate("交易开拓者平台(旗舰版) - ")


72.                 Sleep(500)


73.                 MouseClick("left", 500, 500, 2)


74.                 WinMenuSelectItem("交易开拓者平台(旗舰版) - ","","文件(&F)", "退出")


75.                 MouseClick("left", 500, 500, 2)


76.                 ControlClick("确认","","Button1")


77.         Sleep(5000)


78. EndIf


79. WEnd

AutoIt 可以做的事:

• 
  运行 Windows 及 DOS 下的可执行文件
• 
  模拟键击动作（支持大多数的键盘布局）
• 
  模拟鼠标移动和点击动作。
• 
  对窗口进行移动、调整大小和其它操作。
• 
  直接与窗口的“控件“交互（设置/获取
  文字、移动、关闭，等等）
• 
  配合剪贴板进行剪切/粘贴文本操作
• 
  对注册表进行操作