学习强国脚本v.3.1

发表于 | 分类于
字数统计: 14k

内容未公开》》》》》

由于种种原因，该页面并未完全对外开放。若需访问，需本文编写者告知访问。建议您可查看其他博客页面，或通过左侧联系方式联系作者提供访问密码。您也可尝试在网站上留言，但由于网站的留言系统是基于GitHub，您在大陆访问将可能遇到无法登录GitHub进行留言的情况。

最近和##谐##词越来越多了，我好几篇文章都被##锁了，啧啧啧，以后就是满屏马赛克。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
-------------本文结束感谢您的阅读-------------