C'est un générateur de clé qui peut se mettre en français, en espagnol ou en anglais.
Cette source permet au débutant de gérer la fonction case.
C'est un générateur de clé basique...
Source / Exemple :
Private Sub Command1_Click()
'Permet de générer un nombre aléatoirement
For n = 1 To 41
Randomize
nbrnd = Int((1 * Rnd) * n)
Next n
'à partir du nombre généré, on va définir la clé à afficher
Select Case nbrnd
Case 1
Text1 = "RHKG3-8YW4W-4RHJG-83M4Y-7X9GW"
Case 2
Text1 = "QW4HD-DQCRG-HM64M-6GJRK-8K83T"
Case 3
Text1 = "PQTHM-RWBHR-3BPVW-TFB22-V8HXQ"
Case 4
Text1 = "KQC2B-X683R-2CDXT-PQ7HQ-47MPT"
Case 5
Text1 = "JFQYM-YJQFQ-VBRCY-4VV7W-QRXBY"
Case 6
Text1 = "KMTTB-68H32-8MKRK-GBHKT-RKCP6"
Case 7
Text1 = "CX7DD-4GX4Y-BTTR4-H88Y7-GQPWQ"
Case 8
Text1 = "XP8BF-F8HPF-PY6BX-K24PJ-TWT6M"
Case 9
Text1 = "8RCKG-36TH8-VWBGK-T3CB6-RHG48"
Case 10
Text1 = "7G4H4-T4XXW-BVXTH-4QP4V-9CV28"
Case 11
Text1 = "PG274-383QX-6C32H-P8RWC-48M4Q"
Case 12
Text1 = "CWY3F-JGYHJ-W6KBG-3VYK7-DGG7M"
Case 13
Text1 = "X6YWJ-M4TG2-DPGWJ-QCFR8-927M6"
Case 14
Text1 = "QCP6D-7VGVJ-JBKB4-DQMB2-9GTJ3"
Case 15
Text1 = "F7GV4-B7JGY-Q2KQW-6R8BM-FR8D6"
Case 16
Text1 = "HFVK4-TFWFG-4JKDH-H3FTT-8B23W"
Case 17
Text1 = "HRPR7-WGJFC-VPHRB-XVFRW-2KPWY"
Case 18
Text1 = "V3V63-3QW2G-JMFBY-8F4CM-PDMQW"
Case 19
Text1 = "WX736-8YJCM-2JW33-4KJGY-XCDJ6"
Case 20
Text1 = "CQKYH-GKDJC-MJTWP-FPTJX-PKK23"
Case 21
Text1 = "CHYVW-V63RT-67XVC-XJ4VC-M3YWD"
Case 22
Text1 = "XMDCV-2TJMR-7JD66-YTVMK-V7PBD"
Case 23
Text1 = "RQHFJ-X47QJ-G2XKK-WYQ8P-7W6RG"
Case 24
Text1 = "X6MYY-6BH3T-YRBT8-H8YPH-RG68T"
Case 25
Text1 = "KVXQ3-RVQFG-FW8KC-2QYC6-67WCD"
Case 26
Text1 = "KMM7J-FCXMM-WV8PG-6FQMD-CPTQD"
Case 27
Text1 = "D6T24-3FBGM-WTDG8-6Y3WP-77QRJ"
Case 28
Text1 = "V88FQ-MFFRR-8D2VY-PG87J-FG7PY"
Case 29
Text1 = "XK39D-3PDMC-JMMDK-X8T8M-77YVM"
Case 30
Text1 = "6G3J7-RQ233-FJGHD-GKYP4-QGKPG"
Case 31
Text1 = "BKRFY-XPMQP-Y8PTW-BP6JM-B76FJ"
Case 32
Text1 = "GP7DR-2T2CQ-JYW2M-DXTMG-DTQWY"
Case 33
Text1 = "YWVHF-GT3M6-3QYB2-FCYCH-X47PQ"
Case 34
Text1 = "QJ68H-G7T8R-WFR77-D8X8Y-VJ398"
Case 35
Text1 = "6KYDY-JT4MB-6V3JQ-4KKFG-P6C63"
Case 36
Text1 = "6JQPJ-84CFG-JCBQP-PVRJP-9G24Q"
Case 37
Text1 = "MQ8JV-XXKVG-DB8V3-67WJB-RCB6W"
Case 38
Text1 = "J3T66-JTP72-TGT7H-PMMWH-XM4K3"
Case 39
Text1 = "DB4H8-DQJJB-KXMWP-GPJVY-H7P6W"
Case 40
Text1 = "38BXC-F2C4R-PXMXV-DBQXM-3C7V6"
Case 41
Text1 = "7FMM3-W4FMP-4WRXX-BKDRT-7HG48"
Case Else
'Si le nombre n'est pas compri entre 1 et 41,
'On régénère le nombre
For n = 1 To 41
Randomize
nbrnd = Int((1 * Rnd) * n)
Next n
End Select
'Si le nombre dépasse 41,
'On régénère ce nombre
If nbrnd > 41 Then
For n = 1 To 41
Randomize
nbrnd = Int((1 * Rnd) * n)
Next n
End If
'Si le nombre est inférieur à 41,
'On régénère ce nombre
If nbrnd < 1 Then
For n = 1 To 41
Randomize
nbrnd = Int((1 * Rnd) * n)
Next n
End If
End Sub
Private Sub Command2_Click()
'Pour quitter
End
End Sub
Private Sub Command3_Click()
'Pour copier la clé
Clipboard.SetText (Text1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Pour bien fermer l'application
End
End Sub
Private Sub Picture2_Click()
'Retour à la feuille de présentation
Me.Hide
Form2.Show
End Sub
Conclusion :
Voilà, c'est aussi simple que ça...
N'essayez tout de même pas de chercher ce que ces clés permettent d'activer...
Ceci n'est qu'un exemple, ce ne doit en aucun cas être pris au sérieux...
Merci et bonne prog ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.