Windows自動登錄+TB自動登陸無需安裝AutoIT+源碼來自樂丁 [開拓者 TB]
- 咨詢內(nèi)容:
點擊"開始"中的"運行" 或 Win+R, 輸入 control userpasswords2 命令
2009-11-20 8-21-24.jpg (17.71 KB, 下載次數(shù): 22) 2009-11-20 08:26:30 上傳
- TB技術(shù)人員:
開盤時間和鎖定系統(tǒng),關(guān)閉TB功能注釋掉了
-
- #Include <date.au3>
- Dim $result,$list[5][5],$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
- ;參數(shù)傳遞
- $paramscount = $CmdLine[0] ;取參數(shù)個數(shù)
- If $ParamsCount>1 Then
- $TBloginname=$CmdLine[1]
- $TBloginpassword=$CmdLine[2]
- Else
- MsgBox(1,"提醒","請附加參數(shù)")
- Exit
- EndIf
- If $ParamsCount>2 Then
- $path=$CmdLine[3]
- Else
- $path="d:\Program Files\TradeBlazer\"
- EndIf
- If $ParamsCount>3 Then
- $WorkTabID=$CmdLine[4]
- EndIf
- If $ParamsCount>4 Then
- $WorkNum=$CmdLine[5]
- Else
- $WorkNum=5
- EndIf
-
- ;循環(huán)開始
- While 1
- If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強(qiáng)版") = 0 Then
- Sleep(3000)
- EndIf
- If WinExists("交易開拓者(超強(qiáng)版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
- ;TB自動登陸設(shè)置*****開始*****,這部分實行TB自動登陸功能,如果TB有自動登陸功能的話,就簡單多了(目前TB不能自動登陸)
- ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----START---
- $list=ProcessList("TradeBlazer.exe")
- If $list[0][0]<>0 Then
- $pid1=$list[1][1]
- If ProcessExists("TradeBlazer.exe") And WinExists("交易開拓者(超強(qiáng)版") = 0 Then
- If $list[0][0]>1 Then
- for $i = 2 to $list[0][0]
- If $pid1<>$list[$i][1] Then
- ProcessClose($list[$i][1])
- EndIf
- Sleep(1000)
- next
- EndIf
- EndIf
- EndIf
- ;關(guān)閉系統(tǒng)中不正常的tb進(jìn)程----END----
-
- ;第一次運行TB,先關(guān)閉再重新運行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動登錄的問題--START---
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
- $list=ProcessList("TradeBlazer.exe")
- If $list[0][0]>1 Then
- for $i = 1 to $list[0][0]
- If $pid1<>$list[$i][1] Then
- ProcessClose($list[$i][1])
- EndIf
- Sleep(1000)
- next
- ElseIf $list[0][0]=1 Then
- ProcessClose($list[1][1])
- Sleep(1000)
- EndIf
- ;第一次運行TB,先關(guān)閉再重新運行,解決有些電腦第一次登錄不能聚焦到登陸控件導(dǎo)致無法自動登錄的問題--END----
-
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
- While WinExists("TradeBlazer","初始化失敗")
- WinActivate("TradeBlazer","初始化失敗")
- WinClose("TradeBlazer","初始化失敗")
- Sleep(1000)
- $list=ProcessList("TradeBlazer.exe")
- If $list[0][0]=1 Then
- ProcessClose($list[1][1])
- Sleep(1000)
- ElseIf $list[0][0]>1 Then
- for $i = 1 to $list[0][0]
- If $pid1<>$list[$i][1] Then
- ProcessClose($list[$i][1])
- EndIf
- Sleep(1000)
- next
- EndIf
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("歡迎登錄交易開拓者(超強(qiáng)版)","",10)
- WEnd
- WinActivate("歡迎登錄交易開拓者(超強(qiáng)版)")
- ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1")
- ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit1",$TBloginname)
- ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2")
- ControlSetText("歡迎登錄交易開拓者(超強(qiáng)版)","","Edit2",$TBloginpassword)
- ControlFocus("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
- ControlClick("歡迎登錄交易開拓者(超強(qiáng)版)","","Button2")
- WinWaitActive("交易開拓者(超強(qiáng)版) - ","",10)
- Sleep(5000)
- WinActivate("交易開拓者(超強(qiáng)版) - ")
- If WinExists("系統(tǒng)消息") Then
- WinActivate("系統(tǒng)消息")
- WinClose("系統(tǒng)消息")
- Sleep(1000)
- EndIf
- ;TB自動登陸設(shè)置*****結(jié)束*****
-
- For $i=1 To $WorkNum
- $tmp1 = 15 + 60 * ($i - 1)
- WinActivate("交易開拓者(超強(qiáng)版) - ")
- ControlClick("交易開拓者(超強(qiáng)版) - ","",$WorkTabID,"left",1,$tmp1,6)
- Sleep(3000)
- WinMenuSelectItem("交易開拓者(超強(qiáng)版) - ","","文件(&F)", "啟動所有自動交易");啟動工作區(qū)內(nèi)所有自動交易
- Sleep(1000)
- Next
- Sleep(5000)
- ; $result=DllCall("user32.dll","int","LockWorkStation");開啟TB自動交易后,鎖定電腦系統(tǒng)
- ;ElseIf $result<1 Then
- ; $result=DllCall("user32.dll","int","LockWorkStation");非交易時間啟動電腦后,立即鎖定電腦系統(tǒng)
- EndIf
- ;If WinExists("交易開拓者") And @HOUR>22 Then ;非交易時間關(guān)閉TB
- ; WinActivate("交易開拓者")
- ; Sleep(1000)
- ; WinClose("交易開拓者")
- ;EndIf
- Sleep(1000*30)
- WEnd
- ;循環(huán)結(jié)束
[ 本帖最后由 女兒是期神 于 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
Au3InfoAu3Info.rar (121.12 KB, 下載次數(shù): 104) 2009-11-20 08:39:34 上傳 下載次數(shù): 104
有朋友問怎么用,于是寫個更詳細(xì)的說明
下載AutoTB.rar和Au3Info.rar,如果這個能滿足要求就不用下源碼修改了.
解壓后
2009-11-20 13-47-25.png (59.18 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳 下載次數(shù): 4
在桌面上建個文本文件
2009-11-20 13-48-52.png (4.66 KB, 下載次數(shù): 4) 2009-11-20 14:16:47 上傳 下載次數(shù): 4
填寫收帳號和密碼
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
運行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
以后運行這個快捷方式就行了,想自動啟動,就把它移到"開始"菜單的"啟動"里吧
[ 本帖最后由 女兒是期神 于 2009-11-20 14:16 編輯 ] - 網(wǎng)友回復(fù):
不錯,有創(chuàng)意
- 網(wǎng)友回復(fù):
完全的無人值守我還是不放心
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態(tài)個股的話,
相關(guān)文章
-
沒有相關(guān)內(nèi)容