- 精华
- 0
- 在线时间
- 298 小时
- UID
- 31858
- 积分
- 516
- 帖子
- 115
- 阅读权限
- 50
- 注册时间
- 2011-4-9
- 最后登录
- 2020-11-29
- 精华
- 0
- UID
- 31858
- 积分
- 516
- 帖子
- 115
- 主题
- 34
- 阅读权限
- 50
- 注册时间
- 2011-4-9
- 最后登录
- 2020-11-29
|
本帖最后由 beijib 于 2017-1-10 10:55 编辑
终于搞定了autoit3完全自动化Tbplus8.1.2.8,以下代码是在windows 2012 R2下的代码,如果不同的话,控件信息要用au3info自己取值修改一下即可。
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Include <date.au3>
Dim $path
$path="C:\Program Files\TradeBlazer\TBPlus\" ;TB默认安装路径,如非默认安装,这里需要更改为你TB安装路径
;循环开始
While 1
If ProcessExists("TBPlus.exe") And WinExists("TBPlus 8.0") = 0 Then
ProcessClose("TBPlus.exe")
Sleep(3000)
EndIf
If WinExists("TBPlus 8.0") = 0 And ((@HOUR=08 And @MIN>=35 And @MIN<=39) Or (@HOUR=20 And @MIN>=35 And @MIN<=39)) Then
Run($path&"TBPlus.exe",$path)
WinWaitActive("TBPlus 8.0---用户登录","",20)
WinActivate("TBPlus 8.0---用户登录")
Sleep(2000)
ControlClick("TBPlus 8.0---用户登录", "", "WindowsForms10.BUTTON.app.0.e4c6c4_r9_ad13") ;模拟鼠标点击登录按钮
Sleep(2000)
WinWaitActive("TBPlus 8.0","",20)
WinActivate("TBPlus 8.0")
Sleep(5000)
ControlClick("TBPlus 8.0","","WindowsForms10.Window.8.app.0.e4c6c4_r9_ad111","left",1, 215, 12) ;模拟鼠标点击自动交易按钮
Sleep(5000)
EndIf
If WinExists("TBPlus 8.0") And ((@HOUR=15 And @MIN>=35 And @MIN<=40) Or (@HOUR=2 And @MIN>=35 And @MIN<=40)) Then ;非交易时间关闭TB
ProcessClose("TBPlus.exe")
EndIf
Sleep(1000)
WEnd
;循环结束 |
|