开拓者期货期权程序化系统交易论坛

标题: 极速版——一键登录运行自动交易 [打印本页]
作者: kookzw    时间: 2017-7-2 11:14:50     标题: 极速版——一键登录运行自动交易

本帖最后由 kookzw 于 2017-7-2 22:30 编辑

极速版没有一键登录自动运行交易。
用autoit 改了个简单的 一键登录自动运行交易 批处理文件。

（全屏模式下使用，因为用到了鼠标屏幕坐标。）

这里是生成为可执行文件的
下载地址：http://pan.baidu.com/s/1o8I66sa

这里是源代码
  1. Dim $path
  2. $path="C:\Program Files\TradeBlazer\TBPlus\"      ;TBPlus默认安装路径，如非默认安装，这里需要更改为你TB安装路径

  4. If ProcessExists("TBPlus.exe") And WinExists("TBPlus 8.0---用户登录") = 0 Then
  5.         ProcessClose("TBPlus.exe")
  6.                 Sleep(3000)
  7.         ProcessClose("TBPlus.exe")
  8.             Sleep(2000)

  10. EndIf

  12.     Run($path&"TBPlus.exe",$path);运行程序
  13.     WinWait("TBPlus 8.0---用户登录");暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
  14.     WinActivate("TBPlus 8.0---用户登录");激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
  15.     Sleep(2000)
  16.         ControlClick("TBPlus 8.0---用户登录","","WindowsForms10.BUTTON.app.0.afceb_r11_ad13")
  17.         Sleep(5000)
  18.         Sleep(5000)
  19.         Sleep(2000)
  20.         MouseClick("left", 36, 30, 1)
  21.         Sleep(3000)
  22.         MouseClick("left", 36, 380, 1)
复制代码
作者: kookzw    时间: 2017-7-2 22:33:07

本帖最后由 kookzw 于 2017-7-2 22:44 编辑

这个是晚上定时关机代码。我设置的是23时30分30秒。做白银的 可以自己改下。。我的电脑慢所以我多设置些延时
可执行文件下载地址http://pan.baidu.com/s/1c10ZIA8
  1. ;定时关机
  2. While 1
  3.     If  @HOUR = 23 And @MIN = 30 And @SEC = 30 And ProcessExists("TBPlus.exe") Then
  4.         ProcessClose("TBPlus.exe")
  5.                 ProcessClose("TBPlus.exe")
  6.             Sleep(5000)
  7.                 Shutdown (1)
  8.     EndIf
  9. WEnd
复制代码
作者: kookzw    时间: 2017-7-3 09:38:51

本帖最后由 kookzw 于 2017-7-3 09:53 编辑

合并了下。形成了一个简单的全天自动定时登录定时退出，晚上定时退出后关机的功能。

上午8:45 登录 11:30 登出  下午 1:20 登录 3：00登出  晚上8:45 登录  11:30登出 关机

可执行文件下载地址：http://pan.baidu.com/s/1nuB6Med

源代码：
  1. Dim $path
  2. $path="C:\Program Files\TradeBlazer\TBPlus\"      ;TBPlus默认安装路径，如非默认安装，这里需要更改为你TB安装路径

  4. While 1
  5.   If  ( @HOUR = 08 And @MIN = 45 And @SEC = 01 ) Or ( @HOUR = 13 And @MIN = 20 And @SEC = 01 ) Or ( @HOUR = 20 And @MIN = 45 And @SEC = 01 ) Then          
  6.        If ProcessExists("TBPlus.exe") And WinExists("TBPlus 8.0---用户登录") = 0 Then
  7.           ProcessClose("TBPlus.exe")
  8.                   Sleep(3000)
  9.           ProcessClose("TBPlus.exe")
  10.               Sleep(2000)
  11.        EndIf
  12.   
  13.     Run($path&"TBPlus.exe",$path);运行程序
  14.     WinWait("TBPlus 8.0---用户登录");暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
  15.     WinActivate("TBPlus 8.0---用户登录");激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
  16.     Sleep(5000)
  17.         ControlClick("TBPlus 8.0---用户登录","","WindowsForms10.BUTTON.app.0.afceb_r11_ad13")
  18.         Sleep(5000)
  19.         Sleep(5000)
  20.         Sleep(2000)
  21.         MouseClick("left", 36, 30, 1)
  22.         Sleep(3000)
  23.         MouseClick("left", 36, 380, 1)
  24.   EndIf
  25.   
  26.   If    @HOUR = 11 And @MIN = 30 And @SEC = 30 And ProcessExists("TBPlus.exe") Then
  27.         ProcessClose("TBPlus.exe")
  28.                 ProcessClose("TBPlus.exe")
  29.                 Sleep(2000)
  30.   EndIf
  31.   
  32.   If    @HOUR = 15 And @SEC = 30 And ProcessExists("TBPlus.exe") Then
  33.         ProcessClose("TBPlus.exe")
  34.                 ProcessClose("TBPlus.exe")
  35.                 Sleep(2000)
  36.   EndIf
  37.   
  38.   If   @HOUR = 23 And @MIN = 30 And @SEC = 30 And ProcessExists("TBPlus.exe") Then
  39.         ProcessClose("TBPlus.exe")
  40.                 ProcessClose("TBPlus.exe")
  41.                 Sleep(3000)
  42.                 Shutdown(1)
  43.   EndIf
  44.   
  45. WEnd       
复制代码
作者: qsb588986    时间: 2017-7-31 19:00:27

好东西！顶！
作者: helloworld22    时间: 2017-8-16 15:46:05

不用这么麻烦，买一个阿里云的1核2G内存的服务器也就700块1年，24小时运行，想看就登录看看，非常方便
作者: kookzw    时间: 2017-8-16 21:10:28

helloworld22 发表于 2017-8-16 15:46
不用这么麻烦，买一个阿里云的1核2G内存的服务器也就700块1年，24小时运行，想看就登录看看，非常方便 ...


租服务器没的说，这个是不错的主意，永远不断网；
但是我发现客户端一直长时间在线的话，有时候在再次开盘后是死机的状态，不稳定，不如在开盘前新登录下保险。仅供参考。
作者: helloworld22    时间: 2017-8-21 17:26:02

kookzw 发表于 2017-8-16 21:10
租服务器没的说，这个是不错的主意，永远不断网；
但是我发现客户端一直长时间在线的话，有时候在再次开 ...

没有发现这种现象。
作者: PJeffrey    时间: 2017-10-23 19:12:10

顶！
原有superwin做了旗舰版的无人值守工具，给我们带来了很大的帮助。现在楼主又开始了快速版的无人值守工具，好人啊！支持！
作者: PJeffrey    时间: 2017-10-23 19:16:01

一直不明白，TB为何迟迟不完善无人值守功能？
作者: xm_sky    时间: 2018-2-10 09:58:33

能否改成旗舰版本的?
作者: kookzw    时间: 2018-3-9 21:39:25

xm_sky 发表于 2018-2-10 09:58
能否改成旗舰版本的?

旗舰版的之前就有人做了。你在论坛里搜索下。就能找到。
作者: superwin    时间: 2018-3-10 08:36:30

极速版只是下一代产品出来之前用来过渡的产品，所以，我认为没必要投入太多精力去研究极速版……

http://bbs.tb18.net/forum.php?mo ... mp;page=1#pid291965

其实你注意看TB官网、论坛就会发现，广告位放的，都是旗舰版跟智能交易版，曾经的极速版的广告，早已不见踪影，官方网站软件下载区，极速版也早已放到列表最后，已经不作为公司主要产品进行研发。不管是旗舰版的QQ群还是极速版的QQ群，不管是深圳的客服还是南京的客服，也都是说着同一句话“实盘建议使用旗舰版”。……



欢迎光临 开拓者期货期权程序化系统交易论坛 (http://bbs.tb18.net/) Powered by Discuz! X2