学习强国脚本v.3.1

最近和##谐##词越来越多了,我好几篇文章都被##锁了,啧啧啧,以后就是满屏马赛克。3.1版本更新,更新了点小内容。一个是应某人要求的自动评论后删除评论的功能,听说只要评论就有分,所以评论后删除评论更保险点。另一个是在每个点击坐标和间隔时间上加了随机数,让点击的位置和时间间隔更加不均匀,模拟人的操作。

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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
Delay 2000
Dim screenX,screenY,deviceID,first=25
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)
call messagebox ("御坂脚##本,启动!")

Dim yisepinci,fengxiang,shanpingjia,i,b,d,c,c1//如果为1则执行评价功能,b为设置评论次数//
yisepinci = 1 //评价开关//
fengxiang = 1 //分享开关//
shanpingjia = 0 //删除评论开关,默认关,且只有再启动自动#评论的情况下才能使用//
b = 1
d = 1
c1 = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
Touch 1239+c1,365+c1, 100//点中间学习图标//
Delay 1000+c1*100
Touch 147+c1,375+c1, 100//再点推荐//
Delay 1000+c1*100
While first>0
call messagebox ("准备点击文章")
TracePrint "准备点击文章"
Call dianwen()
first = first - 1
TouchDown 1010+c1,350+c1,1
TouchMove 500+c1,370+c1,1,400
TouchUp 1
Delay 3000+c1*100
Wend
//----------------//
Sub dianwen()


Touch 631+c1,345+c1, 100//点击文章,进入文章//
Delay 1000+c1*100
TracePrint "进入文章"//进入文章内部后慢慢下滑10S,点击收藏,点击评论归零,长按第一个评论,复制,点击,粘贴,发布,点击左上角返回//
call messagebox ("进入文章")
Delay 1000+c1*100
call messagebox ("下滑10次")
TracePrint "缓慢下滑10次"
For i = 1 To 10 Step 1//缓慢下滑10次//
TouchDown 1013+c1,366+c1, 1
TouchMove 643+c1,371+c1, 1, 400
TouchUp 1
call messagebox ("滑动一次")
Delay 2000+c1*100
Next
call messagebox ("点击收藏")
Touch 1244+c1,113+c1, 100
Delay 1000+c1*100
If yisepinci = 1 And b < 5 Then
Call pingjia()
b=b+1
End If
If shanpingjia = 1 And yisepinci = 1 Then
Call shanping()
End If
Delay 1000+c1*100
If fengxiang = 1 And d < 5 Then
Call fx()
d=d+1
End If
call messagebox ("返回主界面")//返回主界面,完成一次文章查看//
Touch 76+c1,676+c1, 100
Delay 2000+c1*100


End Sub

//----------------//
Sub messagebox(box)
TracePrint box
ShowMessage box
Delay 1500+c1*100
End Sub

//---删除评价子程序---//
Sub shanping()

call messagebox ("向下滑动一次")
TouchDown 1013+c1,366+c1, 1
TouchMove 643+c1,371+c1, 1, 400
TouchUp 1
call messagebox ("点击评论,回到第一个评论位置")
Touch 1249+c1,207+c1, 100
Delay 1000+c1*100
Call messagebox("寻找我并获得相对坐标")
Dim intX, intY,backword
backword=FindColor(0, 0, 0, 0, "EAEDF0",0, 1, intX, intY)//当需要函数返回值时需要加括号
If backword > -1 Then
Call messagebox("尝试删除评论")
Call messagebox(intX)
Delay 1000+c1*100
Touch intX + 93, intY - 505, 100
Delay 1000+c1*100
Touch 695 + c1, 121 + c1, 100
Delay 1000+c1*100
Else
call messagebox ("没有找到我的评论")
End If

End Sub

//---评论子程序---//
Sub pingjia()


call messagebox ("点击评论,回到第一个评论位置")
Touch 1249+c1,207+c1, 100
Delay 1000+c1*100
call messagebox ("点击输入框,获得光标")
Touch 1249+c1,500+c1, 100
Delay 1000+c1*100
c = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
Select Case c//判断随机数//
Case 2
InputText "祖国更美好!"//情况1
Case 3
InputText "创建美丽文明中国!"//情况2
Case 4
InputText "共同创新,共建未来!"//情况2
Case 5
InputText "建设人类命运共同体的光明前景!"//情况2
Case Else
InputText "祝愿祖国目前繁荣昌盛,国泰民安!"//否则
End Select
Delay 1000+c1*100
call messagebox ("点击发表")
Touch 1167+c1,53+c1, 100
Delay 1000+c1*100

End Sub

//---分享子程序---//
Sub fx()

messagebox ("点击分享")//点击分享,点分享到学##习##强国,点击群,点发送//
Touch 1244+c1,50+c1, 100
Delay 1000+c1*100
messagebox ("点分享到学习##强国")//点分享到学习##强国//
Touch 880+c1,633+c1, 100
Delay 1000+c1*100
messagebox ("点击群")//点击群//
Touch 470+c1,355+c1, 100
Delay 1000+c1*100
messagebox ("点发送")//点发送,坐标未确定//
Touch 775+c1,145+c1, 100
Delay 2000+c1*100

End Sub
-------------本文结束感谢您的阅读-------------