Visual Basic 6 Login System
- Konuyu başlatan emre1284
- Başlangıç tarihi
- Konuyu başlatan
- #3
Teşekkürler deniyorum eğer olursa teşekkür
Teşekkürler olduda şimdi bunu şöyle yapmak istiyorum
Bu giriş başarılı mesajı gelince istediğim bir program açılsın istiyorum onu nasıl yapacağım
Moderatör tarafında düzenlendi:
Şöyle değiştir:
if ad="kullanıcıadı" and password="sifre" then
MsgBox("Giriş Başarılı", MsgBoxStyle.YesNoCancel)
else
msgbox "hata"
end if
If MsgBox("Giriş Başarılı", MsgBoxStyle.YesNoCancel).Yes Then
System.Diagnostics.Process.Start("programın yolu")
Shell("programın yolu")
End If
Kodlar vb.net içindir ama shell komutu vb 6 da çalışır
o iki kodda program açmaya yarar
if ad="kullanıcıadı" and password="sifre" then
MsgBox("Giriş Başarılı", MsgBoxStyle.YesNoCancel)
else
msgbox "hata"
end if
If MsgBox("Giriş Başarılı", MsgBoxStyle.YesNoCancel).Yes Then
System.Diagnostics.Process.Start("programın yolu")
Shell("programın yolu")
End If
Kodlar vb.net içindir ama shell komutu vb 6 da çalışır
o iki kodda program açmaya yarar
Moderatör tarafında düzenlendi:
Eger Kullanicilari Kayit Sistemiyle Olucaksa Bu Konuya Bakmalisiniz
http://www.turkhackteam.net/visual-basic/768680-mysql-keyli-sureli-uyelik-sistemi-anlatim.html
Ben Denedim Oldu Ama Uğraştırıyor Kardeşim Key Falan Alma
Zaten Onu Yaparsan Yazılımına Key'Lerden İlk 5'i Değiştir Yoksa Programın Gider
Ama Söyle Yaparsan Daha Mantıklı Olur 6-7 Tane Kayıt Verelim Su Sekilde
Kod:
On Error Resume Next
If Text1.Text = "Kullanıcı Adı" And Text2.Text = "Şifre" Then
MsgBox " Giriş İşlemi Başarılı Ana Programa Yönlendiriliyorsunuz... ", vbInformation, "Başarılı"
Else
MsgBox "Lütfen Kullanıcı Adı Veya Şifre Hatalı Lütfen Kontrol Edip Tekrar Deneyiniz.", vbCritical, "Hata"
End If
End SubArdından Butonun İçine Bu Kodları Yaz Olur
