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


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

   

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

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

主题：实盘无人值守工作站
帅哥哟，离线，有人找我吗？
rogerhylt
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
JJJJANE
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：130 积分：346 威望：0 精华：0 注册：2012/2/16 22:36:20 		  发帖心情 Post By：2012/3/29 14:49:36 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
JJJJANE
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：130 积分：346 威望：0 精华：0 注册：2012/2/16 22:36:20 		  发帖心情 Post By：2012/3/29 14:50:37 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
shy508
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：86 积分：427 威望：0 精华：0 注册：2010/5/5 10:39:30 		  发帖心情 Post By：2012/4/13 9:44:59 [只看该作者]

请教楼主及rogerhylt:我借助二位的autoit代码略加改动实现了2.80及2.75版图表交易的全自动运行，非常感谢楼主及rogerhyit！但我只是照猫画虎地使用autoit，并不精通，所以现在有个问题，2.84版之后金字塔的交易账户登录默认的是金仕达界面，不是ctp界面，autoit的窗口信息工具显示的登录按钮又没有区别，那么如何自动登录交易账户呢？还请不吝赐教，不胜感激！
 回到顶部
帅哥哟，离线，有人找我吗？
JJJJANE
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：130 积分：346 威望：0 精华：0 注册：2012/2/16 22:36:20 		  发帖心情 Post By：2012/4/16 14:26:58 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
liwei_bj
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：263 积分：851 威望：0 精华：0 注册：2010/11/1 11:00:43 		A股的全自动交易系统  发帖心情 Post By：2012/5/25 17:39:06 [只看该作者]

看了楼主能每月稳定收益5%真羡慕，我也在金字塔上开发了一个A股的全自动交易系统，每天系统8：30自动开机，9：15打开金字塔和启动自动交易，下午15：20自动关闭金字塔并关机。但是经过1年多的实盘交易，并未找到能够稳定盈利的A股交易策略，反复测试无数种策略，但是效果都不好，适应性也不强。目前最新的策略还比较满意，是一种短线抄底策略，但是还有待实盘进一步检验。A股一直跌跌不休导致盈利困难。另外T+1也使得研发短线策略的难度非常高。我没有期货交易的经验，希望有机会和楼主交流交流心得。

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


加好友 发短信
等级：新手上路 帖子：8 积分：29 威望：0 精华：0 注册：2012/5/29 11:21:44 		  发帖心情 Post By：2012/5/31 22:35:05 [只看该作者]

我一拜读楼主文章数次，次次有心得，真的能够实现么？一劳永逸？我表示怀疑，但仍然相信有这么一天。

实验中。。。。
 回到顶部
帅哥哟，离线，有人找我吗？
小布丁
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：150 积分：735 威望：0 精华：0 注册：2012/1/30 10:53:14 		  发帖心情 Post By：2012/6/1 13:05:43 [只看该作者]

使用新图表函数和标准版账号实现无人值守，怎么调入名为“Frame1-图表交易”的框架再启动图表程序化交易？
 回到顶部
帅哥哟，离线，有人找我吗？
yanxc
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：2046 积分：2707 威望：0 精华：1 注册：2011/6/14 14:49:49 		  发帖心情 Post By：2012/8/12 11:03:57 [只看该作者]

最简单还是不关机。希望金字塔尽早支持自动检查网络和交易帐号。

 回到顶部
总数 26 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.07813 秒, 5 次数据查询