-
Notifications
You must be signed in to change notification settings - Fork 25
/
Copy path读文章.mq
159 lines (159 loc) · 5.35 KB
/
读文章.mq
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
151
152
153
154
155
156
157
158
159
Dim i= 0
Delay 1500
FindPic 0,0,0,0,"Attachment:选读文章标志.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "跳转"
Tap intX + 500, intY+70
Delay 1000
End If
Delay 2000
TracePrint "要闻"
// 要闻
FindPic 0,0,0,0,"Attachment:要闻.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX, intY
Tap intX, intY
Delay 1000
End If
Delay 2000
// 查找文章
//语音播报
For 8
TracePrint i
Do
FindPic 0,0,0,0,"Attachment:学习强国学习平台.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX + 500, intY
Delay 1000
Tap intX, intY
Delay 3000
Exit Do
Else
Swipe 364, 1161, 364, 735
Delay 1500
End If
Loop
Delay 2000
// 分享
If i = 1 Then
TracePrint "分享"
FindPic 0,0,0,0,"Attachment:分享.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:分享到学习强国.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:选择群聊.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:返回上级.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:返回上级.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
End If
// 评论
If i = 2 Then
TracePrint "评论"
FindPic 0,0,0,0,"Attachment:你的观点.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:输入文字.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
InputText 评论语句(随机数())
// 如果设置自定义的话，应该增加if
Delay 2000
InputText 评论语句(随机数())
Delay 3000
End If
FindPic 0,0,0,0,"Attachment:发布.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:删除.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
FindPic 0,0,0,0,"Attachment:删除确定.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 1500
Tap 49, 95
Delay 1500
End If
End If
// 660,434 657,1041
Do
Swipe 364, 1161, 364, 735
Delay 1500
FindPic 0,0,0,0,"Attachment:学习强国学习平台.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX + 500, intY
Delay 1000
Tap intX, intY
Delay 3000
Exit Do
Else
Swipe 364, 1161, 364, 735
Delay 1500
End If
Loop
Delay 2000
End If
// 分享
If i = 3 Then
TracePrint "分享"
FindPic 0,0,0,0,"Attachment:分享.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:分享到学习强国.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:选择群聊.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:返回上级.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
FindPic 0,0,0,0,"Attachment:返回上级.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap intX, intY
Delay 2000
End If
End If
Swipe 316, 424, 316, 1156
Delay 1500
For 30
Swipe 316, 424, 316, 356
Delay 5000
Next
i = i + 1
Tap 49, 95
Delay 1500
Swipe 302, 784, 302, 425, 1000
Delay 1500
Next