极速版——一键登录运行自动交易

kookzw

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

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

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

这里是源代码

1. Dim $path
   
2. $path="C:\Program Files\TradeBlazer\TBPlus\"      ;TBPlus默认安装路径，如非默认安装，这里需要更改为你TB安装路径
   
3. 
   
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)
   
9. 
   
10. EndIf
    
11. 
    
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

这个是晚上定时关机代码。我设置的是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

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

上午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安装路径
   
3. 
   
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

好东西！顶！

helloworld22

不用这么麻烦，买一个阿里云的1核2G内存的服务器也就700块1年，24小时运行，想看就登录看看，非常方便

kookzw

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

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

helloworld22

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

没有发现这种现象。

PJeffrey

顶！
原有superwin做了旗舰版的无人值守工具，给我们带来了很大的帮助。现在楼主又开始了快速版的无人值守工具，好人啊！支持！

PJeffrey

一直不明白，TB为何迟迟不完善无人值守功能？

xm_sky

能否改成旗舰版本的?