用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 下的可執行文件
• 
  模擬鍵擊動作（支持大多數的鍵盤布局）
• 
  模擬鼠標移動和點擊動作。
• 
  對窗口進行移動、調整大小和其它操作。
• 
  直接與窗口的“控件“交互（設置/獲取
  文字、移動、關閉，等等）
• 
  配合剪貼板進行剪切/粘貼文本操作
• 
  對注冊表進行操作