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

Posted on Edited on In Views:

软件界面

由来

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

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

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

使用

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

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

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

手动挡使用

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

手动挡使用

停止

双击exit.bat 批处理结束

BUG

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

下载

quxiao.zip (2.57 MB)包含源码

效果

使用前

使用前

使用后

使用后

源码

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
86
87

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