Arkadaşlar Programı Nete Vereceksiniz Ama Ücretli Programmı Yapmak İstiyorsunuz Bunu yapmak için kullanıcı adı şifre belirlemelisiniz yani aynı serial gibi işte bunun en kolay yolunu size vereceğim
İlk önce böyle bir form oluşturalım
2 label
2 text1
1 command
ekleyin ve kendinize göre forma yerleştirin
Formunuza şifreli koruma yapın
Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
1.Textbox Kullanıcı Adı olacak
2.Textbox da şifre
Private Sub Command1_Click()
If Text1.Text = "Kullanıcı Adı" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "Şifre" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
Not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.
Kırmızı olan kullanıcı adı kısmına kullanıcı adını yazıcaksınız.Kırmızı olan şifre kısmınada şifreyi belirliyceksiniz
'Yukarıda bulunan kodları ne kadar çoğlatırsanız o kadar çok kullanıcı açmış olursunuz
Bir Teşekkür Yeter
İlk önce böyle bir form oluşturalım
2 label
2 text1
1 command
ekleyin ve kendinize göre forma yerleştirin
Formunuza şifreli koruma yapın
Formumuza 2 adet text box 1 adet command ve toplam yerleştiriyoruz.
1.Textbox Kullanıcı Adı olacak
2.Textbox da şifre
Private Sub Command1_Click()
If Text1.Text = "Kullanıcı Adı" Then
Form2.Show
Else
MsgBox "Kullanıcı adı yanlış"
End If
If Text2.Text = "Şifre" Then
Form2.Show
Else
MsgBox "Şifre yanlış"
End If
End Sub
Not=text2 kutusunu seçip propertis ayarlarından passwordchar kısmına * şeklini katın.O zaman şifreniz yıldız şeklinde gözükücektir.
Kırmızı olan kullanıcı adı kısmına kullanıcı adını yazıcaksınız.Kırmızı olan şifre kısmınada şifreyi belirliyceksiniz
'Yukarıda bulunan kodları ne kadar çoğlatırsanız o kadar çok kullanıcı açmış olursunuz
Bir Teşekkür Yeter
Son düzenleme: