主题：实盘无人值守工作站

修正版

#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=8 And @MIN>=50) Or @HOUR>=9 And @HOUR <16) Then  ;交易时间开启系统

  Run($path&"WinStock.exe ",$path)                           ;启动金字塔系统

  WinWaitActive("欢迎使用金字塔","",20)                         ;激活用户名或账号

  ControlFocus("欢迎使用金字塔","","Button4")

  ControlClick("欢迎使用金字塔","","Button4")                   ;点击‘登录’按钮

  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)                  ;激活'金字塔决策交易系统'主窗口
 Send("+z")
 WinWaitActive("图表程式化交易","",30)
 ControlFocus("图表程式化交易","启动交易","Button3")
 ControlClick("图表程式化交易","启动交易","Button3")
 WinWaitActive("金字塔","启动当前框架",30)
 Send("!y")
EndIf 

 

If WinExists("金字塔决策交易系统")=1 And @HOUR=16  Then  ;非交易时间关闭金字塔系统
    WinActivate("图表程式化交易")
  ControlFocus("图表程式化交易","停止交易","Button3")
 ControlClick("图表程式化交易","停止交易","Button3")
 
 
   WinActivate("金字塔决策交易系统")

   Send("!fx")                                                   ;退出金字塔系统

   Sleep(1000)

   WinWaitActive("金字塔","是否",10)

   Send("!y")                          ;确认退出

   Sleep(5000)

EndIf

Wend