用AUTOIT和TB打造國(guó)內(nèi)期貨無(wú)人值守全自動(dòng)交易系統(tǒng)[開(kāi)拓者公式]
- 咨詢內(nèi)容：
自動(dòng)登錄腳本代碼更新，自用代碼，已經(jīng)經(jīng)過(guò)在服務(wù)器上實(shí)盤使用驗(yàn)證，正常運(yùn)行中;注意，一定要把AutoIt腳本文件放在TB安裝目錄下，與TB執(zhí)行程序TradeBlazer.exe放同一目錄
- #Include <date.au3>
- Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword
- $path=@ScriptDir&"\"
- $TBloginname="***" ;用你的TB登陸賬號(hào)替換***
- $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("交易開(kāi)拓者平臺(tái)(旗艦版) - ") = 0 Then
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TBDataCenter.exe")
- Sleep(3000)
- EndIf
- If WinExists("交易開(kāi)拓者平臺(tái)(旗艦版) - ") = 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("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","",20)
- WinActivate("交易開(kāi)拓者平臺(tái)(旗艦版)")
- MouseClick("left", 500, 500, 2)
- ControlFocus("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Edit1")
- ControlSetText("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Edit1",$TBloginname)
- MouseClick("left", 500, 500, 2)
- ControlFocus("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Edit2")
- ControlSetText("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Edit2",$TBloginpassword)
- MouseClick("left", 500, 500, 2)
- ControlFocus("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Button1")
- Sleep(5)
- ControlClick("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","","Button1")
- Sleep(1000)
- If WinExists("歡迎登錄交易開(kāi)拓者平臺(tái)(旗艦版)","用戶密碼錯(cuò)誤") Then
- WinClose("歡迎登錄交易開(kāi)拓者")
- $result = -1
- EndIf
- If $result = -1 Then
- MsgBox(4096, "登錄錯(cuò)誤提示", "TB登錄密碼錯(cuò)誤", 10)
- ContinueLoop
- EndIf
- WinWaitActive("交易開(kāi)拓者平臺(tái)(旗艦版) - ","",30)
- Sleep(5000)
- WinActivate("交易開(kāi)拓者平臺(tái)(旗艦版) - ")
- If WinExists("系統(tǒng)消息") Then
- WinActivate("系統(tǒng)消息")
- Sleep(1000)
- WinClose("系統(tǒng)消息")
- Sleep(1000)
- EndIf
- WinActivate("交易開(kāi)拓者平臺(tái)(旗艦版) - ")
- Sleep(2000)
- $result=WinMenuSelectItem("交易開(kāi)拓者平臺(tái)(旗艦版) - ","","交易(&T)","交易帳戶登錄")
- WinWaitActive("帳戶登錄","",20)
- WinActivate("帳戶登錄")
- ControlFocus("帳戶登錄","","Button1")
- Sleep(3000)
- ControlClick("帳戶登錄","","Button1")
- Sleep(5000)
- WinActivate("交易開(kāi)拓者平臺(tái)(旗艦版) - ")
- $result=WinMenuSelectItem("交易開(kāi)拓者平臺(tái)(旗艦版) - ","","文件(&F)", "啟動(dòng)所有自動(dòng)交易")
- Sleep(2000)
- If $result=0 Then
- WinActivate("交易開(kāi)拓者")
- Sleep(1000)
- WinClose("交易開(kāi)拓者")
- Sleep(2000)
- EndIf
- EndIf
- ElseIf WinExists("交易開(kāi)拓者") And @HOUR>=16 Then ;非交易時(shí)間關(guān)閉TB
- WinActivate("交易開(kāi)拓者平臺(tái)(旗艦版) - ")
- Sleep(500)
- MouseClick("left", 500, 500, 2)
- WinMenuSelectItem("交易開(kāi)拓者平臺(tái)(旗艦版) - ","","文件(&F)", "退出")
- MouseClick("left", 500, 500, 2)
- ControlClick("確認(rèn)","","Button1")
- Sleep(5000)
- EndIf
- WEnd
- 一、AUTOIT和TB簡(jiǎn)介
AutoIt 可以做的事:
運(yùn)行 Windows 及 DOS 下的可執(zhí)行文件
模擬鍵擊動(dòng)作（支持大多數(shù)的鍵盤布局）
模擬鼠標(biāo)移動(dòng)和點(diǎn)擊動(dòng)作。
對(duì)窗口進(jìn)行移動(dòng)、調(diào)整大小和其它操作。
直接與窗口的“控件“交互（設(shè)置/獲取
文字、移動(dòng)、關(guān)閉，等等）
配合剪貼板進(jìn)行剪切/粘貼文本操作
對(duì)注冊(cè)表進(jìn)行操作
AUTOIT在線中文幫助文檔http://www.dreams8.com/autoit/
TB：指交易開(kāi)拓者超強(qiáng)版，詳見(jiàn)TB網(wǎng)站論壇http://www.tradeblazer.net/forum/index.php
二、電腦系統(tǒng)設(shè)置
用做自動(dòng)交易的電腦系統(tǒng)必須設(shè)置成自動(dòng)登錄，否則無(wú)法實(shí)現(xiàn)無(wú)人值守自動(dòng)交易，電腦系統(tǒng)自動(dòng)登陸方面請(qǐng)自己到網(wǎng)上搜索，不管是WIN XP還WIN2003都可以
（假設(shè)系統(tǒng)是設(shè)置成Administrator用戶自動(dòng)登錄，后面設(shè)置自動(dòng)啟動(dòng)交易時(shí)會(huì)用到自動(dòng)登錄用戶Administrator的文件夾，見(jiàn)五）
三、TB準(zhǔn)備工作
1、安裝TB ，登陸TB
2、TB系統(tǒng)設(shè)置，打開(kāi)“系統(tǒng)設(shè)置”，在“常規(guī)”頁(yè)選中“打開(kāi)最后保存的工作室（所有工作區(qū)）”；
- 在“交易”頁(yè)中將“默認(rèn)顯示交易師普通單確認(rèn)頁(yè)面”“默認(rèn)顯示交易師觸發(fā)單確認(rèn)頁(yè)面” “默認(rèn)顯示預(yù)埋單之一鍵下單確認(rèn)頁(yè)面”“默認(rèn)顯示成交回報(bào)頁(yè)面”四項(xiàng)前面的勾（√）去掉；然后點(diǎn)擊“確定”
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)