易语言实现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, “注&意：”)
.子程序 _停止按钮_被单击
停止变量 ＝ 真
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接
相关推荐
-
易语言超级列表框表项关键字搜索代码示例
超级列表框表项关键字搜索示例 .版本 2 .支持库 iext .程序集 启动窗口程序集 .程序集变量 表项索引, 整数型 .子程序 _查找表项按钮_被单击 .局部变量 临时文本, 文本型 .局部变量 索引, 整数型 .局部变量 是否找到, 逻辑型 .局部变量 a, 整数型 .如果真 (输入框 ("请输入需要查找的内容", "查找表项", "易语言7", 临时文本, ) ＝ 真) 是否找到 ＝ 假 .计次循环首 (超级列表框.取表项数 (), a)
-
易语言表白网页生成器源码
表白网页生成器 .版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .子程序 _按钮_本地生成_被单击 透明标签3.标题 ＝ "xx提醒您正在生成,,请稍候..." 创建目录 (取运行目录 () + "/本地专用版") 编辑框2.内容 ＝ 子文本替换 (编辑框3.内容, "对方名字", 编辑框_对方名字.内容, , , 真) 延迟 (200) 编辑框5.内容 ＝ 子文本替换 (编辑框2.内容, "自己名字&quo
-
易语言制作英雄联盟辅助的源码
LOL辅助 此功能需要加载超级模块7.3 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 pid, 整数型 .子程序 __启动窗口_创建完毕 pid ＝ 取进程ID ("League of Legends.exe") 监视热键 (&开启无限视距, #F5键) 监视热键 (&关闭无限视距, #F6键) 监视热键 (&开启普攻范围, #F2键) 监视热键 (&关闭普攻范围, #F1键) 监视热键 (&开启炮塔范围, #F4键) 监视热键 (
-
易语言制作黑客小程序源码
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, 取鼠标垂直位置 () - _
-
易语言制作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, 整
-
易语言获取程序已运行时间的代码
获取程序已运行时间 .版本 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
-
易语言修改软件版权信息的工具
DLL命令表 .版本 2 .DLL命令 BeginUpdateResource, 整数型, , "BeginUpdateResourceA" .参数 pFileName, 文本型 .参数 bDeleteExistingResources, 逻辑型 .DLL命令 EndUpdateResource, 逻辑型, , "EndUpdateResourceA" .参数 hUpdate, 整数型 .参数 fDiscard, 逻辑型 .DLL命令 UpdateResource,