Windows自动登录+TB自动登陆无需安装AutoIT+源码来自乐丁
点击"开始"中的"运行" 或 Win+R, 输入 control userpasswords2 命令确定后出现
确定后
输入密码即可,再开机就会自动进入桌面了.
[ 本帖最后由 女儿是期神 于 2009-11-20 08:49 编辑 ] 开盘时间和锁定系统,关闭TB功能注释掉了
#Include <date.au3>
Dim $result,$list,$pid1,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID,$ParamsCount
;参数传递
$paramscount = $CmdLine ;取参数个数
If $ParamsCount>1 Then
$TBloginname=$CmdLine
$TBloginpassword=$CmdLine
Else
MsgBox(1,"提醒","请附加参数")
Exit
EndIf
If $ParamsCount>2 Then
$path=$CmdLine
Else
$path="d:\Program Files\TradeBlazer\"
EndIf
If $ParamsCount>3 Then
$WorkTabID=$CmdLine
EndIf
If $ParamsCount>4 Then
$WorkNum=$CmdLine
Else
$WorkNum=5
EndIf
;循环开始
While 1
If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版") = 0 Then
Sleep(3000)
EndIf
If WinExists("交易开拓者(超强版") = 0 Then; And ((@HOUR=8 And @MIN>=56) Or @HOUR>=9) And @HOUR <=22 Then
;TB自动登陆设置*****开始*****,这部分实行TB自动登陆功能,如果TB有自动登陆功能的话,就简单多了(目前TB不能自动登陆)
;关闭系统中不正常的tb进程----START---
$list=ProcessList("TradeBlazer.exe")
If $list<>0 Then
$pid1=$list
If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版") = 0 Then
If $list>1 Then
for $i = 2 to $list
If $pid1<>$list[$i] Then
ProcessClose($list[$i])
EndIf
Sleep(1000)
next
EndIf
EndIf
EndIf
;关闭系统中不正常的tb进程----END----
;第一次运行TB,先关闭再重新运行,解决有些电脑第一次登录不能聚焦到登陆控件导致无法自动登录的问题--START---
Run($path&"TradeBlazer.exe",$path)
WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
$list=ProcessList("TradeBlazer.exe")
If $list>1 Then
for $i = 1 to $list
If $pid1<>$list[$i] Then
ProcessClose($list[$i])
EndIf
Sleep(1000)
next
ElseIf $list=1 Then
ProcessClose($list)
Sleep(1000)
EndIf
;第一次运行TB,先关闭再重新运行,解决有些电脑第一次登录不能聚焦到登陆控件导致无法自动登录的问题--END----
Run($path&"TradeBlazer.exe",$path)
WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
While WinExists("TradeBlazer","初始化失败")
WinActivate("TradeBlazer","初始化失败")
WinClose("TradeBlazer","初始化失败")
Sleep(1000)
$list=ProcessList("TradeBlazer.exe")
If $list=1 Then
ProcessClose($list)
Sleep(1000)
ElseIf $list>1 Then
for $i = 1 to $list
If $pid1<>$list[$i] Then
ProcessClose($list[$i])
EndIf
Sleep(1000)
next
EndIf
Run($path&"TradeBlazer.exe",$path)
WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
WEnd
WinActivate("欢迎登录交易开拓者(超强版)")
ControlFocus("欢迎登录交易开拓者(超强版)","","Edit1")
ControlSetText("欢迎登录交易开拓者(超强版)","","Edit1",$TBloginname)
ControlFocus("欢迎登录交易开拓者(超强版)","","Edit2")
ControlSetText("欢迎登录交易开拓者(超强版)","","Edit2",$TBloginpassword)
ControlFocus("欢迎登录交易开拓者(超强版)","","Button2")
ControlClick("欢迎登录交易开拓者(超强版)","","Button2")
WinWaitActive("交易开拓者(超强版) - ","",10)
Sleep(5000)
WinActivate("交易开拓者(超强版) - ")
If WinExists("系统消息") Then
WinActivate("系统消息")
WinClose("系统消息")
Sleep(1000)
EndIf
;TB自动登陆设置*****结束*****
For $i=1 To $WorkNum
$tmp1 = 15 + 60 * ($i - 1)
WinActivate("交易开拓者(超强版) - ")
ControlClick("交易开拓者(超强版) - ","",$WorkTabID,"left",1,$tmp1,6)
Sleep(3000)
WinMenuSelectItem("交易开拓者(超强版) - ","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
Sleep(1000)
Next
Sleep(5000)
; $result=DllCall("user32.dll","int","LockWorkStation");开启TB自动交易后,锁定电脑系统
;ElseIf $result<1 Then
; $result=DllCall("user32.dll","int","LockWorkStation");非交易时间启动电脑后,立即锁定电脑系统
EndIf
;If WinExists("交易开拓者") And @HOUR>22 Then ;非交易时间关闭TB
; WinActivate("交易开拓者")
; Sleep(1000)
; WinClose("交易开拓者")
;EndIf
Sleep(1000*30)
WEnd
;循环结束
[ 本帖最后由 女儿是期神 于 2009-11-20 08:56 编辑 ] 根据乐丁的代码写的参数传递的TB登陆程序
源码
程序
Au3Info有了这个就可以不装AutoIt了:lol
有朋友问怎么用,于是写个更详细的说明:$
下载AutoTB.rar和Au3Info.rar,如果这个能满足要求就不用下源码修改了.:lol
解压后
在桌面上建个文本文件
填写收帐号和密码
开拓者快捷方式里复制安装文件夹
粘贴至文本文件窗口中
运行Au3Info找到控件名,并复制粘贴到文本文件中
最终结果
全选复制
创建AutoTB.exe的快捷方式,并在其属性里粘贴刚才的文本即可
以后运行这个快捷方式就行了,想自动启动,就把它移到"开始"菜单的"启动"里吧:victory:
[ 本帖最后由 女儿是期神 于 2009-11-20 14:16 编辑 ] 不错,有创意:lol 完全的无人值守我还是不放心:) 尽量解放双手而已:handshake