开拓者期货期权程序化系统交易论坛
标题:
简易版autoit自动开关程序化交易
[打印本页]
作者:
coldyi
时间:
2015-7-17 11:00:42
标题:
简易版autoit自动开关程序化交易
本帖最后由 coldyi 于 2015-7-17 19:02 编辑
先感谢hyjok大神提供的思路!
hyjok的帖子:
http://bbs.tb18.net/forum.php?mo ... mp;highlight=autoit
说到这个,麻烦TB团队直接在系统设置中添加个“启动所有自动交易”的时间设置吧!
现在只能登录账户,程序化还要人工开启,多傻啊~还要用autoit,何必呢~~
以下为简易版的autoit设计,适合时不时可以看一眼电脑,但不能保证人一直在的情况(个人觉得,盘中完全没空看电脑还是有点危险,比如图形卡主怎么办?)。
功能是:新版的TB已经提供了盘前自动登录账号的功能,那么autoit只需要在盘前开启自动交易、盘后关闭自动交易即可。
步骤为2个:1、TB的系统设置。2、Autoit放入TB的exe目录下。
一、TB的系统设置
[attach]32111[/attach]
[attach]32096[/attach]
[attach]32097[/attach]
二、autoit代码
#Include <date.au3>
Dim $result
;循环开始
While 1
If (@HOUR=8 And @MIN>=40 And @MIN<=50) Or (@HOUR=20 And @MIN>=40 And @MIN<=50) Then ;启动工作区内所有自动交易
WinActivate("交易开拓者平台(旗舰版)")
Sleep(2000)
$result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
Sleep(2000)
If $result=1 Then Sleep(2000)
If $result=0 Then
WinActivate("交易开拓者平台(旗舰版)")
Sleep(2000)
$result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
Sleep(2000)
EndIf
EndIf
If (@HOUR=15 And @MIN>=35 And @MIN<=40) Or (@HOUR=2 And @MIN>=35 And @MIN<=40) Then ;关闭工作区内所有自动交易
;TB自动登陆设置*****结束*****
WinActivate("交易开拓者平台(旗舰版)")
Sleep(2000)
$result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "停止所有自动交易");关闭工作区内所有自动交易
Sleep(2000)
If $result=1 Then Sleep(2000)
If $result=0 Then
WinActivate("交易开拓者平台(旗舰版)")
Sleep(2000)
$result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "停止所有自动交易");关闭工作区内所有自动交易
Sleep(2000)
EndIf
EndIf
Sleep(1000)
WEnd
;循环结束
复制代码
操作:
1、设置完成后,先人工登录TB,一直开着就好(开始界面使用默认不登录账户的设置即可,因为根据前面的设置开盘前系统会自动登录账户)。
2、Autoit放在TB Exe目录下。
3、
大家记得先测试下自己的电话是否正常能运行哦!有错误欢迎拍砖。
Over~
作者:
kindjrp
时间:
2015-11-8 22:46:18
TB一直开着不会自动更新主力合约,这是个问题
作者:
shaoyu1979
时间:
2016-4-25 10:46:42
代码怎么使用?适合64位版面吗
欢迎光临 开拓者期货期权程序化系统交易论坛 (http://bbs.tb18.net/)
Powered by Discuz! X2