zulme karşı mukavemet!
Süper Üye
[font='Titillium Web', sans-serif]unutmadan bunu bir kere kullanırsanız programda kullanacağınız butun inputboxlar şifreli olur[/FONT]
[font='Titillium Web', sans-serif]PublicClass Form1[/FONT]
[font='Titillium Web', sans-serif]PrivateDeclareFunction FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName AsString,ByVal lpWindowNameAsString) As Int32[/FONT]
[font='Titillium Web', sans-serif]PrivateDeclareFunction GetWindow Lib "user32" (ByVal hwnd As Int32, ByVal wCmd As Int32) As Int32[/FONT]
[font='Titillium Web', sans-serif]PublicDeclareFunction SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByValwMsg As Int32, ByValwParam As Int32, ByVal lParam As Int32) As Int32[/FONT]
[font='Titillium Web', sans-serif]Dim inputTitle AsString = "Enter the Password!"[/FONT]
[font='Titillium Web', sans-serif]Dim returnedPW AsString[/FONT]
[font='Titillium Web', sans-serif]Const asteriskKeyCode = 42[/FONT]
[font='Titillium Web', sans-serif]PublicConst EM_SETPASSWORDCHAR = &HCC[/FONT]
[font='Titillium Web', sans-serif]PublicConst WM_CREATE = &H1[/FONT]
[font='Titillium Web', sans-serif]Dim windowHandle As Int32[/FONT]
[font='Titillium Web', sans-serif]PublicConst GW_CHILD = 5[/FONT]
[font='Titillium Web', sans-serif]PublicSub setPassword()[/FONT]
[font='Titillium Web', sans-serif]Dim editWindow As Int32[/FONT]
[font='Titillium Web', sans-serif]editWindow = GetWindow(windowHandle, GW_CHILD)[/FONT]
[font='Titillium Web', sans-serif]SendMessage(editWindow, EM_SETPASSWORDCHAR, asteriskKeyCode, 0)[/FONT]
[font='Titillium Web', sans-serif]EndSub[/FONT]
[font='Titillium Web', sans-serif]Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)[/FONT]
[font='Titillium Web', sans-serif]MyBase.WndProc(m)[/FONT]
[font='Titillium Web', sans-serif]If m.Result.ToInt32 = WM_CREATE Then[/FONT]
[font='Titillium Web', sans-serif]windowHandle = FindWindow(vbNullString, inputTitle)[/FONT]
[font='Titillium Web', sans-serif]ElseIf windowHandle > 0 Then[/FONT]
[font='Titillium Web', sans-serif]setPassword()[/FONT]
[font='Titillium Web', sans-serif]windowHandle = 0[/FONT]
[font='Titillium Web', sans-serif]EndIf[/FONT]
[font='Titillium Web', sans-serif]EndSub[/FONT]
[font='Titillium Web', sans-serif]PrivateSub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click[/FONT]
[font='Titillium Web', sans-serif]lblPw.Text = "InputBox Password:"[/FONT]
[font='Titillium Web', sans-serif]returnedPW = InputBox("Enter the Password In the box!", inputTitle, "password!", 0)[/FONT]
[font='Titillium Web', sans-serif]IfNot returnedPW = Nothing AndAlso returnedPW = "password!"Then[/FONT]
[font='Titillium Web', sans-serif]lblPw.Text = "InputBox Password Is: " & returnedPW[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]lblPw.Text = "InputBox Password Is: Wrong!"[/FONT]
[font='Titillium Web', sans-serif]MessageBox.Show("Wrong Password!", " Try Again")[/FONT]
[font='Titillium Web', sans-serif]EndIf[/FONT]
[font='Titillium Web', sans-serif]EndSub[/FONT]
[font='Titillium Web', sans-serif]EndClass[/FONT]