Visual Basic Güvenlik Sistemi Yapımı


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: x60    51 Yorum    1596 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 12.01.2016, 00:29:21 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:545 Konuları:161 Kayıt Tarihi:18.11.2015

Bugün size Visual Basic'te InputBox kullanarak güvenlik sistemi yapmayı göstereceğim.


Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.

Sonra şu kodları yazıyoruz:


Kod 

[hide]

Kod:
1
2
3
4
5
6
7
8
9
10
Sub security(password As String)
        Dim d = InputBox("Parolanızı giriniz", "Güvenlik Sistemi")
        If d <> password Then
            MsgBox("Yanlış parola", MsgBoxStyle.Critical, "Hata")
            security(password)
        ElseIf d = password Then
            MsgBox("Başarıyla giriş yapıldı", MsgBoxStyle.Information, "Başarılı")
            Me.Close()
        End If
    End Sub 


En son formun Load koduna şunu yazın ve tamamdır:



Kod:

security("buraya şifrenizi yazın")



[/hide]

Şimdi çalıştıralım.


Çalıştırdığınızda çalıştığını göreceksiniz.

Coder x60


Paylaşım Tarihi: 12.01.2016, 00:29:48 #2
Chronic #Unknown
******
Süper Moderator
Status: Çevrimdışı Yorumları:1,066 Konuları:36 Kayıt Tarihi:13.12.2015 Rep Puanı: 1,022

İnceleyelim bakalım.

Kullanıcı İmzası
Resim http://i.hizliresim.com/g2b2a2.png

Paylaşım Tarihi: 12.01.2016, 00:53:37 #3
ErdemMH .
Süper Üye
Status: Çevrimdışı Yorumları:650 Konuları:123 Kayıt Tarihi:10.12.2015 Rep Puanı: 224

İnceleme

Kullanıcı İmzası
Resim http://49.media.tumblr.com/a410c087590891fc6b1a319ada18acba/tumblr_mwh8fc9NX81s0twoeo1_r3_400.gif

Resim http://i.hizliresim.com/L15Y7b.jpg

Paylaşım Tarihi: 12.01.2016, 19:56:11 #4
#Hakan Çömez
Kayıtlı Üye
Status: Çevrimdışı Yorumları:5 Konuları:1 Kayıt Tarihi:02.01.2016 Rep Puanı: -1

tytytytyty

Paylaşım Tarihi: 14.01.2016, 22:04:02 #5
azat55 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:17 Konuları:1 Kayıt Tarihi:05.01.2016 Rep Puanı: 0

eyw sagol

Paylaşım Tarihi: 25.01.2016, 17:31:02 #6
xPLaySLayer Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:69 Konuları:9 Kayıt Tarihi:14.01.2016 Rep Puanı: 2

eyv,
 yararlı

Paylaşım Tarihi: 25.01.2016, 17:31:02 #7
xPLaySLayer Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:69 Konuları:9 Kayıt Tarihi:14.01.2016 Rep Puanı: 2

eyv,
 yararlı

Paylaşım Tarihi: 25.01.2016, 17:55:04 #8
mw5ghost Delikanlı
Kayıtlı Üye
Status: Çevrimdışı Yorumları:56 Konuları:0 Kayıt Tarihi:09.01.2016 Rep Puanı: 0

bakalim :d










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi