按键精灵在帖吧的引流代码

昨天，觉得自己太孤单了，

想多加些朋友，那么去哪里加呢？

人多的地方，比如贴吧，

试了一款自动发贴，顶楼，等等功能的软件，

发现不行，发出去就给你删除了，

于是用按键安卓助手配合模拟器写了个超简单的脚本，

不得不说，按键确实简单又实用，

功能就是一直刷首页推荐，

然后点进去帖子发送想要发送的句子，

发现还不错，分享一下。源代码如下：  

Function stap(x,y)
Delay 500
Dim MyValue
Randomize
MyValue = Int(((20-1+1) * Rnd()) + 1)
Traceprint MyValue
Tap x+MyValue,y+MyValue
End Function

Function itb//进入说话返回
stap 424,515
Delay 8000
stap 248, 1231
Delay 3000

//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((6-1+1) * Rnd()) + 1)
Traceprint MyValue
If MyValue = 1 Then
InputText "交个朋友吧，因为我们也许能互相帮助呢."
ElseIf MyValue = 2 Then
InputText "多个朋友多条路，你愿意和我做朋友吗？"
ElseIf MyValue = 3 Then
InputText "茶，要喝浓的，直到淡而无味。酒，要喝醉的，永远不想醒来。人，要深爱的，要下辈子还要接着爱的那种。朋友，要永远的，就是看手机的这个。"
ElseIf MyValue = 4 Then
InputText "朋友是人生中最重要的一部分，想交真心朋友吗？我是最值得你交的人！"
ElseIf MyValue = 5 Then
InputText "快乐的晴天希望与你一起分享快乐，热爱交友的我希望成为你的新朋友"
ElseIf MyValue = 6 Then
InputText "与朋友交，只取其长，不计其短。"
End If

Delay 3000+2000*MyValue
Dim intX,intY
//判断是否找到发送按钮
FindMultiColor 589,1103,701,1194,"FF802B","70|0|FF802B,0|32|FF802B,73|35|FF802B,34|-11|FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Delay 1000
Tap intx, inty
Delay 4000
KeyPress "Back"
Delay 2000
End If
End Function
Function main//主程序
//主页判断
Dim intX,intY
FindMultiColor 290,1139,433,1268,"FFB32B","25|-11|FFAD2B,56|6|FF972B,25|62|FF8C2B,25|31|FFFFFF,4|41|FF9F2B,-38|62|FFFFFF,78|59|FFFFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
Tap 73, 1228
Delay 200
Tap 73, 1228//双击刷新
Delay 10000
itb
Else
KeyPress "Back"
Delay 3000
main
End If
End Function

Do
main
Loop

直接复制粘贴连接打开模拟器上百度贴吧就能用了。 

割脸。