采用按键精灵安卓版编写,能戳死大多数地鼠,抢不抢得到看运气哈。
今天早上开了俩手机,打开脚本,小地鼠基本都戳死了,红包一个没有。
使用这个辅助app的前提是你的手机有Root权限,没有Root权限的,请使用Root精灵刷。
/*****************
脚本原理:
将手机屏幕的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
apk下载地址:http://download.csdn.net/detail/wang1988081309/8442481