您現在的位置：程序化交易>> 期貨公式>> 交易開拓者(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 編輯 ]
網友回復： 不錯，有創意
網友回復： 完全的無人值守我還是不放心