昨天，觉得自己太孤单了，
想多加些朋友，那么去哪里加呢？
人多的地方，比如贴吧，
试了一款自动发贴，顶楼，等等功能的软件，
发现不行，发出去就给你删除了，
于是用按键安卓助手配合模拟器写了个超简单的脚本，
不得不说，按键确实简单又实用，
功能就是一直刷首页推荐，
然后点进去帖子发送想要发送的句子，
发现还不错，分享一下。源代码如下：
Function stap(x,y)Delay 500Dim MyValueRandomize MyValue = Int(((20-1+1) * Rnd()) + 1) Traceprint MyValueTap x+MyValue,y+MyValueEnd Function Function itb//进入说话返回stap 424,515Delay 8000stap 248, 1231Delay 3000 //要产生指定范围的随机整数，请使用以下公式： //Int((最大值 - 最小值 + 1) * Rnd() + 最小值)//例如产生2到6之间的随机数: Dim MyValueRandomize MyValue = Int(((6-1+1) * Rnd()) + 1) Traceprint MyValueIf MyValue = 1 Then InputText "交个朋友吧，因为我们也许能互相帮助呢."ElseIf MyValue = 2 ThenInputText "多个朋友多条路，你愿意和我做朋友吗？"ElseIf MyValue = 3 ThenInputText "茶，要喝浓的，直到淡而无味。酒，要喝醉的，永远不想醒来。人，要深爱的，要下辈子还要接着爱的那种。朋友，要永远的，就是看手机的这个。" ElseIf MyValue = 4 ThenInputText "朋友是人生中最重要的一部分，想交真心朋友吗？我是最值得你交的人！" ElseIf MyValue = 5 ThenInputText "快乐的晴天希望与你一起分享快乐，热爱交友的我希望成为你的新朋友"ElseIf MyValue = 6 ThenInputText "与朋友交，只取其长，不计其短。"End If Delay 3000+2000*MyValueDim intX,intY//判断是否找到发送按钮FindMultiColor 589,1103,701,1194,"FF802B","70|0|FF802B,0|32|FF802B,73|35|FF802B,34|-11|FFFFFF",0,0.9,intX,intYIf intX > -1 And intY > -1 ThenTracePrint intXTracePrint intYDelay 1000Tap intx, intyDelay 4000KeyPress "Back"Delay 2000End IfEnd FunctionFunction main//主程序//主页判断Dim intX,intYFindMultiColor 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,intYIf intX > -1 And intY > -1 ThenTap 73, 1228Delay 200Tap 73, 1228//双击刷新Delay 10000itb Else KeyPress "Back"Delay 3000mainEnd IfEnd Function DomainLoop
直接复制粘贴连接打开模拟器上百度贴吧就能用了。
割脸。
