无人值守中--------send问题 - 程序化交易实盘俱乐部 - 金字塔客服中心 - 专业程序化交易软件提供商

各位前辈们：下面的程序是我在论坛里照葫芦画瓢做出来的；蓝字是我为防止开启程序是，出现的网页，加入的部分；

这程序（if00）放在远程服务器上运行，如果登录，屏幕开的情况下运行很好，进入到程序化交易界面。

但是，把程序设置成任务计划时，就是不登录服务器时，自动运行到红字部分就停止了，我试验了很多次，都不行；

send发送的按键在屏幕关闭时，好像无效；请前辈们指点，帮助解决此问题。

#Include <Date.au3>

Dim $path

$path="D:\Weisoft Stock\" ;金字塔系统安装路径。

While 1

Select

Case ProcessExists("IEXPLORE.EXE");删除出现干扰的网页。

ProcessClose("IEXPLORE.EXE")

EndSelect

If WinExists("金字塔决策交易系统")=0 And ProcessExists("WinStock.exe") Then

ProcessClose("WinStock.exe ")

Sleep(2000)

EndIf

If WinExists("金字塔决策交易系统")=0 And ((@HOUR=11 And @MIN>=01) Or @HOUR>=12 And @HOUR<16) Then ;交易时间开启系统

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

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

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

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

Sleep(35000)

If WinExists("异常恢复") Then ;如果出现异常关机，再次开机时恢复。

WinActivate("异常恢复")

sleep(20000)

ControlFocus("异常恢复","","Button2")

ControlClick("异常恢复","","Button2")

EndIf

Sleep(10000)

Select

Case ProcessExists("IEXPLORE.EXE")

ProcessClose("IEXPLORE.EXE")

EndSelect

Sleep(2000)

WinWaitActive("金字塔决策交易系统","",20) ;激活'金字塔决策交易系统'主窗口

Send("+z")

WinWaitActive("图表程式化交易","",30)

ControlFocus("图表程式化交易","启动交易","Button3")

ControlClick("图表程式化交易","启动交易","Button3")

WinWaitActive("金字塔","启动当前框架",30)

Send("!y")

EndIf

Sleep(5000)

If WinExists("金字塔决策交易系统")=1 And @HOUR>=18 And @HOUR=18 And @MIN<=10 Then

WinActivate("图表程式化交易")

ControlFocus("图表程式化交易","停止交易","Button3")

ControlClick("图表程式化交易","停止交易","Button3")

WinActivate("金字塔决策交易系统")

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

Sleep(1000)

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

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

EndIf

Sleep(1000)

wend

主题：无人值守中--------send问题