- 精华
- 0
- 在线时间
- 320 小时
- UID
- 237756
- 积分
- 20682
- 帖子
- 120
- 阅读权限
- 200
- 注册时间
- 2016-7-26
- 最后登录
- 2020-3-7
- 精华
- 0
- UID
- 237756
- 积分
- 20682
- 帖子
- 120
- 主题
- 31
- 阅读权限
- 200
- 注册时间
- 2016-7-26
- 最后登录
- 2020-3-7
|
本帖最后由 kookzw 于 2017-7-2 22:30 编辑
极速版没有一键登录自动运行交易。
用autoit 改了个简单的 一键登录自动运行交易 批处理文件。
(全屏模式下使用,因为用到了鼠标屏幕坐标。)
这里是生成为可执行文件的
下载地址:http://pan.baidu.com/s/1o8I66sa
这里是源代码- Dim $path
- $path="C:\Program Files\TradeBlazer\TBPlus\" ;TBPlus默认安装路径,如非默认安装,这里需要更改为你TB安装路径
- If ProcessExists("TBPlus.exe") And WinExists("TBPlus 8.0---用户登录") = 0 Then
- ProcessClose("TBPlus.exe")
- Sleep(3000)
- ProcessClose("TBPlus.exe")
- Sleep(2000)
- EndIf
- Run($path&"TBPlus.exe",$path);运行程序
- WinWait("TBPlus 8.0---用户登录");暂停脚本的执行直至指定窗口被激活(成为活动状态)为止.
- WinActivate("TBPlus 8.0---用户登录");激活指定的窗口(设置焦点到该窗口,使其成为活动窗口).
- Sleep(2000)
- ControlClick("TBPlus 8.0---用户登录","","WindowsForms10.BUTTON.app.0.afceb_r11_ad13")
- Sleep(5000)
- Sleep(5000)
- Sleep(2000)
- MouseClick("left", 36, 30, 1)
- Sleep(3000)
- MouseClick("left", 36, 380, 1)
复制代码 |
|