码迷,mamicode.com
首页 > 其他好文 > 详细

教大家支付宝抢红包

时间:2015-02-15 11:55:48      阅读:242      评论:0      收藏:0      [点我收藏+]

标签:

最近手机支付宝每次到了10:00就提醒我抢红包.可是每次手都戳酸了,一个都没有。如是恼怒之下用按键精灵写了一个程序。让红包无处可逃。

第一步:1 下载按键精灵android版,应用宝啊,什么软件中心里面都有

           2手机必须root,一键root工具多的很,这里我就不说了

技术分享

第二步,打开按键精灵

技术分享技术分享技术分享技术分享

脚本代码:

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

Code by Kaleo 616801795
引用了 猎鹰的代码

脚本原理:

将手机屏幕的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个点循环点击,你可以在打开照片点击查看效果)

今天早上抢了一下 所有的红包抢到了,结果一毛钱都没有,我在怀疑支付宝是不是放了现金的,大家抱着娱乐的态度就好。

教大家支付宝抢红包

标签:

原文地址:http://www.cnblogs.com/shamojituan/p/4292586.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!