0%

微信公众订阅号批量取消脚本软件

软件界面

由来

​ 可能是真的太闲了,在整理微信小号的时候发现之前几个在挂机赚钱的几个号,不管是微信订阅号还是公众号都关注了一大堆有的没的,消息不停,看着都难受,便是突发其想将其订阅号批量取关,搜索了下没有类似的软件,也害怕(期中一个号还因为登录环境问题今天刚辅助验证了)于是便动手录个脚本,可以运行但其效率不高,又看着是vb语言便生写脚本的冲动。

​ 时间太久了Vb的语法基本都忘光了,用的是按键精灵(老版破解),语法提示不是很清楚(真的忘得差不多了),且其语法应该是修改过的,与Vb大有不同。

​ 这个脚本软件做的过程还是挺有趣的,一开始是纯录制接着是指定x,y坐标,最后才是句柄的相对坐标和位置,还通过颜色来实现(图片错误率高),一点点升级

使用

软件分自动挡和手动挡,推荐手动挡

  1. 自动挡则是登录微信pc版,开启软件,选中对应的公众号类别就可以了

  2. 手动挡则是登录微信pc版,手动点开对应的公众号类别,开启软件,再选中对应的公众号类别就可以了

手动挡使用

手动点开公众号或是订阅号

手动挡使用

停止

双击exit.bat 批处理结束

BUG

  1. 自动挡,即自动寻找公众号和订阅号可能出现找不准确的情况,颜色干扰
  2. 不能停止???不知道怎么写热键停止,尝试了下无果便用批处理来直接结束进程

下载

点击进入下载-quxiao.zip (2.57 MB)包含源码–个人网盘
点击进入下载-quxiao.exe–个人网盘

效果

使用前

使用前

使用后

使用后

源码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

Function quxiao(n, z)
Form1.ProgressBar1.Value =0
For n
i=i+1
Form1.ProgressBar1.Value = 100 * i / n //进度条
Delay 500
Call Plugin.Bkgnd.RightClick(WeChat, 415, 100)//第一个公众号的位置
Delay 500
CMenuWnd = Plugin.Window.Find("CMenuWnd", "CMenuWnd")
Call Plugin.Bkgnd.LeftClick(CMenuWnd, 25, z)
Delay 500
ConfirmDialog = Plugin.Window.Find("ConfirmDialog", "微信")
Call Plugin.Bkgnd.LeftClick(ConfirmDialog, 222, 188)
Delay 500
Next
End Function
Event Form1.Button1.Click
Dim index,n,z,p,s
index = Split(Form1.ComboBox1.List, "|")
n = index(Form1.ComboBox1.ListIndex)
MessageBox ("即将取消关注" + n + "个公众号")
WeChat = Plugin.Window.Find("WeChatMainWndForPC", "微信")
Delay 500
Call Plugin.Window.Max(WeChat)
Delay 500
Plugin.Window.Show(WeChat)
Delay 500
Call Plugin.Window.Max(WeChat)
Delay 500
If Form1.OptionBox1.Value = 1 Then //公众号
z = 65
s="公众号"
Call Plugin.Bkgnd.LeftClick(WeChat, 25, 140)//通讯录
Else
z = 45
s="订阅号"
Call Plugin.Bkgnd.LeftClick(WeChat, 25, 90)//聊天
End If
XY = Plugin.Bkgnd.FindColor(WeChat, 0, 0, 1024, 310, "D6852F")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
Delay 500
Call Plugin.Bkgnd.LeftClick(WeChat, X, Y)
Call Plugin.Bkgnd.MoveTo(WeChat, X, Y)
Delay 500
Plugin.Window.Restore (WeChat)
Delay 500
Call Plugin.Window.Size(WeChat, 1024, 678)
p=quxiao(n,z)
MessageBox(n + "个"+s+"已经取消关注了")
End Event
Event Form1.Button2.Click
Dim index,n,z,p,s
index = Split(Form1.ComboBox1.List, "|")
n = index(Form1.ComboBox1.ListIndex)
MessageBox ("即将取消关注" + n + "个公众号")
WeChat = Plugin.Window.Find("WeChatMainWndForPC", "微信")
Delay 500
Call Plugin.Window.Max(WeChat)
Delay 500
Plugin.Window.Show(WeChat)
Delay 500
Call Plugin.Window.Max(WeChat)
Delay 500
If Form1.OptionBox1.Value = 1 Then //公众号
z = 65
s="公众号"
Call Plugin.Bkgnd.LeftClick(WeChat, 25, 140)//通讯录
Else
z = 45
s="订阅号"
Call Plugin.Bkgnd.LeftClick(WeChat, 25, 90)//聊天
End If

Delay 500
Call Plugin.Bkgnd.LeftClick(WeChat, X, Y)
Call Plugin.Bkgnd.MoveTo(WeChat, X, Y)
Delay 500
Plugin.Window.Restore (WeChat)
Delay 500
Call Plugin.Window.Size(WeChat, 1024, 678)
p=quxiao(n,z)
MessageBox(n + "个"+s+"已经取消关注了")
End Event