Mikel
最近发现按键精灵居然有手机版，刚刚弄的一个微信自动跟附近人打招呼的源码，配合微信伪装位置软件使用，效果更佳！
Dim 屏幕宽度, 屏幕高度
Dim intX, intY
Dim intX1, intY1
Dim intX2, intY2
Dim intX3, intY3
KeepScreen True
屏幕宽度 = GetScreenX()
屏幕高度 = GetScreenY()
If Not (屏幕宽度 = 1080 And 屏幕高度 = 1920) Then
ShowMessage “屏幕分辨率必须是1080*1920，即将退出”
Delay 500
EndScript
End If
KeyPress “Home”
Delay 500
RunApp “com.tencent.mm”, “.plugin.nearby.ui.NearbyFriendsUI”
Delay 8000
Call 附近的人()
Delay 1000
Call 附近是否有人()
Delay 1000
Sub 附近是否有人()
FindPic 0, 0, 1080, 1920, “Attachment:2.png”, 0, 0.9, intX1, intY1
If intX1 > 0 And intY1 > 0 Then
ShowMessage “附近有人”
Call 点击打招呼()
Else
ShowMessage “附近没人”
EndScript
End If
End Sub
Sub 写字并发送()
InputText”你好,交个朋友吧”
End Sub
Sub 发送按钮找图()
FindColor 0, 0, 1080, 200, “1AC045”, 0, 0.9, intX3, intY3
If intX3 > 0 And intY3 > 0 Then
ShowMessage “准备发送”
Else
ShowMessage “发送失败”
EndScript
End If
End Sub
Sub 附近的人()
FindPic 0, 0, 540, 960, “Attachment:1.png”, 0, 0.9, intX, intY
//如果没有找到，intX和intY的值都会被置为-1
If intX > 0 And intY > 0 Then
ShowMessage “成功查找到附近的人”
Else
ShowMessage “查找到附近的人失败”
EndScript
End If
End Sub
Sub 打招呼找图()
FindColor 0, 0, 1080, 1920, “1AC045”, 0, 0.9, intX2, intY2
If intX2 > 0 And intY2 > 0 Then
ShowMessage”即将打招呼”
Else
ShowMessage”打招呼失败”
Delay 2000
EndScript
End If
End Sub
Sub 点击打招呼()
Tap intX1, intY1
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+200
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+400
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+600
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+800
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+1000
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+1200
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+1400
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
Tap intX1, intY1+1600
Delay 1000
Call 打招呼找图()
Tap intX2+20, intY2+20
Delay 1000
Call 写字并发送()
Delay 1000
Call 发送按钮找图()
Delay 1000
Tap intX3, intY3
Delay 1000
KeyPress “Back”
Delay 1000
PutAttachment “”, “*.png”
End Sub
Sub 滑动()
Swipe 0, 1919, 24, 384
End Sub
For 4
Call 滑动()
Delay 2000
Call 点击打招呼()
Delay 1000
Next
