AUTOIT 金字塔无人值守小程序---代码贡献 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

;送大家一个好东西，估计能用上！

Dim $path
$path="E:\stock\Weisoft\" ;金字塔文件存放路径

DIM $T1,$T2,$T3,$T4
$T1=8*60+45                                                   ;早盘启动开始时间-分钟数
$T2=15*60+10                                                  ;下午收盘时间-分钟数
$T3=20*60+45                                                  ;夜盘启动时间-分钟数
$T4=1*60+10                                                   ;零点后运行时间点

WHILE 1

$T0=@HOUR*60+@MIN
$TJ1=($T0>$T1 AND $T0< $T2) OR ($T0>$T3 OR $T0<$T4)
$TJ2=($T0<$T1 AND $T0> $T4) OR ($T0>$T2 AND $T0<$T3)

If WinExists("金字塔决策交易系统")=0 And ProcessExists("WinStock.exe") Then  ;关闭没窗口而有进程
  ProcessClose("WinStock.exe ")
  Sleep(3000)
EndIf

If WinExists("金字塔决策交易系统")=0 AND $TJ1 Then             ;交易时间范围内自动运行

  Run($path&"WinStock.exe ",$path) ;启动金字塔系统
  WinWaitActive("欢迎使用金字塔","",20) ;激活用户名或账号
  sleep(1000)   ;延时1秒 1000毫秒
  ControlFocus("欢迎使用金字塔","","Button1") ;控制点置于‘登录’按钮
  ControlClick("欢迎使用金字塔","","Button1") ;点击‘登录’按钮
  Sleep(3000)

  If WinExists("异常恢复") Then ;如果出现异常关机或关金字塔软件，再次开软件时恢复
WinActivate("异常恢复")
ControlFocus("异常恢复","","Button2")
ControlClick("异常恢复","","Button2")
sleep(3000)
  EndIf

if  WinExists("金字塔","VBA停止") = 1 Then                   ;处理登录热键被占用问题
WinActivate("金字塔","VBA停止")
ControlFocus("金字塔","","Button1")
ControlClick("金字塔","","Button1")
Sleep(3000)
Endif

If WinExists("提示") Then                                  ;专业版用户登录，后台一般都会出现，VIP用户提示，这个时候需要处理掉
WinActivate("提示")
ControlFocus("提示","VIP","Button1")
ControlClick("提示","VIP","Button1")
Sleep(3000)
  EndIf

  WinWaitActive("金字塔决策交易系统","",20) ;等待激活金字塔窗口
  sleep(60000)                                                  ;等待1分钟时间，处理窗口自动关闭及加载窗口K线数据自动更新维护
  Send("!OB")                                                ;激活金字塔菜单程序化交易
  sleep(1000)
  WinActivate("图表程式化交易")
  ControlFocus("图表程式化交易","","Button3")
  ControlClick("图表程式化交易","","Button3")               ;启动图表程序化
  sleep(1000)
  WinActivate("金字塔")
  ControlFocus("金字塔","","Button1")
  ControlClick("金字塔","","Button1")                        ;关闭程序化提示小窗口
  Sleep(1000)
  WinActivate("图表程式化交易")
  WinSetState ( "图表程式化交易", "", @SW_MINIMIZE )       ;最小化程序化小窗口
  Sleep(10000)
  WinActivate("金字塔决策交易系统")
  WinSetState ("金字塔决策交易系统", "", @SW_MINIMIZE )    ;最小化金字塔软件

EndIf

If WinExists("金字塔决策交易系统")=1 AND $TJ2 Then                  ;非交易时间关闭金字塔系统
   WinSetState ("金字塔决策交易系统", "", @SW_MAXIMIZE)     ;最大化金字塔软件
   WinActivate("金字塔决策交易系统")                                ;激活金字塔软件
   WinClose("金字塔决策交易系统")                           ;关闭金字塔窗口
   sleep(1000)
   ControlFocus("金字塔","是否退出","Button1")              ;关闭提示窗口
   ControlClick("金字塔","是否退出","Button1")
   sleep(1000)
   WinActivate("金字塔")
   ControlFocus("金字塔","框架中的","Button1")                  ;关闭框架提示窗口
   ControlClick("金字塔","框架中的","Button1")
EndIf

if @HOUR=1 and @MIN=15 then                                         ;1点15分关闭电脑
   Shutdown(1)
EndIf

Sleep(60000)                                                        ;暂停1分钟，让系统处理别的事物，不会导致系统忙
WEnd

;AUTOIT 脚本代码，要用的自己学习下 AUTOIT

[此贴子已经被作者于2016-12-10 16:03:14编辑过]

主题：AUTOIT 金字塔无人值守小程序---代码贡献