按鍵精靈 生成GUID碼代碼

東西放在這裡  其實說起來也不難 唯一要注意的就是把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 刷首抽免綠盾

有幾點糾正一下  上面PO的是GUID  不是IMEI 不好意思搞錯了=ˇ=

感謝呀
苦苦尋找說
另一篇也很讚
這樣就不用用上
其他多餘的了
乾淨呀