-
Notifications
You must be signed in to change notification settings - Fork 0
/
红警3联机CDKEY自动分配器.vbs
29 lines (29 loc) · 1.14 KB
/
红警3联机CDKEY自动分配器.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
On Error Resume Next
Dim RA3SN(20),Num,cdkey
RA3SN(1) = "ZMHR-L64D-9RS5-89RF-6RLD"
RA3SN(2) = "6ZD5-RAT2-P3FU-8P3K-VRLD"
RA3SN(3) = "LNVM-NGST-P2BT-3P2Z-TRLD"
RA3SN(4) = "7833-UXDT-9BYE-49B4-GRLD"
RA3SN(5) = "GM5D-RVFF-NSNG-HNSB-HRLD"
RA3SN(6) = "Y7TK-ZPNU-U47P-QU4U-PRLD"
RA3SN(7) = "9ZZ9-HXET-ZYHF-UZY6-GRLD"
RA3SN(8) = "Z3UU-5A35-L275-WL2U-5RLD"
RA3SN(9) = "ECJJ-58RR-DU6T-7DUT-TRLD"
RA3SN(10) = "DB8Y-44PY-XCNQ-GXCU-RRLD"
RA3SN(11) = "ND8Y-BRND-N3JP-2N37-QRLD"
RA3SN(12) = "D7BT-PJTJ-GGNU-7GGB-VRLD"
RA3SN(13) = "EB33-NYRY-7VAS-Z7VX-SRLD"
RA3SN(14) = "5VAS-N9SN-NKVT-ANKZ-URLD"
RA3SN(15) = "CCL4-X27H-7VR8-97VE-9RLD"
RA3SN(16) = "U5JJ-58HF-VG6K-RVG8-MRLD"
RA3SN(17) = "2LCL-2Y4G-9Z95-B9ZW-5RLD"
RA3SN(18) = "QVXX-6BRT-NGLS-DNG9-TRLD"
RA3SN(19) = "EB33-NYRY-7VAS-Z7VX-SRLD"
RA3SN(20) = "APNE-5RDX-PTME-8PTA-FRLD"
Randomize
Num = Int((20 * Rnd) + 1)
cdkey = RA3SN(Num)
cdkey = Replace(cdkey,"-","")
Set Sh = CreateObject("WScript.Shell")
Sh.RegDelete "HKLM\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc\"
Sh.RegWrite "HKLM\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc\",cdkey,"REG_SZ"