Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEffectivement, dans le cas où l'acheteur légal est de mèche avec le tricheur
If My.Computer.Registry.ClassesRoot.OpenSubKey("HKEY_CURRENT_USER\Test\ValeurTest\Maclé") Is Nothing Then MsgBox("Cette clé n'existe pas !") Else MsgBox("Cette clé existe") End If
j'ai réussi à créer un clé Registre "Crypté"Montre donc ce code là.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Randomize() Dim a As String a = CInt(Rnd() * 1000000000) a = a - 85 a = 3 * a a = "Z" & a Label1.Text = a End Sub
a -= 85
a *= 3