adb操作企鹅FM评论留言源码

模块用的精易模块  和   ADB 模块

很简单的教本...不知道能不能说那两个字..就用错别字来代替吧..

某猫N年轻用这个在喜马拉雅上面的留言现在还有人加他...禽|兽

其实我一直都觉得adb很好用..唯一的就是不能输入中文.包括中文符号..

用剪辑版或者大漠等别的去代替吧...这是adb的硬伤..

但是adb用来养号还是很不错的..浏览..点击..等等

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 adb, 类_adb安卓
.程序集变量 信息, 安卓_控件信息, , "0"
.程序集变量 i, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 地址, 文本型

' 用窗口_模糊枚举出雷电窗口句柄
地址 ＝ adb.雷电_取地址 (656498)
adb.ADB_连接设备 (地址)
调试输出 (adb.ADB_取所有连接设备 ())
调试输出 (adb.屏幕_取当前包名 (), adb.屏幕_取当前UI值 ())
' 取出企鹅FM和QQ的包名与UI值,后面要用到

' adb.屏幕_枚举控件 (真, 信息) '调试的时候经常需要枚举控件
.' 计次循环首 (取数组成员数 (信息), i)
    ' 调试输出 (信息 [i].标题, 信息 [i].说明, 信息 [i].左边, 信息 [i].顶边)

.' 计次循环尾 ()
' 返回 ()

.判断循环首 (真)
    清除数据 ()
    adb.应用_启动 (真, “企鹅FM的包名”, “企鹅FM的UI值”)
    程序_延时 (8000, )
    进入登录界面 ()
    登录 ()
    ' 这里需要加入一个界面刷新,滑动一下,不然每次都会进入同一个音频内部.
    ' 如果延迟太多时间卡不准可以用死循环来判断直到枚举出需要的控件来.
    adb.鼠标_滑动 (, , , , )
    进入声音页面 ()
    播放全部 ()
    解决干扰 ()
    程序_延时 (1000, )
    进入评论 ()
    程序_延时 (3000, )
    评论操作 ()
    跳出循环 ()
.判断循环尾 ()


.子程序 评论操作

adb.鼠标_点击 (真, 50, 770)
程序_延时 (200, )
adb.文本_发送 (真, “Very,nice,I,like,to,listen,to”)  ' 这里的文本不支持中文,包括中文的空格符号等.
程序_延时 (200, )
adb.鼠标_点击 (真, 440, 70)

.子程序 进入评论

adb.鼠标_点击 (真, 455, 372)

.子程序 解决干扰
.局部变量 跳出, 逻辑型

' 上滑阅读更多
.判断循环首 (真)
    adb.屏幕_枚举控件 (真, 信息)
    .计次循环首 (取数组成员数 (信息), i)
        调试输出 (信息 [i].标题, 信息 [i].说明)
        跳出 ＝ 假
        .如果真 (信息 [i].标题 ＝ “上滑阅读更多”)
            adb.鼠标_点击 (真, 信息 [i].左边 ＋ 5, 信息 [i].顶边 ＋ 5)
            程序_延时 (1000, )
            跳出 ＝ 真
            跳出循环 ()
        .如果真结束
        系统_处理事件 ()
    .计次循环尾 ()
    .如果真 (跳出 ＝ 真)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()


.子程序 进入声音页面

adb.屏幕_枚举控件 (真, 信息)
.计次循环首 (取数组成员数 (信息), i)
    .如果真 (寻找文本 (信息 [i].标题, “更新至:”, , 假) ≠ -1 或 寻找文本 (信息 [i].标题, “已完结:”, , 假) ≠ -1)
        adb.鼠标_点击 (真, 信息 [i].左边 ＋ 5, 信息 [i].顶边 ＋ 5)  ' 注意这上面的冒号是中/英文
        程序_延时 (3000, )
        跳出循环 ()

    .如果真结束

.计次循环尾 ()

.子程序 进入登录界面

adb.屏幕_枚举控件 (真, 信息)
.计次循环首 (取数组成员数 (信息), i)
    .如果真 (信息 [i].标题 ＝ “登录后推荐更精准” 且 信息 [i ＋ 1].标题 ＝ “立即登录”)
        adb.鼠标_点击 (真, 信息 [i ＋ 1].左边 ＋ 5, 信息 [i ＋ 1].顶边 ＋ 5)
        程序_延时 (3000, )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
adb.屏幕_枚举控件 (真, 信息)
.计次循环首 (取数组成员数 (信息), i)
    .如果真 (信息 [i].标题 ＝ “QQ登录”)
        adb.鼠标_点击 (真, 信息 [i].左边 ＋ 5, 信息 [i].顶边 ＋ 5)
        程序_延时 (7000, )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

.子程序 清除数据

adb.应用_清除缓存 (真, “企鹅FM包名”)
adb.应用_清除缓存 (真, “qq包名”)


.子程序 登录

adb.屏幕_枚举控件 (真, 信息)
.计次循环首 (取数组成员数 (信息), i)
    .如果真 (信息 [i].标题 ＝ “QQ号/手机号/邮箱””)
        adb.鼠标_点击 (真, 信息 [i].左边 ＋ 5, 信息 [i].顶边 ＋ 5)
        程序_延时 (200, )
        adb.文本_发送 (真, “461881410”)
        程序_延时 (200, )
        adb.键盘_按键 (真, “20”)
        程序_延时 (200, )
        adb.文本_发送 (真, 编辑框1.内容)
    .如果真结束
    .如果真 (信息 [i].标题 ＝ “登 录”)
        adb.鼠标_点击 (真, 信息 [i].左边 ＋ 5, 信息 [i].顶边 ＋ 5)
        程序_延时 (7000, )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()


.子程序 播放全部

adb.屏幕_枚举控件 (真, 信息)
.计次循环首 (取数组成员数 (信息), i)
    调试输出 (信息 [i].标题, 信息 [i].说明, 信息 [i].左边, 信息 [i].顶边)
    .如果真 (信息 [i].说明 ＝ “播放全部”)
        adb.鼠标_点击 (真, 信息 [i].左边 ＋ 3, 信息 [i].顶边 ＋ 3)
        程序_延时 (2000, )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

@long467899509