金字塔 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