按键精灵在微信的自动看新闻,回消息的脚本代码:
Function rndTap(x,y)
Dim suiji
Randomize
suiji = Int(((4-0+1) * Rnd()) + 1)
Tap x + suiji, y + suiji
End Function
//随机滑屏
Function rndMove(x,y,x1,y1,yanshi)
Dim suiji
Randomize
suiji = Int(((4 - 0 + 1) * Rnd()) + 1)
TouchDown x + suiji, y + suiji, 1
TouchMove x1 + suiji, y1 + suiji, 1, yanshi + suiji * 100
TouchUp 1
End Function
//多点降低相似度找色
Function sfindColor(t)
FindMultiColor t[1],t[2],t[3],t[4],t[5],t[6],t[7],t[8],t[12],t[13] //t[8]相似度
If t[12] = -1 And t[13] = -1 Then
FindMultiColor t[1],t[2],t[3],t[4],t[5],t[6],t[7],t[8]-0.1,t[14],t[15] //t[8]相似度
If t[14] > -1 And t[15] > -1 Then
TracePrint t[14],t[15]
t[11] = 1
If t[10] = 1 Then
rndTap(t[14],t[15])
Delay 100
End If
Else
TracePrint"还是没找到"&t[9]
t[11] = 0
TracePrint t[11]
End If
Else
TracePrint t[12],t[13]
t[11] = 1
If t[10] = 1 Then
rndTap t[12],t[13]
Delay 100
End If
End If
End Function
//降低相似度找图
Function sfindPic(t)
Dim intX,intY
FindPic t[1],t[2],t[3],t[4],t[5],t[6],t[7],t[8],intX,intY //t[8]相似度
If intX = -1 And intY = -1 Then
For 2
Dim intX1,intY1
FindPic t[1],t[2],t[3],t[4],t[5],t[6],t[7],t[8]-0.1,intX1,intY1 //t[8]相似度
If intX1 > -1 And intY1 > -1 Then
If t[10]=1 Then
rndTap(intX1,intY1)
Delay 1500
End If
Exit For
Else
TracePrint"还是没找到"&t[9]
t[11] = 0
TracePrint t[11]
End If
Next
Else
If t[10]=1 Then
rndTap(intx,inty)
Delay 100
End If
End If
End Function
//重启app
Function 重启app(apk)
KeyPress "Home"
Delay 2000
KillApp apk
RunApp apk
Delay 20000
End Function
Function 读取(a,路径)//a传入空数组接收,路径传入要读取的文