欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


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

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有24543人关注过本帖树形打印复制链接

主题：实盘无人值守工作站
帅哥哟，离线，有人找我吗？
rogerhylt
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：86 积分：572 威望：0 精华：0 注册：2010/4/5 17:26:37 		  发帖心情 Post By：2012/3/5 15:00:18 [显示全部帖子]

太好了

 回到顶部
帅哥哟，离线，有人找我吗？
rogerhylt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：86 积分：572 威望：0 精华：0 注册：2010/4/5 17:26:37 		  发帖心情 Post By：2012/3/7 16:19:26 [显示全部帖子]

狗尾续貂 适用于图表程序交易者 首先选好交易的品种 周期 另存为一个框架 比如技术分析 然后工具-启动-显示框架 中选择你设置好的框架

 

#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 @HOUR<=18 ) 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)                  ;激活'金字塔决策交易系统'主窗口
 Send("+z")
 WinWaitActive("图表程式化交易","",30)
 ControlFocus("图表程式化交易","","Button3")
 ControlClick("图表程式化交易","","Button3")
 WinWaitActive("金字塔","",30)
 Send("^y")
EndIf 

 

If WinExists("金字塔决策交易系统")=1 And @HOUR>=18  Then  ;非交易时间关闭金字塔系统

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

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

   Sleep(1000)

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

   ControlFocus("金字塔","","Button1")

   ControlClick("金字塔","","Button1")                          ;确认退出

   Sleep(5000)

EndIf

Wend

 
 回到顶部
帅哥哟，离线，有人找我吗？
rogerhylt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：86 积分：572 威望：0 精华：0 注册：2010/4/5 17:26:37 		  发帖心情 Post By：2012/3/8 16:54:47 [显示全部帖子]

修正版

#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

 
 回到顶部
帅哥哟，离线，有人找我吗？
rogerhylt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：86 积分：572 威望：0 精华：0 注册：2010/4/5 17:26:37 		  发帖心情 Post By：2012/3/14 10:45:24 [显示全部帖子]

再修正版 sleep 位置不一样 结果大不一样 上一个cpu占用过高

#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") ;确认退出

EndIf

Sleep(5000)

Wend
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.07813 秒, 6 次数据查询