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

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

想多加些朋友，

那么去哪里加呢？人多的地方，

比如贴吧，

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

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

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

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

功能就是一直刷首页推荐，然后点进去帖子发送想要发送的句子，

发现还不错，分享一下。

模拟器设置720*1280，dpi320

源代码如下：

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

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