- 精华
- 3
- 在线时间
- 196 小时
- UID
- 2459
- 积分
- 14123
- 帖子
- 179
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
- 精华
- 3
- UID
- 2459
- 积分
- 14123
- 帖子
- 179
- 主题
- 19
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
|
本帖最后由 hyjok 于 2011-9-25 21:13 编辑
2011-09-25请下载1楼代码
第一部分,2010-2-26日更新前的旧代码,适用于TB的3.2.6及之前版本- #Include <date.au3>
- Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword,$WorkNum,$WorkTabID
- $path="C:\Program Files\TradeBlazer\" ;TB默认安装路径,如非默认安装,这里需要更改为你TB安装路径
- $TBloginname="***" ;用你的TB登陆账号替换***
- $TBloginpassword="***" ;用你的TB登陆密码替换***
- $WorkNum=2 ;这里的数字2代表你打开工作区数量,请根据你的实际情况做相应修改(另外请务必保留工作区默认名字,如“工作区1”、“工作区2”,或者保持七个半角字符宽度,切记,否则会影响打开自动交易功能)
- $WorkTabID="TabWnd:400000:8:10003:02" ;这里"TabWnd:400000:8:10003:02"需要替换为你的工作名控件标识,查询方法见帖子46楼
- ;循环开始
- While 1
- If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版) - ") = 0 Then
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TradeBlazerWindows.exe")
- Sleep(3000)
- EndIf
- If WinExists("交易开拓者(超强版) - ") = 0 And ((@HOUR=8 And @MIN>=50) Or @HOUR>=9) And @HOUR <=22 Then
- $result=0
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("欢迎登录交易开拓者(超强版)","",10)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit1")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit1",$TBloginname)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit2")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit2",$TBloginpassword)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Button2")
- ControlClick("欢迎登录交易开拓者(超强版)","","Button2")
- WinWaitActive("交易开拓者(超强版) - ","",30)
- Sleep(2000)
- 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)
- $result=WinMenuSelectItem("交易开拓者(超强版) - ","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
- Sleep(1000)
- Next
- If $result=1 Then DllCall("user32.dll","int","LockWorkStation");开启TB自动交易后,锁定电脑系统,用于服务器版系统如windows 2003
- If $result=0 Then
- WinActivate("交易开拓者")
- WinClose("交易开拓者")
- Sleep(2000)
- EndIf
- ElseIf ((@HOUR=8 And @MIN<50) Or @HOUR<8) And @HOUR>22 Then
- DllCall("user32.dll","int","LockWorkStation");非交易时间启动电脑后,立即锁定电脑系统
- EndIf
- If WinExists("交易开拓者") And @HOUR>22 Then ;非交易时间关闭TB
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TradeBlazerWindows.exe")
- ProcessClose("TradeBlazerConnect.exe")
- ProcessClose("TradeBlazerDatabase.exe")
- ProcessClose("icegridregistry.exe")
- EndIf
- Sleep(1000)
- WEnd
- ;循环结束
复制代码 第二部分,2010-2-26日更新后的新代码,适用于TB的3.2.7及其后续版本- #Include <date.au3>
- Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword
- $path="C:\Program Files\TradeBlazer\" ;TB默认安装路径,如非默认安装,这里需要更改为你TB安装路径
- $TBloginname="***" ;用你的TB登陆账号替换***
- $TBloginpassword="***" ;用你的TB登陆密码替换***
- ;循环开始
- While 1
- If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版) - ") = 0 Then
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TBDataCenter.exe")
- Sleep(3000)
- EndIf
- If WinExists("交易开拓者(超强版) - ") = 0 And ((@HOUR=8 And @MIN>=50) Or @HOUR>=9) And @HOUR <=22 Then
- $result=0
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("欢迎登录交易开拓者(超强版)","",20)
- WinActivate("交易开拓者(超强版)")
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit1")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit1",$TBloginname)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit2")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit2",$TBloginpassword)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Button2")
- ControlClick("欢迎登录交易开拓者(超强版)","","Button2")
- WinWaitActive("交易开拓者(超强版) - ","",30)
- Sleep(2000)
- WinActivate("交易开拓者(超强版) - ")
- If WinExists("系统消息") Then
- WinActivate("系统消息")
- WinClose("系统消息")
- Sleep(1000)
- EndIf
- ;TB自动登陆设置*****结束*****
- WinActivate("交易开拓者(超强版) - ")
- Sleep(2000)
- $result=WinMenuSelectItem("交易开拓者(超强版) - ","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
- Sleep(2000)
- If $result=1 Then DllCall("user32.dll","int","LockWorkStation");开启TB自动交易后,锁定电脑系统,用于服务器版系统如windows 2003
- If $result=0 Then
- WinActivate("交易开拓者")
- WinClose("交易开拓者")
- Sleep(2000)
- EndIf
- ElseIf ((@HOUR=8 And @MIN<50) Or @HOUR<8) And @HOUR>22 Then
- DllCall("user32.dll","int","LockWorkStation");非交易时间启动电脑后,立即锁定电脑系统
- EndIf
- If WinExists("交易开拓者") And @HOUR>22 Then ;非交易时间关闭TB
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TBDataCenter.exe")
- EndIf
- Sleep(1000)
- WEnd
- ;循环结束
复制代码 [ 本帖最后由 hyjok 于 2010-3-2 14:30 编辑 ]
第三部分,应用到TB3.3.0版-
- #Include <date.au3>
- Dim $result,$tmp1,$path,$TBloginname,$TBloginpassword
- $path="C:\Program Files\TradeBlazer\" ;TB默认安装路径,如非默认安装,这里需要更改为你TB安装路径
- $TBloginname="***" ;用你的TB登陆账号替换***
- $TBloginpassword="***" ;用你的TB登陆密码替换***
- ;循环开始
- While 1
- If ProcessExists("TradeBlazer.exe") And WinExists("交易开拓者(超强版) - ") = 0 Then
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TBDataCenter.exe")
- Sleep(3000)
- EndIf
- If WinExists("交易开拓者(超强版) - ") = 0 And ((@HOUR=8 And @MIN>=50) Or @HOUR>=9) And @HOUR <=22 Then
- $result=0
- Run($path&"TradeBlazer.exe",$path)
- WinWaitActive("欢迎登录交易开拓者(超强版)","",20)
- WinActivate("交易开拓者(超强版)")
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit1")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit1",$TBloginpassword)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Edit2")
- ControlSetText("欢迎登录交易开拓者(超强版)","","Edit2",$TBloginname)
- ControlFocus("欢迎登录交易开拓者(超强版)","","Button2")
- ControlClick("欢迎登录交易开拓者(超强版)","","Button2")
- WinWaitActive("交易开拓者(超强版) - ","",30)
- Sleep(2000)
- WinActivate("交易开拓者(超强版) - ")
- If WinExists("系统消息") Then
- WinActivate("系统消息")
- WinClose("系统消息")
- Sleep(1000)
- EndIf
- ;TB自动登陆设置*****结束*****
- WinActivate("交易开拓者(超强版) - ")
- Sleep(2000)
- $result=WinMenuSelectItem("交易开拓者(超强版) - ","","文件(&F)", "启动所有自动交易");启动工作区内所有自动交易
- Sleep(2000)
- If $result=1 Then DllCall("user32.dll","int","LockWorkStation");开启TB自动交易后,锁定电脑系统,用于服务器版系统如windows 2003
- If $result=0 Then
- WinActivate("交易开拓者")
- WinClose("交易开拓者")
- Sleep(2000)
- EndIf
- ElseIf ((@HOUR=8 And @MIN<50) Or @HOUR<8) And @HOUR>22 Then
- DllCall("user32.dll","int","LockWorkStation");非交易时间启动电脑后,立即锁定电脑系统
- EndIf
- If WinExists("交易开拓者") And @HOUR>22 Then ;非交易时间关闭TB
- ProcessClose("TradeBlazer.exe")
- ProcessClose("TBDataCenter.exe")
- EndIf
- Sleep(1000)
- WEnd
- ;循环结束
复制代码 |
|