İnputbox ta Password Karakteri Kulanma


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

Yazar: ByClxon    1 Yorum    101 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 12.05.2016, 18:23:46 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

unutmadan bunu bir kere kullanırsanız programda kullanacağınız butun inputboxlar şifreli olur

PublicClass Form1

PrivateDeclareFunction FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName AsString,ByVal lpWindowNameAsStringAs Int32
PrivateDeclareFunction GetWindow Lib "user32" (ByVal hwnd As Int32, ByVal wCmd As Int32) As Int32
PublicDeclareFunction SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByValwMsg As Int32, ByValwParam As Int32, ByVal lParam As Int32) As Int32

Dim inputTitle AsString = "Enter the Password!"
Dim returnedPW AsString
Const asteriskKeyCode = 42
PublicConst EM_SETPASSWORDCHAR = &HCC
PublicConst WM_CREATE = &H1
Dim windowHandle As Int32
PublicConst GW_CHILD = 5

PublicSub setPassword()
Dim editWindow As Int32
editWindow = GetWindow(windowHandle, GW_CHILD)
SendMessage(editWindow, EM_SETPASSWORDCHAR, asteriskKeyCode, 0)
EndSub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If m.Result.ToInt32 = WM_CREATE Then
windowHandle = FindWindow(vbNullString, inputTitle)
ElseIf windowHandle > 0 Then
setPassword()
windowHandle = 0
EndIf
EndSub

PrivateSub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
lblPw.Text = "InputBox Password:"
returnedPW = InputBox("Enter the Password In the box!", inputTitle, "password!", 0)
IfNot returnedPW = Nothing AndAlso returnedPW = "password!"Then
lblPw.Text = "InputBox Password Is: " & returnedPW
Else
lblPw.Text = "InputBox Password Is: Wrong!"
MessageBox.Show("Wrong Password!"" Try Again")
EndIf
EndSub
EndClass

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         

Paylaşım Tarihi: 12.05.2016, 18:27:37 #2
burakmamur Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:24 Konu Sayısı:2 Üyelik Tarihi:22.04.2016 Rep Puanı: -6

Teşekkür ederim kardeşim +1







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

Konuyu görüntüleyenler:
1 Misafir