支付宝抢红包辅助设计_.NET_编程开发_程序员俱乐部

采用按键精灵安卓版编写，能戳死大多数地鼠，抢不抢得到看运气哈。

今天早上开了俩手机，打开脚本，小地鼠基本都戳死了，红包一个没有。

使用这个辅助app的前提是你的手机有Root权限，没有Root权限的，请使用Root精灵刷。

/*****************

Code by 猎鹰 QQ 905607625

脚本原理：

将手机屏幕的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 

这是按键精灵安卓版脚本代码。

下面上编译好的app，直接下载，安装使用就可以了。

CDSN下载地址：http://download.csdn.net/detail/cyberarmy/8442403

百度云存储下载地址：http://bcs.duapp.com/alipay01/支付宝抢红包QQ905607625.apk

为了方便查看效果，请先把开发者选项里的【指针位置】打开

下面说下app怎么使用

先安装app：

授权

点启动功能

点 前往设置

点前往设置之后不用进行任何操作，然后点返回键，返回到程序主页面，再点启动功能。

然后app就后台运行了，这时候，去图库随便找一张图片，按音量+ 键，打开脚本，就能看到，触摸轨迹了。

正常情况下，按下音量+键之后，会提示脚本启动，音量-键是停止脚本。

如果你按下音量+键，没有提示脚本运行且没有触摸轨迹，那么请重新按步骤设置。

调试好之后，当抢红包开始的时候，你按下音量+键，去喝杯茶就好了。。