易语言实现QQ全自动批量点赞功能

利用模拟操作的方式实现QQ全自动点赞

此功能需要加载精易模块

.版本 2
.支持库 iext
.支持库 HtmlView
.支持库 spec
.程序集 窗口程序集1
.程序集变量 停止变量, 逻辑型
.子程序 __启动窗口_创建完毕
' 不允许多个QQ登录,不然每次需要手动选择点赞的号
.子程序 _导入按钮_被单击
.局部变量 分割文本, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 i1, 整数型
.局部变量 索引, 整数型
通用对话框1.初始目录 ＝ 取运行目录 ()
.如果真 (通用对话框1.打开 () ＝ 真)
  超级列表框1.全部删除 ()
  文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
  分割文本 ＝ 分割文本 (文本, #换行符, )
  .计次循环首 (取数组成员数 (分割文本), i1)
    系统_处理事件 ()
    索引 ＝ 超级列表框1.插入表项 (超级列表框1.取表项数 () ＋ 1, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
    超级列表框1.置标题 (索引, 1, 分割文本 [i1])
  .计次循环尾 ()
.如果真结束
.子程序 _点赞按钮_被单击
QQ个人资料_批量点赞 ()
.子程序 QQ个人资料_批量点赞
.局部变量 局_当前行, 整数型
.局部变量 局_句柄1, 整数型
.局部变量 局_句柄_整组, 整数型, , "0"
.局部变量 局_横坐标, 整数型
.局部变量 局_纵坐标, 整数型
.局部变量 N, 整数型
.局部变量 局_所有QQ_文组, 文本型, , "0"
局_横坐标 ＝ 336
局_纵坐标 ＝ 334
.计次循环首 (超级列表框1.取表项数 (), N)
  .如果真 (停止变量 ＝ 真)
    返回 ()
  .如果真结束
  加入成员 (局_所有QQ_文组, 超级列表框1.取标题 (N － 1, 1))
.计次循环尾 ()
' -----------------------
窗口_模糊遍历窗口 (, , “的资料”, 局_句柄_整组)
系统_处理事件 ()
.如果真 (取数组成员数 (局_句柄_整组) ＞ 0)
  .计次循环首 (取数组成员数 (局_句柄_整组), N)
    窗口_关闭 (局_句柄_整组 [N])
  .计次循环尾 ()
.如果真结束
' -----------------------
.计次循环首 (取数组成员数 (局_所有QQ_文组), N)
  .如果真 (停止变量 ＝ 真)
    返回 ()
  .如果真结束
  超级列表框1.现行选中项 ＝ N － 1
  超文本浏览框1.地址 ＝ “tencent://ContactInfo/?subcmd=ViewInfo&puin=0&uin=” ＋ 局_所有QQ_文组 [N]
  .计次循环首 (10, )
    延迟 (1000)
    局_句柄1 ＝ 窗口_取句柄_模糊 (“的资料”, “TXGuiFoundation”)
    系统_处理事件 ()
    .如果真 (局_句柄1 ＞ 0)
      跳出循环 ()
    .如果真结束
  .计次循环尾 ()
  超级列表框1.置标题 (N － 1, 2, “√”)
  .如果真 (局_句柄1 ＝ 0)
    信息框 (“打开QQ个人资料失败”, #错误图标, “注&意：”)
    点赞按钮.禁止 ＝ 假
    返回 ()
  .如果真结束
  ' --------------
  程序_延时 (1000)
  .计次循环首 (10, )
    系统_处理事件 ()
    鼠标_消息 (局_句柄1, 局_横坐标 ＋ 100, 局_纵坐标, 2, 1)
    系统_处理事件 ()
    鼠标_消息 (局_句柄1, 局_横坐标, 局_纵坐标, 1, 1)
    程序_延时 (300)
    系统_处理事件 ()
    ' 调试输出 (“ 鼠标_消息 ”)
  .计次循环尾 ()
  程序_延时 (1000)
  窗口_关闭 (局_句柄1)
.计次循环尾 ()
信息框 (“完成”, 0, “注&意：”)
.子程序 _停止按钮_被单击
停止变量 ＝ 真

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言制作英雄联盟辅助的源码

    易语言制作英雄联盟辅助的源码

    LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid ＝ 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (

  • 易语言表白网页生成器源码

    易语言表白网页生成器源码

    表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮_本地生成_被单击 透明标签3.标题 ＝ "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容 ＝ 子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容 ＝ 子文本替换 (编辑框2.内容, "自己名字&quo

  • 易语言修改软件版权信息的工具

    易语言修改软件版权信息的工具

    DLL命令表 .版本 2 .DLL命令 BeginUpdateResource, 整数型, , "BeginUpdateResourceA" .参数 pFileName, 文本型 .参数 bDeleteExistingResources, 逻辑型 .DLL命令 EndUpdateResource, 逻辑型, , "EndUpdateResourceA" .参数 hUpdate, 整数型 .参数 fDiscard, 逻辑型 .DLL命令 UpdateResource,

  • 易语言超级列表框表项关键字搜索代码示例

    易语言超级列表框表项关键字搜索代码示例

    超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) ＝ 真) 是否找到 ＝ 假 .计次循环首 (超级列表框.取表项数 (), a)

  • 易语言制作DNF解封源码

    易语言制作DNF解封源码

    DNF解封源码 需要加载精易模块7.0 .版本 2 .支持库 HtmlView .支持库 spec .程序集 窗口程序集__启动窗口 .程序集变量 Cookie, 文本型 .程序集变量 浏览器组地址, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 ADD_数据包, 类_POST数据类 .局部变量 方式, 整数型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型 .局部变量 局_提交数据, 文本型 方式 ＝ 1 浏览器组地址 ＝ "https://act.gamesafe.q

  • 易语言电脑屏幕锁定工具源码

    易语言电脑屏幕锁定工具源码

    DLLL命令表 .版本 2 .DLL命令 安装钩子, 整数型, , "SetWindowsHookExA" .参数 ihook, 整数型 .参数 lpfunc, 子程序指针 .参数 hin, 整数型 .参数 threadid, 整数型 .DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx" .参数 hHook, 整数型 .DLL命令 下一个钩子, 整数型, , "CallNextHookEx" .参数 hHook, 整

  • 易语言制作黑客小程序源码

    易语言制作黑客小程序源码

    DLLL命令表 .版本 2 .DLL命令 FindWindow, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 FindWindowA, 整数型, , "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .DLL命令 GetWindow, 整数型, , "GetWindow" .参数 hWn

  • 易语言制作王校长吃热狗游戏的源码

    易语言制作王校长吃热狗游戏的源码

    王校长吃热狗游戏 .版本 2 .支持库 iext2 .支持库 OPenGL .支持库 spec .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 人物标识, 整数型 .程序集变量 热狗标识, 整数型, , "0" .程序集变量 死亡, 逻辑型 .程序集变量 得分, 整数型 .子程序 _开始按钮_被单击 动画物体2.图片 ＝ #人物 人物标识 ＝ 动画框1.创建物体 (动画物体2, 取鼠标水平位置 () - _启动窗口.左边 - 25, 取鼠标垂直位置 () - _

  • 易语言获取程序已运行时间的代码

    易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec ＝ sec + 1 .如果真 (sec ＝ 60) sec ＝ 0 min ＝ min + 1 .如果真结束 .如果真 (min ＝ 60) min ＝ 0 hr ＝ hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言赋值定义多维数组的代码实例

    易语言赋值定义多维数组的代码实例

    赋值定义多维数组示例 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_显示_被单击 .局部变量 a, 整数型, , "0" .局部变量 c, 整数型, , "1,2" .局部变量 b, 整数型 a ＝ { 1, 12, 2, 22, 3, 32, 4, 42 } .变量循环首 (1, 取整 (取数组成员数 (a) ÷ 2), 1, b) 重定义数组 (c, 真, b, 2) c [b] [1] ＝ a [b × 2 - 1] 编辑框_显示.加入文本 (&quo

随机推荐