Dim i=1,i1,i2
Do
Delay 500
Tap 319, 1080
Delay 800
Do
Dim intX, intY
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
Else
Swipe 350, 350, 350, 900
Delay 500
End If
Loop Until intX > -1
Delay 1000
i1 = i mod 7
i2=i\7
For i2
TouchDown 400, 1095, 1
TouchMove 300, 290, 1, 800
TouchUp 1
Next
TracePrint i2&"页"
Dim rColor
rColor = GetPixelColor(631, 1122)
If rColor = "A2A1A1" Then
TracePrint "退出"
Exit Sub
End If
Delay 800
Tap 280, 420+(i1-1)*112
i=i+1
Delay 1000
Dim intX1,intY1,intX2,intY2
FindMultiColor 0, 0, 0, 0, "FEF9EB", "-19|2|FEF9EB,-11|32|FEF9EB,-15|1011|93837F,-547|1007|93837F,-120|1022|93837F,-202|982|E5E5E5,-152|983|E5E5E5,-63|982|E5E5E5", 0, 0.9, intX1, intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
If ReadUIConfig("多选框5") = True Then
Call 文字()
End If
If ReadUIConfig("多选框2")=True Then
Call 添加图片()
TracePrint "图片"
End If
If ReadUIConfig("多选框4") = True Then
Call 红包()
End If
Tap 71, 80
Delay 800
End If
TracePrint intX2&"返回"
Tap 69, 83
Delay 1000
Loop