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。