期貨TB編程:
用AUTOIT和TB打造期貨全自動交易系統(tǒng)
(網(wǎng)摘)
自動登錄腳本代碼更新,自用代碼,已經(jīng)經(jīng)過在服務器上實盤使用驗證,正常運行中。
;注意,一定要把AutoIt腳本文件放在TB安裝目錄下,與TB執(zhí)行程序TradeBlazer.exe放同一目錄
#Include <date.au3>
Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword
$TBloginname="***"
;用你的TB登陸賬號替換***
$TBloginpassword="***"
;用你的TB登陸密碼替換***
While 1
If
(@HOUR=8 And @MIN>=50 Or @HOUR>8) And
@HOUR<=15 Then
Sleep(500)
If ProcessExists("TradeBlazer.exe") And
WinExists("交易開拓者平臺(旗艦版) - ") = 0 Then
ProcessClose("TradeBlazer.exe")
ProcessClose("TBDataCenter.exe")
Sleep(3000)
EndIf
If WinExists("交易開拓者平臺(旗艦版) - ") = 0 Then
$result=0
FileDelete($path&"data\__db.001")
FileDelete($path&"data\__db.002")
FileDelete($path&"data\__db.003")
Run($path&"TradeBlazer.exe",$path)
WinWaitActive("歡迎登錄交易開拓者平臺(旗艦版)","",20)
WinActivate("交易開拓者平臺(旗艦版)")
MouseClick("left", 500, 500, 2)
ControlFocus("歡迎登錄交易開拓者平臺(旗艦版)","","Edit1")
ControlSetText("歡迎登錄交易開拓者平臺(旗艦版)","","Edit1",$TBloginname)
MouseClick("left", 500, 500, 2)
ControlFocus("歡迎登錄交易開拓者平臺(旗艦版)","","Edit2")
ControlSetText("歡迎登錄交易開拓者平臺(旗艦版)","","Edit2",$TBloginpassword)
MouseClick("left", 500, 500, 2)
ControlFocus("歡迎登錄交易開拓者平臺(旗艦版)","","Button1")
Sleep(5)
ControlClick("歡迎登錄交易開拓者平臺(旗艦版)","","Button1")
Sleep(1000)
If WinExists("歡迎登錄交易開拓者平臺(旗艦版)","用戶密碼錯誤") Then
WinClose("歡迎登錄交易開拓者")
$result = -1
EndIf
If $result =
-1 Then
MsgBox(4096, "登錄錯誤提示", "TB登錄密碼錯誤", 10)
ContinueLoop
EndIf
WinWaitActive("交易開拓者平臺(旗艦版) - ","",30)
Sleep(5000)
WinActivate("交易開拓者平臺(旗艦版) - ")
If
WinExists("系統(tǒng)消息") Then
WinActivate("系統(tǒng)消息")
Sleep(1000)