按键精灵实现自动化点qq名片赞
1. 引子
好友比较多,每天回名片赞回到手痛。
之前写过一个更简单版本(直接指定坐标点击……),重装系统丢了,正好重新写了一个跑在虚拟机里的,不耽误我干活。
2.解释说明
- 核心还是模拟点击,vbs就是一个框架帮助你实现逻辑;
- 此代码运行在虚拟机里所以时延我调的比较长,有需要自己改;
- 放名单的txt文件:要点赞的好友的qq号码的列表,可以巧用qq邮箱+excel实现批量导出和处理。不直接读取xls文件的原因是运行效率低。这个文件的格式是每个qq摆一行,然后一行一行这样接下去。
- inf.bmp:在qq主窗口的搜索框中输入qq,弹出对应的用户,鼠标指向这个用户会发现右面有个名片图标,截下来;
- qq.bmp:qq主窗口左上角那只企鹅,截下来;
- quit.bmp:打开一个人的资料卡片之后的右上角的那个×,截下来;
- 4-6条中所说的三个图在代码中必须写成绝对路径。
3.运行环境
- 硬件:i7-6700hq, 16g, pcie
- 虚拟机:vmware 15 pro
- 虚拟环境:win7 ultimate sp1
- qq版本:目前最新版(9.1.3)
- 按键精灵2014(能下到的最新版)
4.暂时还存在的问题
遇到名单里的好友被删除之后不会跳过,会一直卡在那里不动,要手动操作一下。
之后加一个模块实现自动跳过并告警。
5. 代码
核心功能封装成子过程了。
引用请标注来源!
引用请标注来源!
引用请标注来源!
上代码:
Dim round, MyArray, time, i
round = 199
start = 1Text = Plugin.File.ReadFileEx("放名单的txt文件")
MyArray = Split(Text, "|")For time = start To roundi = time - 1SayString Cstr(MyArray(i))Delay 1500Call click_inf()Delay 2000Call click_zan()Delay 100Call click_qq()Delay 100
NextSub click_inf()Rem click_inf_1 XY = Plugin.Pic.FindPic(500, 0, 1920, 1080, "inf.bmp", 0, 1)iZB = InStr(XY, "|")intX = CLng(Left(XY, iZB - 1))intY = CLng(Right(XY, Len(XY) - iZB))If intX > 0 And intY > 0 Then MoveTo intX + 5, intY + 5Delay 100LeftClick 1Goto click_inf_2Else Goto click_inf_1End IfRem click_inf_2TracePrint "click info."
End SubSub click_zan()Dim tmpHwnd = Plugin.Window.Foreground()For tmp = 1 To 20Call Plugin.Bkgnd.LeftClick(Hwnd, 332, 340)Delay 300Next//Call Plugin.Bkgnd.LeftClick(Hwnd, 708, 27)Rem click_zan_1 XY = Plugin.Pic.FindPic(500, 0, 1920, 800, "quit.bmp", 0, 1)iZB = InStr(XY, "|")intX = CLng(Left(XY, iZB - 1))intY = CLng(Right(XY, Len(XY) - iZB))If intX > 0 And intY > 0 Then MoveTo intX + 5, intY + 5Delay 100LeftClick 1Goto click_zan_2Else Goto click_zan_1End IfRem click_zan_2TracePrint "click zan. No " & Clng(i+1)
End SubSub click_qq()Rem click_qq_1 XY = Plugin.Pic.FindPic(500, 0, 1920, 500, "qq.bmp", 0, 1)iZB = InStr(XY, "|")intX = CLng(Left(XY, iZB - 1))intY = CLng(Right(XY, Len(XY) - iZB))If intX > 0 And intY > 0 Then MoveTo intX + 5, intY + 5Delay 100LeftClick 1Goto click_qq_2Else Goto click_qq_1End IfRem click_qq_2
End Sub
6. 要点
以下这几种高级功能均由按键精灵内建,可以直接调用,非常方便。
- 文本文档的逐行读取
Plugin.File.ReadFileEx()
; - 针对透明窗口的找图操作(参考封装的三个子过程中的重复操作);
- 在后台模拟操作
Plugin.Bkgnd.LeftClick()
。
7. 后记
欢迎交流学习。持续更新。
按键精灵实现自动化点qq名片赞相关推荐
- 如何快速增加qq名片赞
qq名片赞太少了?想好看一点? 打开设置,允许陌生人点赞 网页搜索"qq名片赞,随便进 "
- Android获取QQ名片赞数量,教你如何提高QQ名片赞数量 如何增加QQ赞数量
教你如何提高QQ名片赞数量 如何增加QQ赞数量 今天小编给大家带来提高QQ名片赞的方法,一共介绍四种方法小伙伴们可以选择自己喜欢的那种来使用,小编介绍的方法基本上都自己使用过,感兴趣的小伙伴可以来试一 ...
- HTML实现领取QQ名片赞,易语言领取QQ名片赞
领取QQ名片赞 .版本 2 .支持库 HtmlView .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _按钮_领取名片赞_被单击 超文本浏览框1.跳转 ("http://ap ...
- QQ名片赞点赞接口PHP源码
介绍: QQ名片赞点赞接口,PHP文件 自己根据API开发吧! 网盘下载地址: http://kekewl.net/e7W9YDOYP5a 图片:
- QQ名片赞数量查询工具 易语言源码
介绍: 今天给大家分享一个简单的易语言程序,就是查询qq名牌赞数量的,可能对于大多数人来说是不需要的,但是对于一些写工具箱的,可以把这一个小功能集合进去也是非常不错的! 网盘下载地址: http:// ...
- 利用aotu.js自动点击QQ名片赞
"auto";function 下滑(){ className("AbsListView").scrollable().scrollForward(); }fu ...
- Python Selenium之等待元素小案例(用于某网站自动打开领取QQ名片赞)--文末有附selenium知识点以及对应学习文档网址
''' Author: Liang LastEditors: Liang Date: 2020-10-08 11:41:09 LastEditTime: 2020-10-21 13:46:21 Ema ...
- QQ自动点赞PHP源码_QQ名片赞点赞接口 PHP代码
QQ名片赞点赞接口,PHP代码,可自行开发! (转自AE)<?php error_reporting(0); header('content-type:application/json'); d ...
- 使用按键精灵实现界面点击自动化
按键精灵一款模拟鼠标键盘动作的软件.通过制作脚本(录制或编写),可以让按键精灵代替双手,自动执行一系列鼠标键盘动作.按键精灵简单易用,不需要任何编程知识就可以作出功能强大的脚本.只要在电脑前用双手可以 ...
最新文章
- ntohs的一个简单实现(将网络流中用两个字节16进制表示的资源数(如DNS)和长度转换为整形)...
- latex不能识别eps图片
- WINCE 自绘位图按钮
- MySQL 安装 启动命令总结
- 使用 Gitee 进行代码管理(包括本地仓库如何同时关联Git和Gitee)
- linux使用rsync增量保存文件与无交互自动传输
- java对象添加字段_99.9%的Java程序员都说不清的问题:JVM中的对象内存布局?
- linux 定时执行某个任务,多个时间段
- HashMap源码剖析(代码基于JDK11)
- 汇编-vcIO.inc
- 2.4 滑块拼图验证码
- php令牌桶,令牌桶限频(TokenBucket)
- cubieboard上手
- Touch ID使用
- deepin做服务器稳定吗,deepin从兴致勃勃到彻底放弃
- 为什么mysql不建议执行超过3表以上的多表关联查询?
- Github推荐--PC端下载bilibili视频
- 利用libjpeg库实现jpg与bmp图片互转指南
- 如何设计接口协议,实现一个优秀SDK
- Ubuntu 12.04 安装 IQQ