教大家用按键精灵写一个快手自动抢红包脚本
先设计好界面，为了节省大家的时间，界面方面我们早就设计好了，请看下面

 

 

设计好界面后就进入写代码的步骤，这个其实你可以先录制一遍，然后把录制的代码进行二次修改，优化，加入一些判断与逻辑处理命令即可
下面是我们写好的按键代码

 

 

关于防屏蔽模块，其实就是利用xp模拟改机技术，针对每个app对应独立的imei sn值
部分代码分享：

Function 百万以内数字转换成中文大写(数值, 普通金融读法)
Dim a0, a1, b, h1
h1="壹贰叁肆伍陆柒捌玖"
a1 = int(数值 / 100000)
If a1 > 9 Then
百万以内数字转换成中文大写 = "数值大于等于一百万，敬请期待函数功能更新^_^"
Exit Function
ElseIf a1 > 1 Then
b = mid(h1, a1, 1) & "拾" : a0 = 0
ElseIf a1 = 1 Then
If 普通金融读法 = "金融" Then
b = "壹拾"
Else
b = "拾"
End If
a0 = 0
Else
b = "" : a0 = 1
End If
a1 = int((数值 mod 100000) / 10000)
If a1 > 0 Then
b = b & mid(h1, a1, 1) & "万" : a0 = 0
ElseIf b <> "" Then
b = b & "万" : a0 = 1
End If
a1 = int((数值 mod 10000) / 1000)
If a1 > 0 Then
b = b & mid(h1, a1, 1) & "仟" : a0 = 0
Else
a0 = 1
End If
a1 = int((数值 mod 1000) / 100)
If a1 > 0 Then
If a0 = 1 and b <> "" Then b = b & "零"
b = b & mid(h1, a1, 1) & "佰" : a0 = 0
Else
a0 = 1
End If
a1 = int((数值 mod 100) / 10)
If a1 > 0 Then
If a0 = 1 and b <> "" Then b = b & "零"
b = b & mid(h1, a1, 1) & "拾" : a0 = 0
If 数值 > 9 and 数值 < 20 and 普通金融读法 <> "金融" Then b = "拾"
Else
a0 = 1
End If
a1 = 数值 mod 10
If a1 > 0 Then
If a0 = 1 and b <> "" Then b = b & "零"
b = b & mid(h1, a1, 1)
ElseIf a0 = 1 and b = "" Then
b = "零"
End If
百万以内数字转换成中文大写 = b
End Function

　　下载这款脚本，去我公众号