IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Parola korumalı bi proje yapacaksanız işinize yarayabilir düşüncesiyle can sıkıntısından yazdığım bir kod.

Kod:

'Yazar: CanCeL

'Visual basic şifreli form

 

Private Sub Form_Load()

Dim parola As String 'Form içerisinde atanmış String değeri belirtiyoruz

Me.Hide 'Form1'i gizle

parola = InputBox("Lütfen güvenlik parolasını giriniz.", "Güvenlik Anahtarı") 'Parola isteme ekranı (InputBox)

If parola = ("123456") Then 'Parola bölümü

Form2.Show 'Parola doğru ise yapılacak işlem

Else 'yada

MsgBox ("Hatalı Parola girdiniz.") 'yanlış ise hata ver 

End If 'yada bitir.

 

End Sub