Android 台灣中文網

標題: 按鍵精靈 生成GUID碼代碼 [打印本頁]
作者: stu98601    時間: 2013-12-8 18:49
標題: 按鍵精靈 生成GUID碼代碼
本帖最後由 stu98601 於 2013-12-8 18:55 編輯

東西放在這裡  其實說起來也不難 唯一要注意的就是把10-15的數值轉到英文字符而已

  1. For 8
  2. Randomize
  3. a = int(rnd * 16)
  4. If a = 10 Then
  5.         a = "A"
  6.         ElseIf a = 11 Then
  7.         a = "B"
  8.         ElseIf a=12 Then
  9.         a = "C"
  10.         ElseIf a=13 Then
  11.         a = "D"
  12.         ElseIf a=14 Then
  13.         a = "E"
  14.         ElseIf a=15 Then
  15.         a = "F"
  16. End If
  17. code1 = code1 & a
  18. Next
  19. For 3
  20.         Randomize
  21.         b = int(rnd * 16)
  22.         If b = 10 Then
  23.         b = "A"
  24.         ElseIf b = 11 Then
  25.         b = "B"
  26.         ElseIf b=12 Then
  27.         b = "C"
  28.         ElseIf b=13 Then
  29.         b = "D"
  30.         ElseIf b=14 Then
  31.         b = "E"
  32.         ElseIf b=15 Then
  33.         b = "F"
  34. End If
  35. code2 = code2 & b       
  36. Next
  37. For 4
  38.         Randomize
  39.         c = int(rnd * 16)
  40.         If c = 10 Then
  41.         c = "A"
  42.         ElseIf c = 11 Then
  43.         c = "B"
  44.         ElseIf c=12 Then
  45.         c = "C"
  46.         ElseIf c=13 Then
  47.         c = "D"
  48.         ElseIf c=14 Then
  49.         c = "E"
  50.         ElseIf c=15 Then
  51.         c = "F"
  52.         End If
  53.         code3 = code3 & c
  54.         Next
  55.         For 4
  56.                 Randomize
  57.                 d = int(rnd * 16)
  58.         If d = 10 Then
  59.         d = "A"
  60.         ElseIf d = 11 Then
  61.         d = "B"
  62.         ElseIf d=12 Then
  63.         d = "C"
  64.         ElseIf d=13 Then
  65.         d = "D"
  66.         ElseIf d=14 Then
  67.         d = "E"
  68.         ElseIf d=15 Then
  69.         d = "F"
  70.         End If
  71.         code4  = code4 & d
  72.         Next
  73.         For 12
  74.         Randomize
  75.         e = int(rnd * 16)
  76.         If e = 10 Then
  77.         e = "A"
  78.         ElseIf e = 11 Then
  79.         e = "B"
  80.         ElseIf e=12 Then
  81.         e = "C"
  82.         ElseIf e=13 Then
  83.         e = "D"
  84.         ElseIf e=14 Then
  85.         e = "E"
  86.         ElseIf e=15 Then
  87.         e = "F"
  88.         End If
  89.         code5  = code5 & e
  90.         Next
  91. SayString code1 & "-" & "4" & code2 & "-" & code3 & "-" & code4 & "-" & code5
  92. MessageBox code1 & "-" & "4" & code2 & "-" & code3 & "-" & code4 & "-" & code5
  93.        
複製代碼



如果有更簡潔的寫法歡迎指教

目前正在研發純腳本的自動首刷
希望可以研發出不用一堆雜七雜八單純運行腳本就可以爽爽首刷的東西
歡迎一起討論

此腳本可以與此篇一起服用
快速更改IP 刷首抽免綠盾

IMEI生成腳本.Q

1.72 KB, 下載次數: 8, 下載積分: 碎鑽 -1 個
作者: stu98601    時間: 2013-12-8 18:57
有幾點糾正一下  上面PO的是GUID  不是IMEI 不好意思搞錯了=ˇ=
作者: 笨笨烏龜    時間: 2013-12-8 20:17
感謝呀
苦苦尋找說
另一篇也很讚
這樣就不用用上
其他多餘的了
乾淨呀




歡迎光臨 Android 台灣中文網 (https://apk.tw/) Powered by Discuz! X3.1