按鍵精靈寫快手自動搶紅包腳本~公開部分源碼

教大家用按鍵精靈寫一個快手自動搶紅包腳本
先設計好界面，為了節省大家的時間，界面方面我們早就設計好了，請看下面

 

 

設計好界面后就進入寫代碼的步驟，這個其實你可以先錄制一遍，然后把錄制的代碼進行二次修改，優化，加入一些判斷與邏輯處理命令即可
下面是我們寫好的按鍵代碼

 

 

關於防屏蔽模塊，其實就是利用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

　　下載這款腳本，去我公眾號