-- 作者:jzjhm
-- 发布时间:2016/6/20 16:49:52
-- [求助]如何让金字塔 24小时无人值守开机
金字塔 24小时无人值守 源码能适用现在版本吗,能否修改成现在版本能用的源码,谢谢
源码(1),为以上不需要经常改账户信息,不需要操作清除全局变量等的用法,完全可以使用这种傻瓜式的启动: #Include <Date.au3> Dim $path $path="D:\\Weisoft Stock\\" ;金字塔系统安装路径。
While 1 If WinExists("金字塔决策交易系统")=0 And ProcessExists("WinStock.exe") Then ProcessClose("WinStock.exe ") Sleep(3000) EndIf
If WinExists("金字塔决策交易系统")=0 And (@HOUR>=9 And @HOUR<=13 And @MIN<=20) Then ;交易时间开启系统 Run($path&"WinStock.exe ",$path) ;启动金字塔系统 WinWaitActive("欢迎使用金字塔","",20) ;激活用户名或账号 ControlFocus("欢迎使用金字塔","","Button1") ControlClick("欢迎使用金字塔","","Button1") ;点击‘登录’按钮 Sleep(5000) If WinExists("异常恢复") Then ;如果出现异常关机,再次开机时恢复。 WinActivate("异常恢复") sleep(2000) ControlFocus("异常恢复","","Button2") ControlClick("异常恢复","","Button2") EndIf WinWaitActive("登录综合交易平台(CTP)","",30) ;激活‘登录综合交易平台(CTP)\'界面 ControlFocus("登录综合交易平台(CTP)","","Button5") ControlClick("登录综合交易平台(CTP)","","Button5") ;点击’登录‘按钮 Sleep(2000) WinWaitActive("金字塔决策交易系统","",20) ;激活\'金字塔决策交易系统\'主窗口 EndIf
If WinExists("金字塔决策交易系统")=1 And @HOUR>=15 And @MIN>20 Then ;非交易时间关闭金字塔系统 WinActive("金字塔决策交易系统") Send("!fx") ;退出金字塔系统 Sleep(1000) WinWaitActive("金字塔","",10) ControlFocus("金字塔","","Button1") ControlClick("金字塔","","Button1") ;确认退出 Sleep(5000) EndIf Wend
转子金字塔论坛 作者wsanle
|