各位前辈们:下面的程序是我在论坛里照葫芦画瓢做出来的;蓝字是我为防止开启程序是,出现的网页,加入的部分;
这程序(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
谢谢老师指导,非常的感谢,这个问题困扰我很久了;
无敌老师:我按你所说的,下载teamviewer远程控制,在这界面上,也遇到同样问题;
请老师说详细点:如采用什么远程软件
你既然已经采用远程服务器,为什么还需要每天登陆与退出金字塔?
每周人工上去检查重启一次就行了。
我是在远程服务器上,每天开盘前自动开启,收盘关闭的,
如果不关金字塔软件,容易死机
我是在远程服务器上,每天开盘前自动开启,收盘关闭的,
如果不关金字塔软件,容易死机
死机的原因是资金帐户未退出。
你设置每天开盘前登陆帐户,收盘退出帐户就行了。
我们有的服务器一个月都未重启过金字塔。
无敌老师:我按你所说的,下载teamviewer远程控制,在这界面上,也遇到同样问题;
请老师说详细点:如采用什么远程软件