简易版autoit自动开关程序化交易

coldyi

先感谢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的系统设置




二、autoit代码

1. #Include <date.au3>
   
2. Dim $result
   
3. 
   
4. ;循环开始
   
5. While 1
   
6. 
   
7. If (@HOUR=8 And @MIN>=40 And @MIN<=50) Or (@HOUR=20 And @MIN>=40 And @MIN<=50) Then ;启动工作区内所有自动交易
   
8. 
   
9. 
   
10.     WinActivate("交易开拓者平台(旗舰版)")
    
11.     Sleep(2000)
    
12.     $result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
    
13.     Sleep(2000)
    
14.     If $result=1 Then Sleep(2000)
    
15.     If $result=0 Then
    
16.         WinActivate("交易开拓者平台(旗舰版)")
    
17.         Sleep(2000)
    
18.         $result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
    
19.             Sleep(2000)
    
20.          EndIf
    
21.   EndIf
    
22. 
    
23.   If (@HOUR=15 And @MIN>=35 And @MIN<=40) Or (@HOUR=2 And @MIN>=35 And @MIN<=40) Then ;关闭工作区内所有自动交易
    
24. 
    
25. ;TB自动登陆设置*****结束*****
    
26.     WinActivate("交易开拓者平台(旗舰版)")
    
27.     Sleep(2000)
    
28.     $result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "停止所有自动交易");关闭工作区内所有自动交易
    
29.     Sleep(2000)
    
30.     If $result=1 Then Sleep(2000)
    
31.     If $result=0 Then
    
32.         WinActivate("交易开拓者平台(旗舰版)")
    
33.         Sleep(2000)
    
34.         $result=WinMenuSelectItem("交易开拓者平台(旗舰版)","","文件(&F)", "停止所有自动交易");关闭工作区内所有自动交易
    
35.             Sleep(2000)
    
36.          EndIf
    
37.   EndIf
    
38. 
    
39. Sleep(1000)
    
40. WEnd
    
41. ;循环结束

复制代码

操作：
1、设置完成后，先人工登录TB，一直开着就好（开始界面使用默认不登录账户的设置即可，因为根据前面的设置开盘前系统会自动登录账户）。
2、Autoit放在TB Exe目录下。
3、大家记得先测试下自己的电话是否正常能运行哦！有错误欢迎拍砖。
Over~

kindjrp

TB一直开着不会自动更新主力合约，这是个问题

shaoyu1979

代码怎么使用？适合64位版面吗