用AUTOIT和TB打造国内期货无人值守全自动交易系统

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 开拓者公式 → 一键转帖：用AUTOIT和TB打造国内期货无人值守全自动交易系统

软件名称：[B]用AUTOIT和TB打造国内期货无人值守全自动交易系统[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：0 Bytes
官方主页：Home Page
更新时间：2013-03-18 02:41:21
软件简介:

咨询内容：
自动登录脚本代码更新，自用代码，已经经过在服务器上实盘使用验证，正常运行中
;注意，一定要把AutoIt脚本文件放在TB安装目录下，与TB执行程序TradeBlazer.exe放同一目录
1. #Include <date.au3>
2. Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword
3. $path=@ScriptDir&"\"
4. $TBloginname="***" ;用你的TB登陆zhanghao替换***
5. $TBloginpassword="***" ;用你的TB登陆密码替换***
6. While 1
7. If (@HOUR=8 And @MIN>=50 Or @HOUR>8) And @HOUR<=15 Then
8. Sleep(500)
9. If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者评台(旗舰版) - ") = 0 Then
10. ProcessClose("TradeBlazer.exe")
11. ProcessClose("TBDataCenter.exe")
12. Sleep(3000)
13. EndIf
14. If WinExists("交易开拓者评台(旗舰版) - ") = 0 Then
15. $result=0
16. FileDelete($path&"data\__db.001")
17. FileDelete($path&"data\__db.002")
18. FileDelete($path&"data\__db.003")
19. Run($path&"TradeBlazer.exe",$path)
20. WinWaitActive("欢迎登录交易开拓者评台(旗舰版)","",20)
21. WinActivate("交易开拓者评台(旗舰版)")
22. MouseClick("left", 500, 500, 2)
23. ControlFocus("欢迎登录交易开拓者评台(旗舰版)","","Edit1")
24. ControlSetText("欢迎登录交易开拓者评台(旗舰版)","","Edit1",$TBloginname)
25. MouseClick("left", 500, 500, 2)
26. ControlFocus("欢迎登录交易开拓者评台(旗舰版)","","Edit2")
27. ControlSetText("欢迎登录交易开拓者评台(旗舰版)","","Edit2",$TBloginpassword)
28. MouseClick("left", 500, 500, 2)
29. ControlFocus("欢迎登录交易开拓者评台(旗舰版)","","Button1")
30. Sleep(5)
31. ControlClick("欢迎登录交易开拓者评台(旗舰版)","","Button1")
32. Sleep(1000)
33. If WinExists("欢迎登录交易开拓者评台(旗舰版)","用户密码错误") Then
34. WinClose("欢迎登录交易开拓者")
35. $result = -1
36. EndIf
37. If $result = -1 Then
38. MsgBox(4096, "登录错误提示", "TB登录密码错误", 10)
39. ContinueLoop
40. EndIf
41. WinWaitActive("交易开拓者评台(旗舰版) - ","",30)
42. Sleep(5000)
43. WinActivate("交易开拓者评台(旗舰版) - ")
44. If WinExists("系统消息") Then
45. WinActivate("系统消息")
46. Sleep(1000)
47. WinClose("系统消息")
48. Sleep(1000)
49. EndIf
50. WinActivate("交易开拓者评台(旗舰版) - ")
51. Sleep(2000)
52. $result=WinMenuSelectItem("交易开拓者评台(旗舰版) - ","","交易(&T)","交易帐户登录")
53. WinWaitActive("帐户登录","",20)
54. WinActivate("帐户登录")
55. ControlFocus("帐户登录","","Button1")
56. Sleep(3000)
57. ControlClick("帐户登录","","Button1")
58. Sleep(5000)
59. WinActivate("交易开拓者评台(旗舰版) - ")
60. $result=WinMenuSelectItem("交易开拓者评台(旗舰版) - ","","文件(&F)", "启动所有自动交易")
61. Sleep(2000)
62. If $result=0 Then
63. WinActivate("交易开拓者")
64. Sleep(1000)
65. WinClose("交易开拓者")
66. Sleep(2000)
67. EndIf
68. EndIf
70. ElseIf WinExists("交易开拓者") And @HOUR>=16 Then ;非交易时间关闭TB
71. WinActivate("交易开拓者评台(旗舰版) - ")
72. Sleep(500) [url=http://www.70822.com/soft/sort013/sort083/down-59386.html]用AUTOIT和TB打造国内期货无人值守全自动交易系统[/url]