do
TouchDown 310, 147
TouchUp
TouchDown 310, 147
TouchUp
Delay 2000
Dim h,m,s,HH,MM,SS,t1
HH=ReadUIConfig("HH","23")
MM=ReadUIConfig("MM","10")
TracePrint HH
TracePrint MM
t1=GetNetworkTime()
h=mid(t1,12,2)//获取网络小时
m=mid(t1,15,2)//获取网络分钟
If h=HH and m=MM then
KeyPress "Home"
Delay 2000
Tap 426, 793
Delay 9000
Swipe 867,641,183,641,300
Delay 1000
Swipe 867,641,183,641,300
Delay 1000
Swipe 867,641,183,641,300
Delay 1000
Tap 541,1673
Delay 1000
Tap 446,831
Delay 10000
Tap 446,831
Delay 10000
KeyPress "Back"
Delay 700
KeyPress "Back"
Delay 2000
Tap 906,1735
Delay 2000
Tap 932,1778
Delay 10000
Tap 468,1812
Delay 10000
KeyPress "Back"
Delay 700
KeyPress "Back"
Delay 2000
Tap 433,1729
Delay 3000
//点击坐标
TracePrint "运行结束"
End If
//TracePrint t1
Delay 100
Dim intX31, intY31
FindColor 185,200, 185,409, "2D86F5", 0, 1, intX31, intY31
//出现公众号消息就取关
If intX31 > -1 And intY31 > -1 Then
Dim intX32, intY32
FindColor 185, intY31-5, 185, intY31-5, "3E3EFF", 0, 1, intX32, intY32
//如果没有找到，intX和intY的值都会被置为-1
If intX32 > -1 And intY32 > -1 Then
Touch intX32, intY32,1000
Delay 2000
Tap intX32, intY32+264
Delay 2000
Tap 810,1125
Delay 2000
Tap 64,142
Delay 2000
End If
End If
Delay 100
Dim intX21, intY21
FindColor 185,409, 185,1800, "2D86F5", 0, 1, intX21, intY21
//出现公众号消息就取关
If intX21 > -1 And intY21 > -1 Then
Dim intX22, intY22
FindColor 185, intY21-5, 185, intY21-5, "3E3EFF", 0, 1, intX22, intY22
//如果没有找到，intX和intY的值都会被置为-1
If intX22 > -1 And intY22 > -1 Then
Touch intX22, intY22,1000
Delay 2000
Tap intX22, intY22-130
Delay 2000
Tap 810,1125
Delay 2000
Tap 64,142
Delay 2000
End If
End If
Delay 100
Dim intX5, intY5
FindColor 959,1785, 959,1785, "07BB09", 0, 1, intX5, intY5
//出现公众号消息就取关
If intX5 > -1 And intY5 > -1 Then
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Tap 680,1829
Delay 1000
End If
Delay 100
Dim intX3, intY3
FindColor 180,639, 180,639, "02E165", 0, 1, intX3, intY3
//如果没有找到，intX和intY的值都会被置为-1
If intX3 > -1 And intY3 > -1 Then
KeyPress "Back"
Delay 1000
End If
Delay 100
Dim intX6, intY6
FindColor 990,148, 990,148, "6E956C", 0, 1, intX6, intY6
//如果没有找到，intX和intY的值都会被置为-1
If intX6 > -1 And intY6 > -1 Then
KeyPress "Back"
Delay 1000
End If
Delay 100
Dim intA7, intB7
FindColor 235,248, 228,338, "956B57", 0, 1, intA7, intB7
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA7 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA9, intB9
FindColor intA7-42, intB7+50, intA7-42, intB7-100, "3E3EFF", 0, 1, intA9, intB9
If intA9 > 0 Then
Touch intA7 + 1, intB7 + 1,2000
Delay 1000
TouchDown intA7 + 160, intB7 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA77, intB77
FindColor 235,338, 228,428, "956B57", 0, 1, intA77, intB77
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA77 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA97, intB97
FindColor intA77-42, intB77+50, intA77-42, intB77-100, "3E3EFF", 0, 1, intA97, intB97
If intA97 > 0 Then
Touch intA77 + 1, intB77 + 1,2000
Delay 1000
TouchDown intA77 + 160, intB77 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA72, intB72
FindColor 235,428, 228,518, "956B57", 0, 1, intA72, intB72
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA72 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA92, intB92
FindColor intA72-42, intB72+50, intA72-42, intB72-100, "3E3EFF", 0, 1, intA92, intB92
If intA92 > 0 Then
Touch intA72 + 1, intB72 + 1,2000
Delay 1000
TouchDown intA72 + 160, intB72 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA73, intB73
FindColor 235,518, 228,608, "956B57", 0, 1, intA73, intB73
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA73 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA93, intB93
FindColor intA73-42, intB73+50, intA73-42, intB73-100, "3E3EFF", 0, 1, intA93, intB93
If intA93 > 0 Then
Touch intA73 + 1, intB73 + 1,2000
Delay 1000
TouchDown intA73 + 160, intB73 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA74, intB74
FindColor 235,608, 228,698, "956B57", 0, 1, intA74, intB74
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA74 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA94, intB94
FindColor intA74-42, intB74+50, intA74-42, intB74-100, "3E3EFF", 0, 1, intA94, intB94
If intA94 > 0 Then
Touch intA74 + 1, intB74 + 1,2000
Delay 1000
TouchDown intA74 + 160, intB74 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA75, intB75
FindColor 235,698, 228,788, "956B57", 0, 1, intA75, intB75
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA75 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA95, intB95
FindColor intA75-42, intB75+50, intA75-42, intB75-100, "3E3EFF", 0, 1, intA95, intB95
If intA95 > 0 Then
Touch intA75 + 1, intB75 + 1,2000
Delay 1000
TouchDown intA75 + 160, intB75 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA76, intB76
FindColor 235,788, 228,878, "956B57", 0, 1, intA76, intB76
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA76 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA96, intB96
FindColor intA76-42, intB76+50, intA76-42, intB76-100, "3E3EFF", 0, 1, intA96, intB96
If intA96 > 0 Then
Touch intA76 + 1, intB76 + 1,2000
Delay 1000
TouchDown intA76 + 160, intB76 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA78, intB78
FindColor 235,878, 228,968, "956B57", 0, 1, intA78, intB78
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA78 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA98, intB98
FindColor intA78-42, intB78+50, intA78-42, intB78-100, "3E3EFF", 0, 1, intA98, intB98
If intA98 > 0 Then
Touch intA78 + 1, intB78 + 1,2000
Delay 1000
TouchDown intA78 + 160, intB78 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA79, intB79
FindColor 235,968, 228,1058, "956B57", 0, 1, intA79, intB79
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA79 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA99, intB99
FindColor intA79-42, intB79+50, intA79-42, intB79-100, "3E3EFF", 0, 1, intA99, intB99
If intA99 > 0 Then
Touch intA79 + 1, intB79 + 1,2000
Delay 1000
TouchDown intA79 + 160, intB79 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA791, intB791
FindColor 235,1058, 228,1148, "956B57", 0, 1, intA791, intB791
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA791 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA991, intB991
FindColor intA791-42, intB791+50, intA791-42, intB791-100, "3E3EFF", 0, 1, intA991, intB991
If intA991 > 0 Then
Touch intA791 + 1, intB791 + 1,2000
Delay 1000
TouchDown intA791 + 160, intB791 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA792, intB792
FindColor 235,1148, 228,1238, "956B57", 0, 1, intA792, intB792
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA792 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA992, intB992
FindColor intA792-42, intB792+50, intA792-42, intB792-100, "3E3EFF", 0, 1, intA992, intB992
If intA992 > 0 Then
Touch intA792 + 1, intB792 + 1,2000
Delay 1000
TouchDown intA792 + 160, intB792 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA793, intB793
FindColor 235,1238, 228,1328, "956B57", 0, 1, intA793, intB793
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA793 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA993, intB993
FindColor intA793-42, intB793+50, intA793-42, intB793-100, "3E3EFF", 0, 1, intA993, intB993
If intA993 > 0 Then
Touch intA793 + 1, intB793 + 1,2000
Delay 1000
TouchDown intA793 + 160, intB793 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA794, intB794
FindColor 235,1328, 228,1418, "956B57", 0, 1, intA794, intB794
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA794 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA994, intB994
FindColor intA794-42, intB794+50, intA794-42, intB794-100, "3E3EFF", 0, 1, intA994, intB994
If intA994 > 0 Then
Touch intA794 + 1, intB794 + 1,2000
Delay 1000
TouchDown intA794 + 160, intB794 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA795, intB795
FindColor 235,1418, 228,1508, "956B57", 0, 1, intA795, intB795
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA795 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA995, intB995
FindColor intA795-42, intB795+50, intA795-42, intB795-100, "3E3EFF", 0, 1, intA995, intB995
If intA995 > 0 Then
Touch intA795 + 1, intB795 + 1,2000
Delay 1000
TouchDown intA795 + 160, intB795 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA796, intB796
FindColor 235,1508, 228,1608, "956B57", 0, 1, intA796, intB796
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA796 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA996, intB996
FindColor intA796-42, intB796+50, intA796-42, intB796-100, "3E3EFF", 0, 1, intA996, intB996
If intA996 > 0 Then
Touch intA796 + 1, intB796 + 1,2000
Delay 1000
TouchDown intA796 + 160, intB796 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA6, intB6
FindColor 490,248, 490,1600, "523AF4", 0, 1, intA6, intB6
//如果朋友圈置顶显示有消息，触发发朋友圈
If intA6 > 0 Then
Dim intA8, intB8
FindColor intA6-307, intB6, intA6-307, intB6-23, "3E3EFF", 0, 1, intA8, intB8
If intA8 > 0 Then
TouchDown intA6 + 1, intB6 + 1
TouchUp
Delay 3000
Tap 61,148
Delay 2000
TouchDown 667, 1838
TouchUp
Delay 2000
Else
End If
//否则
TracePrint "没找到颜色"
End If
Delay 200
Dim intA2, intB2
FindColor 142,246, 142,246, "3B9DFA", 0, 1, intA2, intB2
//判断是否停在通讯录，是就返回
If intA2 > 0 Then
Tap 133, 1833
Delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
Dim intA1, intB1
FindColor 113,332, 113,332, "F15A6C", 0, 1, intA1, intB1
If intA1 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
TouchDown intA1 + 1, intB1 + 1
TouchUp
Delay 5000
Else
//否则
TracePrint "没找到颜色"
End If
//判断是否停在发现页面，是就点击
Delay 100
Dim intA, intB
FindColor 459,1225, 459,1225, "575757", 0, 1, intA, intB
//如果没有找到，intA和intB的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA > 0 Then
//如果intA大于0，说明找颜色，IntA与IntB分别表示这颜色的位置坐标
TouchDown intA + 1, intB + 1
TouchUp
Delay 2000
TouchDown 77,152
TouchUp
Delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
Delay 200
Dim intX, intY
FindColor 205,1131, 205,1131, "BE5500", 0, 1, intX, intY
If intX > 0 Then
KeyPress "Home"
Delay 3000
TouchDown 905, 1746
TouchUp
Delay 4000
TouchDown 527,364
TouchUp
Delay 3000
Touch 373, 490, 1000
Delay 3000
TouchDown 373, 650
TouchUp
Delay 1000
TouchDown 582,1843
TouchUp
Delay 3000
TouchDown 488,1656
TouchUp
Delay 3000
KeyPress "Back"
Delay 1000
Tap 183,379
Delay 3000
Touch 477,400, 1000
Delay 3000
Tap 447, 702
Delay 1000
Tap 522, 1857
Delay 2000
Tap 473,1681
Delay 2000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 2000
TouchDown 427,1740
TouchUp
Delay 2000
TouchDown intX + 1, intY + 1
TouchUp
Delay 10000
TouchDown 255,1064
TouchUp
Delay 6000
TouchDown 313,1341
TouchUp
Delay 2000
TouchDown 990,1847
TouchUp
Delay 2000
Swipe 300, 500, 300, 1200, 1500
Swipe 300, 500, 300, 1200, 1500
Touch 201, 349, 1000
Delay 1000
TouchDown 253,476
TouchUp
Delay 2000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
Delay 1000
TouchDown 204,1721
TouchUp
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Delay 3000
KeyPress "Back"
Delay 1000
KeyPress "Home"
Delay 1000
TouchDown 181,1747
TouchUp
Delay 15000
TouchDown 394,1523
TouchUp
Delay 4000
TouchDown 991,135
TouchUp
Delay 2000
TouchDown 329,1838
TouchUp
Delay 2000
TouchDown 853,1178
TouchUp
Delay 2000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
TouchDown 417,1741
TouchUp
Delay 3000
TouchDown 999,158
TouchUp
Delay 2000
TouchDown 361,1048
TouchUp
Delay 6000
TouchDown 484,545
TouchUp
Delay 1000
TouchDown 213,535
TouchUp
Delay 1000
TouchDown 1028,271
TouchUp
Delay 1000
TouchDown 762,266
TouchUp
Delay 1000
TouchDown 490,275
TouchUp
Delay 1000
TouchDown 212,274
TouchUp
Delay 1000
TouchDown 972, 151
TouchUp
Delay 3000
Touch 396, 332, 1000
Delay 1000
TouchDown 166, 443
TouchUp
Delay 1000
TouchDown 951,143
TouchUp
Delay 3000
Delay 1000
TouchDown 535,1554
TouchMove 549, 225
Delay 10000
Dim intX1, intY1
FindColor 205,229, 205,1888, "BE5500", 0, 0.9, intX1, intY1
//如果没有找到，intX1和intY1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intX1 > 0 Then
//如果intX大于0，说明找颜色，IntX与IntY分别表示这颜色的位置坐标
TouchDown intX1 , intY1
TouchUp
Delay 5000
TouchDown 255,1064
TouchUp
Delay 3000
TouchDown 306,1325
TouchUp
Delay 2000
TouchDown 997,1855
TouchUp
Delay 2000
TouchDown 61,1283
Swipe 61, 1283, 61, 800, 1500
Delay 1000
Touch 48, 1574, 1000
TouchUp
Delay 1000
TouchDown 121,1289
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 277,167
TouchUp
TouchDown 277,167
TouchUp
Delay 2000
TouchDown 809,888
TouchUp
Delay 2500
TouchDown 492,758
TouchUp
Delay 2500
TouchDown 278,1549
TouchUp
Delay 1500
TouchDown 1001,1848
TouchUp
Delay 3000
Touch 279,1855,1000
Delay 1000
TouchDown 135,1684
TouchUp
Delay 1500
TouchDown 988,1839
TouchUp
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
TouchDown 120,1900
TouchUp
Delay 1000
Else
//否则
TracePrint "没找到颜色"
End If
Else
//否则
End If
Delay 100
Dim intXn, intYn
FindColor 1001,138, 1001,138, "C2C2C2", 0, 0.9, intXn, intYn
If intXn > -1 And intYn > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 1000
End If
Delay 100
//如果停留朋友圈页面就返回
Dim intXn1, intYn1
FindColor 988,167, 988,167, "989898", 0, 1, intXn1, intYn1
If intXn1 > -1 And intYn1 > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 500
End If
Delay 100
//如果停留在订阅号页面就返回
Dim intXn3, intYn3
FindColor 370,1690, 370,1690, "17C50C", 0, 1, intXn3, intYn3
If intXn3 > -1 And intYn3 > -1 Then
Tap intXn3, intYn3
Delay 1000
End If
Delay 100
//停留在桌面就点微信
Dim intXn2, intYn2
FindColor 971,152, 971,152, "808080", 0, 1, intXn2, intYn2
If intXn2 > -1 And intYn2 > -1 Then
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 5000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 25000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 1500000
Tap 112, 148
Delay 1000
Tap 112, 148
Delay 1500000
Tap 112, 148
Delay 1200000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 20000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 5000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 20000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
End If
Delay 100
//云扫码
Dim intXn4, intYn4
FindColor 1015,129, 1015,129, "717171", 0, 1, intXn4, intYn4
If intXn4 > -1 And intYn4 > -1 Then
Tap 55, 143
Delay 2000
Dim intXn5, intYn5
FindColor 129,226, 129,1700, "2D86F5", 0, 1, intXn5, intYn5
If intXn5 > -1 And intYn5 > -1 Then
Touch intXn5, intYn5,1000
Delay 2000
Tap intXn5+50,intYn5-70
Delay 1500
Tap 819,1102
Delay 1500
End If
Delay 100
End If
Delay 100
//如果停留在服务通知页面就返回并删除服务通知
Dim intXn6, intYn6
FindColor 1024,169, 1024,169, "989898", 0, 1, intXn6, intYn6
If intXn6 > -1 And intYn6 > -1 Then
Tap 63, 141
Delay 1000
End If
Delay 100
//如果停留咋公众号页面就返回
Dim intXn7, intYn7
FindColor 853,172, 853,172, "C6C2C2", 0, 1, intXn7, intYn7
If intXn7 > -1 And intYn7 > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 500
End If
Delay 100
//如果停留在订阅号页面就返回
Dim intXn8, intYn8
FindColor 858,1257, 858,1257, "19AD1A", 0, 1, intXn8, intYn8
If intXn8 > -1 And intYn8 > -1 Then
Tap intXn8, intYn8
Delay 1000
End If
Delay 100
//微信在别的手机登录点确定
Dim intXn9, intYn9
FindColor 79,967, 79,967, "9A7260", 0, 1, intXn9, intYn9
If intXn9 > -1 And intYn9 > -1 Then
Tap 416,845
Delay 30000
InputText "quanqiu123"
Delay 2000
Tap 189,243
Delay 30000
Tap 438,1186
Delay 20000
Tap 68,148
Delay 20000
Dim intXn10, intYn10
FindColor 132,221, 132,967, "60C105", 0, 1, intXn10, intYn10
If intXn10 > -1 And intYn10 > -1 Then
Touch intXn10, intYn10,2000
Delay 1000
Tap intXn10, intYn10-137
Delay 2000
Tap 815,1100
Delay 2000
End If
End If
Delay 100
//微信登录
Delay 100
Dim intXn11, intYn11
FindColor 179,50, 179,1648, "ABC2CC", 0, 1, intXn11, intYn11
If intXn11 > -1 And intYn11 > -1 Then
Dim intXn12, intYn12
FindColor 179,intYn11-5, 179,intYn11-5, "3E3EFF", 0, 1, intXn12, intYn12
If intXn12 > -1 And intYn12 > -1 Then
Tap intXn12, intYn12
Delay 2000
Tap 217,463
Delay 5000
Tap 909,474
Delay 10000
For 25
KeyPress "Back"
Delay 20000
Next
End If
Delay 100
Dim intXx1, intYy1
FindColor 450,1713, 450,1713, "17C50C", 0, 1, intXx1, intYy1
//如果没有找到，intX和intY的值都会被置为-1
If intXx1 > -1 And intYy1 > -1 Then
Tap intXx1, intYy1
delay 6000
End If
Dim intXx2, intYy2
FindColor 179,50, 179,1648, "ABC2CC", 0, 1, intXx2, intYy2
//如果没有找到，intX和intY的值都会被置为-1
If intXx2 > -1 And intYy2 > -1 Then
Touchdown intXx2, intYy2
delay 2000
tap intXx2, intYy2+423
Delay 2000
tap 803,1099
delay 2000
End If
End If
Delay 100
//懒立邦
loop
TouchDown 310, 147
TouchUp
TouchDown 310, 147
TouchUp
Delay 2000
Dim h,m,s,HH,MM,SS,t1
HH=ReadUIConfig("HH","23")
MM=ReadUIConfig("MM","10")
TracePrint HH
TracePrint MM
t1=GetNetworkTime()
h=mid(t1,12,2)//获取网络小时
m=mid(t1,15,2)//获取网络分钟
If h=HH and m=MM then
KeyPress "Home"
Delay 2000
Tap 426, 793
Delay 9000
Swipe 867,641,183,641,300
Delay 1000
Swipe 867,641,183,641,300
Delay 1000
Swipe 867,641,183,641,300
Delay 1000
Tap 541,1673
Delay 1000
Tap 446,831
Delay 10000
Tap 446,831
Delay 10000
KeyPress "Back"
Delay 700
KeyPress "Back"
Delay 2000
Tap 906,1735
Delay 2000
Tap 932,1778
Delay 10000
Tap 468,1812
Delay 10000
KeyPress "Back"
Delay 700
KeyPress "Back"
Delay 2000
Tap 433,1729
Delay 3000
//点击坐标
TracePrint "运行结束"
End If
//TracePrint t1
Delay 100
Dim intX31, intY31
FindColor 185,200, 185,409, "2D86F5", 0, 1, intX31, intY31
//出现公众号消息就取关
If intX31 > -1 And intY31 > -1 Then
Dim intX32, intY32
FindColor 185, intY31-5, 185, intY31-5, "3E3EFF", 0, 1, intX32, intY32
//如果没有找到，intX和intY的值都会被置为-1
If intX32 > -1 And intY32 > -1 Then
Touch intX32, intY32,1000
Delay 2000
Tap intX32, intY32+264
Delay 2000
Tap 810,1125
Delay 2000
Tap 64,142
Delay 2000
End If
End If
Delay 100
Dim intX21, intY21
FindColor 185,409, 185,1800, "2D86F5", 0, 1, intX21, intY21
//出现公众号消息就取关
If intX21 > -1 And intY21 > -1 Then
Dim intX22, intY22
FindColor 185, intY21-5, 185, intY21-5, "3E3EFF", 0, 1, intX22, intY22
//如果没有找到，intX和intY的值都会被置为-1
If intX22 > -1 And intY22 > -1 Then
Touch intX22, intY22,1000
Delay 2000
Tap intX22, intY22-130
Delay 2000
Tap 810,1125
Delay 2000
Tap 64,142
Delay 2000
End If
End If
Delay 100
Dim intX5, intY5
FindColor 959,1785, 959,1785, "07BB09", 0, 1, intX5, intY5
//出现公众号消息就取关
If intX5 > -1 And intY5 > -1 Then
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Tap 680,1829
Delay 1000
End If
Delay 100
Dim intX3, intY3
FindColor 180,639, 180,639, "02E165", 0, 1, intX3, intY3
//如果没有找到，intX和intY的值都会被置为-1
If intX3 > -1 And intY3 > -1 Then
KeyPress "Back"
Delay 1000
End If
Delay 100
Dim intX6, intY6
FindColor 990,148, 990,148, "6E956C", 0, 1, intX6, intY6
//如果没有找到，intX和intY的值都会被置为-1
If intX6 > -1 And intY6 > -1 Then
KeyPress "Back"
Delay 1000
End If
Delay 100
Dim intA7, intB7
FindColor 235,248, 228,338, "956B57", 0, 1, intA7, intB7
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA7 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA9, intB9
FindColor intA7-42, intB7+50, intA7-42, intB7-100, "3E3EFF", 0, 1, intA9, intB9
If intA9 > 0 Then
Touch intA7 + 1, intB7 + 1,2000
Delay 1000
TouchDown intA7 + 160, intB7 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA77, intB77
FindColor 235,338, 228,428, "956B57", 0, 1, intA77, intB77
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA77 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA97, intB97
FindColor intA77-42, intB77+50, intA77-42, intB77-100, "3E3EFF", 0, 1, intA97, intB97
If intA97 > 0 Then
Touch intA77 + 1, intB77 + 1,2000
Delay 1000
TouchDown intA77 + 160, intB77 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA72, intB72
FindColor 235,428, 228,518, "956B57", 0, 1, intA72, intB72
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA72 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA92, intB92
FindColor intA72-42, intB72+50, intA72-42, intB72-100, "3E3EFF", 0, 1, intA92, intB92
If intA92 > 0 Then
Touch intA72 + 1, intB72 + 1,2000
Delay 1000
TouchDown intA72 + 160, intB72 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA73, intB73
FindColor 235,518, 228,608, "956B57", 0, 1, intA73, intB73
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA73 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA93, intB93
FindColor intA73-42, intB73+50, intA73-42, intB73-100, "3E3EFF", 0, 1, intA93, intB93
If intA93 > 0 Then
Touch intA73 + 1, intB73 + 1,2000
Delay 1000
TouchDown intA73 + 160, intB73 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA74, intB74
FindColor 235,608, 228,698, "956B57", 0, 1, intA74, intB74
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA74 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA94, intB94
FindColor intA74-42, intB74+50, intA74-42, intB74-100, "3E3EFF", 0, 1, intA94, intB94
If intA94 > 0 Then
Touch intA74 + 1, intB74 + 1,2000
Delay 1000
TouchDown intA74 + 160, intB74 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA75, intB75
FindColor 235,698, 228,788, "956B57", 0, 1, intA75, intB75
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA75 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA95, intB95
FindColor intA75-42, intB75+50, intA75-42, intB75-100, "3E3EFF", 0, 1, intA95, intB95
If intA95 > 0 Then
Touch intA75 + 1, intB75 + 1,2000
Delay 1000
TouchDown intA75 + 160, intB75 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA76, intB76
FindColor 235,788, 228,878, "956B57", 0, 1, intA76, intB76
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA76 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA96, intB96
FindColor intA76-42, intB76+50, intA76-42, intB76-100, "3E3EFF", 0, 1, intA96, intB96
If intA96 > 0 Then
Touch intA76 + 1, intB76 + 1,2000
Delay 1000
TouchDown intA76 + 160, intB76 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA78, intB78
FindColor 235,878, 228,968, "956B57", 0, 1, intA78, intB78
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA78 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA98, intB98
FindColor intA78-42, intB78+50, intA78-42, intB78-100, "3E3EFF", 0, 1, intA98, intB98
If intA98 > 0 Then
Touch intA78 + 1, intB78 + 1,2000
Delay 1000
TouchDown intA78 + 160, intB78 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA79, intB79
FindColor 235,968, 228,1058, "956B57", 0, 1, intA79, intB79
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA79 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA99, intB99
FindColor intA79-42, intB79+50, intA79-42, intB79-100, "3E3EFF", 0, 1, intA99, intB99
If intA99 > 0 Then
Touch intA79 + 1, intB79 + 1,2000
Delay 1000
TouchDown intA79 + 160, intB79 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA791, intB791
FindColor 235,1058, 228,1148, "956B57", 0, 1, intA791, intB791
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA791 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA991, intB991
FindColor intA791-42, intB791+50, intA791-42, intB791-100, "3E3EFF", 0, 1, intA991, intB991
If intA991 > 0 Then
Touch intA791 + 1, intB791 + 1,2000
Delay 1000
TouchDown intA791 + 160, intB791 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA792, intB792
FindColor 235,1148, 228,1238, "956B57", 0, 1, intA792, intB792
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA792 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA992, intB992
FindColor intA792-42, intB792+50, intA792-42, intB792-100, "3E3EFF", 0, 1, intA992, intB992
If intA992 > 0 Then
Touch intA792 + 1, intB792 + 1,2000
Delay 1000
TouchDown intA792 + 160, intB792 + 450
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA793, intB793
FindColor 235,1238, 228,1328, "956B57", 0, 1, intA793, intB793
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA793 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA993, intB993
FindColor intA793-42, intB793+50, intA793-42, intB793-100, "3E3EFF", 0, 1, intA993, intB993
If intA993 > 0 Then
Touch intA793 + 1, intB793 + 1,2000
Delay 1000
TouchDown intA793 + 160, intB793 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA794, intB794
FindColor 235,1328, 228,1418, "956B57", 0, 1, intA794, intB794
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA794 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA994, intB994
FindColor intA794-42, intB794+50, intA794-42, intB794-100, "3E3EFF", 0, 1, intA994, intB994
If intA994 > 0 Then
Touch intA794 + 1, intB794 + 1,2000
Delay 1000
TouchDown intA794 + 160, intB794 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA795, intB795
FindColor 235,1418, 228,1508, "956B57", 0, 1, intA795, intB795
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA795 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA995, intB995
FindColor intA795-42, intB795+50, intA795-42, intB795-100, "3E3EFF", 0, 1, intA995, intB995
If intA995 > 0 Then
Touch intA795 + 1, intB795 + 1,2000
Delay 1000
TouchDown intA795 + 160, intB795 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA796, intB796
FindColor 235,1508, 228,1608, "956B57", 0, 1, intA796, intB796
//如果没有找到，intA1和intB1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA796 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
Dim intA996, intB996
FindColor intA796-42, intB796+50, intA796-42, intB796-100, "3E3EFF", 0, 1, intA996, intB996
If intA996 > 0 Then
Touch intA796 + 1, intB796 + 1,2000
Delay 1000
TouchDown intA796 + 160, intB796 - 230
Delay 100
TouchUp
Delay 1000
TouchDown 786,1130
Delay 100
TouchUp
Delay 1000
Tap 64,142
delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
End If
Delay 100
Dim intA6, intB6
FindColor 490,248, 490,1600, "523AF4", 0, 1, intA6, intB6
//如果朋友圈置顶显示有消息，触发发朋友圈
If intA6 > 0 Then
Dim intA8, intB8
FindColor intA6-307, intB6, intA6-307, intB6-23, "3E3EFF", 0, 1, intA8, intB8
If intA8 > 0 Then
TouchDown intA6 + 1, intB6 + 1
TouchUp
Delay 3000
Tap 61,148
Delay 2000
TouchDown 667, 1838
TouchUp
Delay 2000
Else
End If
//否则
TracePrint "没找到颜色"
End If
Delay 200
Dim intA2, intB2
FindColor 142,246, 142,246, "3B9DFA", 0, 1, intA2, intB2
//判断是否停在通讯录，是就返回
If intA2 > 0 Then
Tap 133, 1833
Delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
Dim intA1, intB1
FindColor 113,332, 113,332, "F15A6C", 0, 1, intA1, intB1
If intA1 > 0 Then
//如果intA1大于0，说明找颜色，IntA1与IntB1分别表示这颜色的位置坐标
TouchDown intA1 + 1, intB1 + 1
TouchUp
Delay 5000
Else
//否则
TracePrint "没找到颜色"
End If
//判断是否停在发现页面，是就点击
Delay 100
Dim intA, intB
FindColor 459,1225, 459,1225, "575757", 0, 1, intA, intB
//如果没有找到，intA和intB的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intA > 0 Then
//如果intA大于0，说明找颜色，IntA与IntB分别表示这颜色的位置坐标
TouchDown intA + 1, intB + 1
TouchUp
Delay 2000
TouchDown 77,152
TouchUp
Delay 2000
Else
//否则
TracePrint "没找到颜色"
End If
Delay 200
Dim intX, intY
FindColor 205,1131, 205,1131, "BE5500", 0, 1, intX, intY
If intX > 0 Then
KeyPress "Home"
Delay 3000
TouchDown 905, 1746
TouchUp
Delay 4000
TouchDown 527,364
TouchUp
Delay 3000
Touch 373, 490, 1000
Delay 3000
TouchDown 373, 650
TouchUp
Delay 1000
TouchDown 582,1843
TouchUp
Delay 3000
TouchDown 488,1656
TouchUp
Delay 3000
KeyPress "Back"
Delay 1000
Tap 183,379
Delay 3000
Touch 477,400, 1000
Delay 3000
Tap 447, 702
Delay 1000
Tap 522, 1857
Delay 2000
Tap 473,1681
Delay 2000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 2000
TouchDown 427,1740
TouchUp
Delay 2000
TouchDown intX + 1, intY + 1
TouchUp
Delay 10000
TouchDown 255,1064
TouchUp
Delay 6000
TouchDown 313,1341
TouchUp
Delay 2000
TouchDown 990,1847
TouchUp
Delay 2000
Swipe 300, 500, 300, 1200, 1500
Swipe 300, 500, 300, 1200, 1500
Touch 201, 349, 1000
Delay 1000
TouchDown 253,476
TouchUp
Delay 2000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
TouchDown 74,147
TouchUp
Delay 1000
Delay 1000
TouchDown 204,1721
TouchUp
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Swipe 950, 898, 39, 881, 300
Delay 3000
Touch 205, 847, 1000
Delay 5000
TouchDown 193,1696
TouchUp
Delay 1000
Delay 3000
KeyPress "Back"
Delay 1000
KeyPress "Home"
Delay 1000
TouchDown 181,1747
TouchUp
Delay 15000
TouchDown 394,1523
TouchUp
Delay 4000
TouchDown 991,135
TouchUp
Delay 2000
TouchDown 329,1838
TouchUp
Delay 2000
TouchDown 853,1178
TouchUp
Delay 2000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
TouchDown 417,1741
TouchUp
Delay 3000
TouchDown 999,158
TouchUp
Delay 2000
TouchDown 361,1048
TouchUp
Delay 6000
TouchDown 484,545
TouchUp
Delay 1000
TouchDown 213,535
TouchUp
Delay 1000
TouchDown 1028,271
TouchUp
Delay 1000
TouchDown 762,266
TouchUp
Delay 1000
TouchDown 490,275
TouchUp
Delay 1000
TouchDown 212,274
TouchUp
Delay 1000
TouchDown 972, 151
TouchUp
Delay 3000
Touch 396, 332, 1000
Delay 1000
TouchDown 166, 443
TouchUp
Delay 1000
TouchDown 951,143
TouchUp
Delay 3000
Delay 1000
TouchDown 535,1554
TouchMove 549, 225
Delay 10000
Dim intX1, intY1
FindColor 205,229, 205,1888, "BE5500", 0, 0.9, intX1, intY1
//如果没有找到，intX1和intY1的值都会被置为-1，那么这里我们只需要判断一个值就可以确认是否找到。
If intX1 > 0 Then
//如果intX大于0，说明找颜色，IntX与IntY分别表示这颜色的位置坐标
TouchDown intX1 , intY1
TouchUp
Delay 5000
TouchDown 255,1064
TouchUp
Delay 3000
TouchDown 306,1325
TouchUp
Delay 2000
TouchDown 997,1855
TouchUp
Delay 2000
TouchDown 61,1283
Swipe 61, 1283, 61, 800, 1500
Delay 1000
Touch 48, 1574, 1000
TouchUp
Delay 1000
TouchDown 121,1289
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 77,152
TouchUp
Delay 1000
TouchDown 277,167
TouchUp
TouchDown 277,167
TouchUp
Delay 2000
TouchDown 809,888
TouchUp
Delay 2500
TouchDown 492,758
TouchUp
Delay 2500
TouchDown 278,1549
TouchUp
Delay 1500
TouchDown 1001,1848
TouchUp
Delay 3000
Touch 279,1855,1000
Delay 1000
TouchDown 135,1684
TouchUp
Delay 1500
TouchDown 988,1839
TouchUp
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
Tap 61,143
Delay 1000
TouchDown 120,1900
TouchUp
Delay 1000
Else
//否则
TracePrint "没找到颜色"
End If
Else
//否则
End If
Delay 100
Dim intXn, intYn
FindColor 1001,138, 1001,138, "C2C2C2", 0, 0.9, intXn, intYn
If intXn > -1 And intYn > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 1000
End If
Delay 100
//如果停留朋友圈页面就返回
Dim intXn1, intYn1
FindColor 988,167, 988,167, "989898", 0, 1, intXn1, intYn1
If intXn1 > -1 And intYn1 > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 500
End If
Delay 100
//如果停留在订阅号页面就返回
Dim intXn3, intYn3
FindColor 370,1690, 370,1690, "17C50C", 0, 1, intXn3, intYn3
If intXn3 > -1 And intYn3 > -1 Then
Tap intXn3, intYn3
Delay 1000
End If
Delay 100
//停留在桌面就点微信
Dim intXn2, intYn2
FindColor 971,152, 971,152, "808080", 0, 1, intXn2, intYn2
If intXn2 > -1 And intYn2 > -1 Then
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 5000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 25000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 1500000
Tap 112, 148
Delay 1000
Tap 112, 148
Delay 1500000
Tap 112, 148
Delay 1200000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 20000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
Delay 5000
Tap 417, 1747
Delay 5000
Tap 943,1838
Delay 3000
Tap 207,847
Delay 3000
Tap 207,509
Delay 3000
Tap 192,383
Delay 3000
Tap 259,387
Delay 20000
For 40
KeyPress "Back"
Delay 20000
Next
Tap 58, 148
For 10
KeyPress "Back"
Delay 1000
next
End If
Delay 100
//云扫码
Dim intXn4, intYn4
FindColor 1015,129, 1015,129, "717171", 0, 1, intXn4, intYn4
If intXn4 > -1 And intYn4 > -1 Then
Tap 55, 143
Delay 2000
Dim intXn5, intYn5
FindColor 129,226, 129,1700, "2D86F5", 0, 1, intXn5, intYn5
If intXn5 > -1 And intYn5 > -1 Then
Touch intXn5, intYn5,1000
Delay 2000
Tap intXn5+50,intYn5-70
Delay 1500
Tap 819,1102
Delay 1500
End If
Delay 100
End If
Delay 100
//如果停留在服务通知页面就返回并删除服务通知
Dim intXn6, intYn6
FindColor 1024,169, 1024,169, "989898", 0, 1, intXn6, intYn6
If intXn6 > -1 And intYn6 > -1 Then
Tap 63, 141
Delay 1000
End If
Delay 100
//如果停留咋公众号页面就返回
Dim intXn7, intYn7
FindColor 853,172, 853,172, "C6C2C2", 0, 1, intXn7, intYn7
If intXn7 > -1 And intYn7 > -1 Then
Tap 60, 148
Delay 1000
Tap 60, 148
Delay 1000
Tap 133,1817
Delay 500
End If
Delay 100
//如果停留在订阅号页面就返回
Dim intXn8, intYn8
FindColor 858,1257, 858,1257, "19AD1A", 0, 1, intXn8, intYn8
If intXn8 > -1 And intYn8 > -1 Then
Tap intXn8, intYn8
Delay 1000
End If
Delay 100
//微信在别的手机登录点确定
Dim intXn9, intYn9
FindColor 79,967, 79,967, "9A7260", 0, 1, intXn9, intYn9
If intXn9 > -1 And intYn9 > -1 Then
Tap 416,845
Delay 30000
InputText "quanqiu123"
Delay 2000
Tap 189,243
Delay 30000
Tap 438,1186
Delay 20000
Tap 68,148
Delay 20000
Dim intXn10, intYn10
FindColor 132,221, 132,967, "60C105", 0, 1, intXn10, intYn10
If intXn10 > -1 And intYn10 > -1 Then
Touch intXn10, intYn10,2000
Delay 1000
Tap intXn10, intYn10-137
Delay 2000
Tap 815,1100
Delay 2000
End If
End If
Delay 100
//微信登录
Delay 100
Dim intXn11, intYn11
FindColor 179,50, 179,1648, "ABC2CC", 0, 1, intXn11, intYn11
If intXn11 > -1 And intYn11 > -1 Then
Dim intXn12, intYn12
FindColor 179,intYn11-5, 179,intYn11-5, "3E3EFF", 0, 1, intXn12, intYn12
If intXn12 > -1 And intYn12 > -1 Then
Tap intXn12, intYn12
Delay 2000
Tap 217,463
Delay 5000
Tap 909,474
Delay 10000
For 25
KeyPress "Back"
Delay 20000
Next
End If
Delay 100
Dim intXx1, intYy1
FindColor 450,1713, 450,1713, "17C50C", 0, 1, intXx1, intYy1
//如果没有找到，intX和intY的值都会被置为-1
If intXx1 > -1 And intYy1 > -1 Then
Tap intXx1, intYy1
delay 6000
End If
Dim intXx2, intYy2
FindColor 179,50, 179,1648, "ABC2CC", 0, 1, intXx2, intYy2
//如果没有找到，intX和intY的值都会被置为-1
If intXx2 > -1 And intYy2 > -1 Then
Touchdown intXx2, intYy2
delay 2000
tap intXx2, intYy2+423
Delay 2000
tap 803,1099
delay 2000
End If
End If
Delay 100
//懒立邦
loop
