最近手机支付宝每次到了10：00就提醒我抢红包.可是每次手都戳酸了，一个都没有。如是恼怒之下用按键精灵写了一个程序。让红包无处可逃。
第一步：1 下载按键精灵android版，应用宝啊，什么软件中心里面都有
2手机必须root，一键root工具多的很，这里我就不说了
第二步，打开按键精灵
脚本代码：
/* Code by Kaleo 引用了 猎鹰的代码 脚本原理： 将手机屏幕的X坐标切割成15份 也就是在手机屏幕的X坐标上均匀取15个坐标点 将手机屏幕的Y坐标切割成40份 也就是在屏幕的Y坐标上均匀取40个坐标点 横向15个坐标点，纵向40个坐标点，15*40=600 也就是在手机屏幕上均匀取600个坐标点来进行触摸操作。 横向15个坐标点，每个横向坐标点分配一个 线程，该线程负债循环触摸该横向坐标点上的40个纵向坐标点 这样，基本上就没得小地鼠能逃之夭夭了。 */ Dim X,Y,ave X = GetScreenX() Y = GetScreenY() ave=X/14 Thread.Start(ThreadFun1,ave*0,Y) Thread.Start(ThreadFun2,ave*1,Y) Thread.Start(ThreadFun3,ave*2,Y) Thread.Start(ThreadFun4,ave*3,Y) Thread.Start(ThreadFun5,ave*4,Y) Thread.Start(ThreadFun6,ave*5,Y) Thread.Start(ThreadFun7,ave*6,Y) Thread.Start(ThreadFun8,ave*7,Y) Thread.Start(ThreadFun9,ave*8,Y) Thread.Start(ThreadFun10,ave*9,Y) Thread.Start(ThreadFun11,ave*10,Y) Thread.Start(ThreadFun12,ave*11,Y) Thread.Start(ThreadFun13,ave*12,Y) Thread.Start(ThreadFun14,ave*13,Y) Thread.Start(ThreadFun15,ave*14,Y) Do Loop Sub ThreadFun1(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun2(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun3(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun4(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun5(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun6(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun7(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun8(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun9(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun10(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun11(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun12(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun13(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun14(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub Sub ThreadFun15(x,y) Dim i,a=1 While a=1 For i=0 To y Step y/40 Touch x,i,0 Next Wend End Sub
第三步：使用脚本
为了方便到时候使用，所以先设置按键精灵启动的快捷键
点击确定
然后找到刚才的脚本
点击加载脚本，这是脚本已经在后台准备了，
等到支付宝红包出现 三 二 一之后，按音量“+”，脚本就开始运行，这个时候你会看见红包全部都点开了。
等到完了之后，按音量“-”，推出脚本。
（注意加载脚本不要再其他地方页面运行，因为这个是全屏600个点循环点击，你可以在打开照片点击查看效果）
今天早上抢了一下 所有的红包抢到了，结果一毛钱都没有，我在怀疑支付宝是不是放了现金的，大家抱着娱乐的态度就好。
转载于:https://www.cnblogs.com/shamojituan/p/4292586.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/221103.html原文链接：https://javaforall.net
![idea2021.9 激活码【2021最新】[通俗易懂]](https://javaforall.net/wp-content/uploads/2020/11/2020110817443450-480x300.jpg)
