您現(xiàn)在的位置：程序化交易>> 期貨公式>> 交易開拓者(TB)>> 開拓者知識(shí)>>正文內(nèi)容

Windows自動(dòng)登錄+TB自動(dòng)登陸無需安裝AutoIT+源碼來自樂丁　[開拓者 TB]

作者：開拓者 TB 來源：cxh99.com 發(fā)布時(shí)間：2012年08月15日點(diǎn)擊數(shù)：　【收藏到本網(wǎng)的會(huì)員中心】

咨詢內(nèi)容： 點(diǎn)擊"開始"中的"運(yùn)行" 或 Win+R, 輸入 control userpasswords2 命令
2009-11-20 8-21-24.jpg (17.71 KB, 下載次數(shù): 22) 2009-11-20 08:26:30 上傳
TB技術(shù)人員： 開盤時(shí)間和鎖定系統(tǒng),關(guān)閉TB功能注釋掉了
2. #Include <date.au3>
3. Dim $result,$list[5][5],$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
4. ;參數(shù)傳遞
5. $paramscount = $CmdLine[0] ;取參數(shù)個(gè)數(shù)
6. If $ParamsCount>1 Then
7. $TBloginname=$CmdLine[1]
8. $TBloginpassword=$CmdLine[2]
9. Else
10. MsgBox(1,"提醒","請(qǐng)附加參數(shù)")
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. ;循環(huán)開始
28. While 1
29. If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強(qiáng)版") = 0 Then
30. Sleep(3000)
31. EndIf
32. If WinExists("交易開拓者(超強(qiáng)版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
33. ;TB自動(dòng)登陸設(shè)置*****開始*****,這部分實(shí)行TB自動(dòng)登陸功能,如果TB有自動(dòng)登陸功能的話,就簡(jiǎn)單多了(目前TB不能自動(dòng)登陸)
34. ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----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("交易開拓者(超強(qiáng)版") = 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. ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----END----
51. ;第一次運(yùn)行TB,先關(guān)閉再重新運(yùn)行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動(dòng)登錄的問題--START---
52. Run($path&"TradeBlazer.exe",$path)
53. WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",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. ;第一次運(yùn)行TB,先關(guān)閉再重新運(yùn)行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動(dòng)登錄的問題--END----
68. Run($path&"TradeBlazer.exe",$path)
69. WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",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("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
88. WEnd
89. WinActivate("歡迎登錄交易開拓者(超強(qiáng)版)")
90. ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1")
91. ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1",$TBloginname)
92. ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2")
93. ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2",$TBloginpassword)
94. ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
95. ControlClick("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
96. WinWaitActive("交易開拓者(超強(qiáng)版) - ","",10)
97. Sleep(5000)
98. WinActivate("交易開拓者(超強(qiáng)版) - ")
99. If WinExists("系統(tǒng)消息") Then
100. WinActivate("系統(tǒng)消息")
101. WinClose("系統(tǒng)消息")
102. Sleep(1000)
103. EndIf
104. ;TB自動(dòng)登陸設(shè)置*****結(jié)束*****
106. For $i=1 To $WorkNum
107. $tmp1 = 15 + 60 * ($i - 1)
108. WinActivate("交易開拓者(超強(qiáng)版) - ")
109. ControlClick("交易開拓者(超強(qiáng)版) - ","",$WorkTabID,"left",1,$tmp1,6)
110. Sleep(3000)
111. WinMenuSelectItem("交易開拓者(超強(qiáng)版) - ","","文件(&F)", "啟動(dòng)所有自動(dòng)交易");啟動(dòng)工作區(qū)內(nèi)所有自動(dòng)交易
112. Sleep(1000)
113. Next
114. Sleep(5000)
115. ; $result=DllCall("user32.dll","int","LockWorkStation");開啟TB自動(dòng)交易后,鎖定電腦系統(tǒng)
116. ;ElseIf $result<1 Then
117. ; $result=DllCall("user32.dll","int","LockWorkStation");非交易時(shí)間啟動(dòng)電腦后,立即鎖定電腦系統(tǒng)
118. EndIf
119. ;If WinExists("交易開拓者") And @HOUR>22 Then ;非交易時(shí)間關(guān)閉TB
120. ; WinActivate("交易開拓者")
121. ; Sleep(1000)
122. ; WinClose("交易開拓者")
123. ;EndIf
124. Sleep(1000*30)
125. WEnd
126. ;循環(huán)結(jié)束
復(fù)制代碼
[ 本帖最后由女兒是期神于 2009-11-20 08:56 編輯 ]
TB客服： 根據(jù)樂丁的代碼寫的參數(shù)傳遞的TB登陸程序
2009-11-20 8-31-53.jpg (54.65 KB, 下載次數(shù): 3) 2009-11-20 08:33:40 上傳下載次數(shù): 3
源碼 autoTB源碼.rar (1.39 KB, 下載次數(shù): 77) 2009-11-20 08:33:40 上傳下載次數(shù): 77
程序 autoTB.part1.rar (195.31 KB, 下載次數(shù): 151) 2009-11-20 08:39:34 上傳下載次數(shù): 151 autoTB.part2.rar (139.85 KB, 下載次數(shù): 130) 2009-11-20 08:39:34 上傳下載次數(shù): 130
Au3Info Au3Info.rar (121.12 KB, 下載次數(shù): 104) 2009-11-20 08:39:34 上傳下載次數(shù): 104 有了這個(gè)就可以不裝AutoIt了
有朋友問怎么用,于是寫個(gè)更詳細(xì)的說明
下載AutoTB.rar和Au3Info.rar,如果這個(gè)能滿足要求就不用下源碼修改了.
解壓后
2009-11-20 13-47-25.png (59.18 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳下載次數(shù): 4
在桌面上建個(gè)文本文件
2009-11-20 13-48-52.png (4.66 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳下載次數(shù): 4
填寫收帳號(hào)和密碼
2009-11-20 13-51-26.png (8.89 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳下載次數(shù): 4
開拓者快捷方式里復(fù)制安裝文件夾
2009-11-20 13-55-33.png (53.79 KB, 下載次數(shù): 5) 2009-11-20 14:16:47 上傳下載次數(shù): 5
粘貼至文本文件窗口中
2009-11-20 13-59-44.png (8.23 KB, 下載次數(shù): 3) 2009-11-20 14:16:47 上傳下載次數(shù): 3
運(yùn)行Au3Info找到控件名,并復(fù)制粘貼到文本文件中
2009-11-20 14-07-58.png (31.13 KB, 下載次數(shù): 5) 2009-11-20 14:16:47 上傳下載次數(shù): 5
最終結(jié)果
2009-11-20 14-13-32.png (22.03 KB, 下載次數(shù): 3) 2009-11-20 14:16:47 上傳下載次數(shù): 3
全選復(fù)制
創(chuàng)建AutoTB.exe的快捷方式,并在其屬性里粘貼剛才的文本即可
2009-11-20 14-18-09.png (79.81 KB, 下載次數(shù): 1) 2009-11-20 14:16:47 上傳下載次數(shù): 1
以后運(yùn)行這個(gè)快捷方式就行了,想自動(dòng)啟動(dòng),就把它移到"開始"菜單的"啟動(dòng)"里吧

[ 本帖最后由女兒是期神于 2009-11-20 14:16 編輯 ]
網(wǎng)友回復(fù)： 不錯(cuò)，有創(chuàng)意
網(wǎng)友回復(fù)： 完全的無人值守我還是不放心