Windows自动登录+TB自动登陆无需安装AutoIT+源码来自乐丁

女儿是期神

点击"开始"中的"运行" 或 Win+R, 输入 control userpasswords2 命令

确定后出现

确定后

输入密码即可,再开机就会自动进入桌面了.

[ 本帖最后由 女儿是期神 于 2009-11-20 08:49 编辑 ]

女儿是期神

开盘时间和锁定系统,关闭TB功能注释掉了

1. 
   
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
    
26. 
    
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----
    
50. 
    
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----
    
67.   
    
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自动登陆设置*****结束*****
     
105.    
     
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登陆程序

源码
程序
Au3Info有了这个就可以不装AutoIt了
有朋友问怎么用,于是写个更详细的说明
下载AutoTB.rar和Au3Info.rar,如果这个能满足要求就不用下源码修改了.
解压后

在桌面上建个文本文件

填写收帐号和密码

开拓者快捷方式里复制安装文件夹

粘贴至文本文件窗口中

运行Au3Info找到控件名,并复制粘贴到文本文件中

最终结果

全选复制
创建AutoTB.exe的快捷方式,并在其属性里粘贴刚才的文本即可

以后运行这个快捷方式就行了,想自动启动,就把它移到"开始"菜单的"启动"里吧

[ 本帖最后由 女儿是期神 于 2009-11-20 14:16 编辑 ]

hyjok

不错，有创意

aocool

完全的无人值守我还是不放心

女儿是期神

尽量解放双手而已

yangtse010

楼主辛苦了。 我要争取成为高级散户

幺林

谢楼主共享

xiaoyu0728

谢谢楼主分享，尝试一下

cspchong

谢谢分享。