Y KE HAY DE LOS KEYGENS KE A TODOS NOS GUSTAN CON SU MUSIQUILLA Y TAL, YO NO SE COMO HACERLOS,PERO ME GUSTARIA APRENDER.
DE MOMENTO LO UNICO QUE TENGO ES UN CÓDIGO FUENTE PARA CREAR UNO,Y NO SE POR QÉ K NO VA:
Private Sub Command1_Click()
sel = Int(Rnd() * 10)
Select Case sel
Case 0
Text1.Text = ""
Case 1
Text1.Text = "4C80-5059-8003-0000-8234-0670-4343"
Case 2
Text1.Text = "1C80-4038-8001-0000-8902-8684-9339"
Case 3
Text1.Text = "5C80-3059-8009-0000-8121-6363-2988"
Case 4
Text1.Text = "4C80-4012-8109-0000-8859-4211-3434"
Case 5
Text1.Text = "4C80-0075-8100-0000-8044-5168-1903"
Case 6
Text1.Text = "1C80-2098-8103-0000-8106-0125-9997"
Case 7
Text1.Text = "5C80-0089-8005-0000-8784-1630-8922"
Case 8
Text1.Text = "1C80-0094-8007-0000-8220-1040-3064"
Case 9
Text1.Text = "4C80-1069-8005-0000-8186-0168-6593"
End Select
End Sub
POR FAVOR RESPONDEDME: xxxxxxxxxxxx
busca tu serial
todo serials
Marcadores