§Þîrî'][' §qÚåÐ FoRuM 2oo7
Numele forumului cat si aceasta descriere pot fi modificate accesind meniul ADMIN -> OPTIUNI
|
Nou pe simpatie:
Ioanacatalina 25 ani
 | Femeie
25 ani
Salaj
cauta Barbat
25 - 61 ani |
|
|
§Þîrî'][' §qÚåÐ FoRuM 2oo7InregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
hai sa facem un keygen
Intram in visual basic - standard exe
Adaugam un textbox pe kre nu il redenumim il lasam asa apoi un command button nici pe asta nu il mai redenumim ca nu avem dc .. asea... ce mai e de facut ..aa codu da ..
Adaugam sub
Private Sub Command1_Click()
Dim length As Integer
Dim ne As Integer
Dim b As String
Dim ran As Integer
Dim addin As String
ran = Int(Rnd * 9) + 1
Text1.Text = ""
If ran = 1 Then
addin = "Key1"
Text1.Text = addin
End If
If ran = 2 Then
addin = "key2"
Text1.Text = addin
End If
If ran = 3 Then
addin = "key3"
Text1.Text = addin
End If
If ran = 4 Then
addin = "key4"
Text1.Text = addin
End If
If ran = 5 Then
addin = "key5"
Text1.Text = addin
End If
If ran = 6 Then
addin = "key6"
Text1.Text = addin
End If
If ran = 7 Then
addin = "key7"
Text1.Text = addin
End If
If ran = 8 Then
addin = "key8"
Text1.Text = addin
End If
If ran = 9 Then
addin = "key9"
Text1.Text = addin
End If
End Sub
|
|
| |
|
