易语言自动登录多个千牛账户源码

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 登录千牛
.参数 路径, 文本型
.参数 登录次数, 整数型
.局部变量 hwnd, 整数型
.局部变量 宽度, 整数型
.局部变量 高度, 整数型
.局部变量 i, 整数型

.计次循环首 (登录次数, i)
    打开指定网址 (路径)
    延迟 (5000)
    鼠标_移动 (, 取屏幕宽度 () × 0.5, 取屏幕高度 () × 0.5)
    延迟 (500)
    hwnd ＝ 取鼠标所在窗口句柄 ()
    .如果真 (hwnd ≠ -1)
        窗口_取控件大小 (hwnd, 宽度, 高度)
        鼠标_单击 (hwnd, 宽度 × 0.75, 高度 × 0.48, 1)  ' 账号展开
        延迟 (500)
        鼠标_单击 (hwnd, 宽度 × 0.6, 高度 × 0.55 － 26 ＋ 26 × i, 1)  ' 点账号
        延迟 (500)
        鼠标_单击 (hwnd, 宽度 × 0.6, 高度 × 0.8, 1)  ' 点登录
        延迟 (10000)
    .如果真结束

.计次循环尾 ()

.子程序 _按钮1_被单击

登录千牛 (“C:\Program Files (x86)\AliWorkbench\AliWorkbench.exe”, 2)
结束 ()

@红颜脸庞仍娇俏