按鍵精靈寫快手自動搶紅包指令碼~公開部分原始碼
阿新 • • 發佈:2020-11-27
教大家用按鍵精靈寫一個快手自動搶紅包指令碼
先設計好介面,為了節省大家的時間,介面方面我們早就設計好了,請看下面
設計好介面後就進入寫程式碼的步驟,這個其實你可以先錄製一遍,然後把錄製的程式碼進行二次修改,優化,加入一些判斷與邏輯處理命令即可
下面是我們寫好的按鍵程式碼
關於防遮蔽模組,其實就是利用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
下載這款指令碼,去我公眾號