您现在的位置：程序化交易>> 期货公式>> 交易开拓者(TB)>> 开拓者知识>>正文内容

Windows自动登录+TB自动登陆无需安装AutoIT+源码来自乐丁　[开拓者 TB]

作者：开拓者 TB 来源：cxh99.com 发布时间：2012年08月15日点击数：　【收藏到本网的会员中心】

咨询内容： 点击"开始"中的"运行" 或 Win+R, 输入 control userpasswords2 命令
2009-11-20 8-21-24.jpg (17.71 KB, 下载次数: 22) 2009-11-20 08:26:30 上传
TB技术人员： 开盘时间和锁定系统,关闭TB功能注释掉了
2. #Include <date.au3>
3. Dim $result,$list[5][5],$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
4. ;参数传递
5. $paramscount = $CmdLine[0] ;取参数个数
6. If $ParamsCount>1 Then
7. $TBloginname=$CmdLine[1]
8. $TBloginpassword=$CmdLine[2]
9. Else
10. MsgBox(1,"提醒","请附加参数")
11. Exit
12. EndIf
13. If $ParamsCount>2 Then
14. $path=$CmdLine[3]
15. Else
16. $path="d:\Program Files\TradeBlazer\"
17. EndIf
18. If $ParamsCount>3 Then
19. $WorkTabID=$CmdLine[4]
20. EndIf
21. If $ParamsCount>4 Then
22. $WorkNum=$CmdLine[5]
23. Else
24. $WorkNum=5
25. EndIf
27. ;循环开始
28. While 1
29. If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版") = 0 Then
30. Sleep(3000)
31. EndIf
32. If WinExists("交易开拓者(超强版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
33. ;TB自动登陆设置*****开始*****,这部分实行TB自动登陆功能,如果TB有自动登陆功能的话,就简单多了(目前TB不能自动登陆)
34. ;关闭系统中不正常的tb进程----START---
35. $list=ProcessList("TradeBlazer.exe")
36. If $list[0][0]<>0 Then
37. $pid1=$list[1][1]
38. If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版") = 0 Then
39. If $list[0][0]>1 Then
40. for $i = 2 to $list[0][0]
41. If $pid1<>$list[$i][1] Then
42. ProcessClose($list[$i][1])
43. EndIf
44. Sleep(1000)
45. next
46. EndIf
47. EndIf
48. EndIf
49. ;关闭系统中不正常的tb进程----END----
51. ;第一次运行TB,先关闭再重新运行,解决有些电脑第一次登录不能聚焦到登陆控件导致无法自动登录的问题--START---
52. Run($path&"TradeBlazer.exe",$path)
53. WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
54. $list=ProcessList("TradeBlazer.exe")
55. If $list[0][0]>1 Then
56. for $i = 1 to $list[0][0]
57. If $pid1<>$list[$i][1] Then
58. ProcessClose($list[$i][1])
59. EndIf
60. Sleep(1000)
61. next
62. ElseIf $list[0][0]=1 Then
63. ProcessClose($list[1][1])
64. Sleep(1000)
65. EndIf
66. ;第一次运行TB,先关闭再重新运行,解决有些电脑第一次登录不能聚焦到登陆控件导致无法自动登录的问题--END----
68. Run($path&"TradeBlazer.exe",$path)
69. WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
70. While WinExists("TradeBlazer","初始化失败")
71. WinActivate("TradeBlazer","初始化失败")
72. WinClose("TradeBlazer","初始化失败")
73. Sleep(1000)
74. $list=ProcessList("TradeBlazer.exe")
75. If $list[0][0]=1 Then
76. ProcessClose($list[1][1])
77. Sleep(1000)
78. ElseIf $list[0][0]>1 Then
79. for $i = 1 to $list[0][0]
80. If $pid1<>$list[$i][1] Then
81. ProcessClose($list[$i][1])
82. EndIf
83. Sleep(1000)
84. next
85. EndIf
86. Run($path&"TradeBlazer.exe",$path)
87. WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
88. WEnd
89. WinActivate("欢迎登录交易开拓者(超强版)")
90. ControlFocus("欢迎登录交易开拓者(超强版)","","Edit1")
91. ControlSetText("欢迎登录交易开拓者(超强版)","","Edit1",$TBloginname)
92. ControlFocus("欢迎登录交易开拓者(超强版)","","Edit2")
93. ControlSetText("欢迎登录交易开拓者(超强版)","","Edit2",$TBloginpassword)
94. ControlFocus("欢迎登录交易开拓者(超强版)","","Button2")
95. ControlClick("欢迎登录交易开拓者(超强版)","","Button2")
96. WinWaitActive("交易开拓者(超强版) - ","",10)
97. Sleep(5000)
98. WinActivate("交易开拓者(超强版) - ")
99. If WinExists("系统消息") Then
100. WinActivate("系统消息")
101. WinClose("系统消息")
102. Sleep(1000)
103. EndIf
104. ;TB自动登陆设置*****结束*****
106. For $i=1 To $WorkNum
107. $tmp1 = 15 + 60 * ($i - 1)
108. WinActivate("交易开拓者(超强版) - ")
109. ControlClick("交易开拓者(超强版) - ","",$WorkTabID,"left",1,$tmp1,6)
110. Sleep(3000)
111. WinMenuSelectItem("交易开拓者(超强版) - ","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
112. Sleep(1000)
113. Next
114. Sleep(5000)
115. ; $result=DllCall("user32.dll","int","LockWorkStation");开启TB自动交易后,锁定电脑系统
116. ;ElseIf $result<1 Then
117. ; $result=DllCall("user32.dll","int","LockWorkStation");非交易时间启动电脑后,立即锁定电脑系统
118. EndIf
119. ;If WinExists("交易开拓者") And @HOUR>22 Then ;非交易时间关闭TB
120. ; WinActivate("交易开拓者")
121. ; Sleep(1000)
122. ; WinClose("交易开拓者")
123. ;EndIf
124. Sleep(1000*30)
125. WEnd
126. ;循环结束
复制代码
[ 本帖最后由女儿是期神于 2009-11-20 08:56 编辑 ]
TB客服： 根据乐丁的代码写的参数传递的TB登陆程序
2009-11-20 8-31-53.jpg (54.65 KB, 下载次数: 3) 2009-11-20 08:33:40 上传下载次数: 3
源码 autoTB源码.rar (1.39 KB, 下载次数: 77) 2009-11-20 08:33:40 上传下载次数: 77
程序 autoTB.part1.rar (195.31 KB, 下载次数: 151) 2009-11-20 08:39:34 上传下载次数: 151 autoTB.part2.rar (139.85 KB, 下载次数: 130) 2009-11-20 08:39:34 上传下载次数: 130
Au3Info Au3Info.rar (121.12 KB, 下载次数: 104) 2009-11-20 08:39:34 上传下载次数: 104 有了这个就可以不装AutoIt了
有朋友问怎么用,于是写个更详细的说明
下载AutoTB.rar和Au3Info.rar,如果这个能满足要求就不用下源码修改了.
解压后
2009-11-20 13-47-25.png (59.18 KB, 下载次数: 4) 2009-11-20 14:16:47 上传下载次数: 4
在桌面上建个文本文件
2009-11-20 13-48-52.png (4.66 KB, 下载次数: 4) 2009-11-20 14:16:47 上传下载次数: 4
填写收帐号和密码
2009-11-20 13-51-26.png (8.89 KB, 下载次数: 4) 2009-11-20 14:16:47 上传下载次数: 4
开拓者快捷方式里复制安装文件夹
2009-11-20 13-55-33.png (53.79 KB, 下载次数: 5) 2009-11-20 14:16:47 上传下载次数: 5
粘贴至文本文件窗口中
2009-11-20 13-59-44.png (8.23 KB, 下载次数: 3) 2009-11-20 14:16:47 上传下载次数: 3
运行Au3Info找到控件名,并复制粘贴到文本文件中
2009-11-20 14-07-58.png (31.13 KB, 下载次数: 5) 2009-11-20 14:16:47 上传下载次数: 5
最终结果
2009-11-20 14-13-32.png (22.03 KB, 下载次数: 3) 2009-11-20 14:16:47 上传下载次数: 3
全选复制
创建AutoTB.exe的快捷方式,并在其属性里粘贴刚才的文本即可
2009-11-20 14-18-09.png (79.81 KB, 下载次数: 1) 2009-11-20 14:16:47 上传下载次数: 1
以后运行这个快捷方式就行了,想自动启动,就把它移到"开始"菜单的"启动"里吧

[ 本帖最后由女儿是期神于 2009-11-20 14:16 编辑 ]
网友回复： 不错，有创意
网友回复： 完全的无人值守我还是不放心