[ame="http://www.youtube.com/watch?v=yyg1v8Xllrs"]YouTube - How to make KeyGen with Visual Basic 6[/ame]
Ja sam snimao taj video...
Ukoliko ne se gleda evo vam kod...
Ja sam snimao taj video...
Ukoliko ne se gleda evo vam kod...
Private Sub Command1_Click()
Dim key As Integer
key = Int(Rnd() * 10)
Select Case key
Case 0
text1.Text = "serial1"
Case 1
text1.Text = "serial2"
Case 2
text1.Text = "serial3"
Case 3
text1.Text = "serial4"
Case 4
text1.Text = "serial5"
Case 5
End Select
End Sub
Poslednja izmena: