Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Register ile Şifreleme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Form Taşımanın En Basit Yolu

Yazar: Fatih_dp
Form Taşımada Son Nokta.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 1625
Yayın Tar:26.12.2004
Yazar : asmin80
Hit :4443

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

'**************************
' FATİH UYDURAN '*
'fatihuyduran@hotmail.com'*
'**************************

'Program içIn gerekli olanlar.
'1 MDI Form şifre değişikligi formu içIn menü
'Form1 Üzerine 2 tane Text 2 tanede command buton koyun
'form2 2 tane frame üzerlerine 2 tane Text ve command koyun
'Frameleri üst üste koyun eski şifre yi dogrulamadan şifre değişikliğine
'izin vermemek içIn. Bu kısmı kendi zevkinize görede tasarlayabilirsiniz.
'Not:form1 dışında ki yüm formların MDIChilt'ını True yapın.(form1 hariç)

Çalışmalrınızda başarılar....


'MDI Form<---------------
Private Sub about_Click()
Form3.Show
End Sub
Private Sub şifre_degis_Click()
Form2.Show
End Sub

'Form1 (Şifre Giriş Formu)<----------------

Private Sub Command1_Click()

If (Text1.Text = tkadi) And (Text2.Text = tsifre) Then
    MDIForm1.Enabled = True
    cevap = MsgBox(Text1.Text & " " & "Programa Hoşgeldiniz", vbInformation, "Hoşgeldiniz...")
MDIForm1.Show
    Unload Me
Else
    cevap = MsgBox("Şifre yada Kulanıcı Adı Yanlış", vbExclamation, "HATA")
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    i = i + 1
End If
If i = 3 Then
        MsgBox "Hakkınız Doldu Program Kapatılacak", vbExclamation, "UYARI"
    End
End If

End Sub


Private Sub Command2_Click()
    End
End Sub

'Forn2(Şifre Değişikligi)<------------------

Dim tkadi, tsifre
Private Sub Command1_Click()
If (Text1.Text = tkadi) And (Text2.Text = tsifre) Then
    Frame2.Visible = True
    Frame1.Visible = False
Else
    MsgBox "Şifre yada kulanıcı adı yanlış", vbInformation, "UYARI"
End If
    Text3.Text = Text1.Text

End Sub

Private Sub Command2_Click()
Dim c As Integer
    c = MsgBox("Şifreyi Değiştirmek İstediğinizden Emin misiniz?", vbYesNo + vbQuestion, "Değişimi Onayla")
If c = 6 Then
    SaveSetting "Benim Key", "keyler", "kuladı", Text3.Text
    SaveSetting "Benim Key", "keyler", "sifrele", Text4.Text

        Text3.Text = ""
        Text4.Text = ""
Else
        Text3.Text = ""
        Text4.Text = ""
End If

End Sub

Private Sub Form_Deactivate()
    Unload Me
End Sub

Private Sub Form_Load()

    tkadi = GetSetting("Benim Key", "keyler", "kuladı", tkadi)
    tsifre = GetSetting("Benim Key", "keyler", "sifrele", tsifre)
Frame2.Visible = False

End Sub
'İyi Çalışmalar...





Yorumlar, eklemeler ve düşünceler
        Arkdaşlar çok önceleri yazdığım ve yayımladığım bu şifreleme örneginde küçük bi eksiklik var. Program ilk çalıştıgında verilmesi gereken kullanıcı adı ve şifre ki bu program tarafından kullanıcı değiştirmek üzere otomatik olarak verilir. İşte bu kısım eksik. Bir uyarı üzerine ilk defa dikkatimi çekti. Bendeki orjinal örnekde mevcut ama buraya eklerken bi karışıklık olmuş. İlgilenip de hata ile karşılaşan tüm arkdaşlardan özür diliyorum. Çok yakında tam örnegi proje ile birlikte burda yayımlıyorum...
Sayğılarımla...
Fatih UYDURAN


   asmin80, 25.07.2005 20:47
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin