Inputbox nhập ... Password

[QuangHoa]

Thủ thuật: Nhập Password bằng Inputbox
Tác giả: Võ Quang Hòa Sưu tầm
Mô tả: Nhập Password bằng Inputbox

---

Thêm vào trong một Module

Mã: Chọn hết

1. Private Declare Function FindWindow Lib "user32" Alias _
2.    "FindWindowA" (ByVal lpClassName As String, _
3.    ByVal lpWindowName As String) As Long
4.  
5. Private Declare Function FindWindowEx Lib "user32" Alias _
6.   "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
7.    ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
8.    
9. Public Declare Function SetTimer& Lib "user32" _
10.   (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
11.    lpTimerFunc&)
12.  
13. Private Declare Function KillTimer& Lib "user32" _
14.   (ByVal hwnd&, ByVal nIDEvent&)
15.  
16. Private Declare Function SendMessage Lib "user32" Alias _
17.     "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
18.     ByVal wParam As Long, lParam As Any) As Long
19.  
20. Const EM_SETPASSWORDCHAR = &HCC
21. Public Const NV_INPUTBOX As Long = &H5000&
22.  
23. Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, _
24.    ByVal idEvent&, ByVal dwTime&)
25.  
26.     Dim EditHwnd As Long
27.  
28. ' CHANGE APP.TITLE TO YOUR INPUT BOX TITLE.
29.  
30.     EditHwnd = FindWindowEx(FindWindow("#32770", App.Title), _
31.        0, "Edit", "")
32.  
33.     Call SendMessage(EditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
34.     KillTimer hwnd, idEvent
35. End Sub
36.  

Và sử dụng trong Form(thêm vào nột Command nhé)

Mã: Chọn hết

1.  
2. Private Sub Command1_Click()
3.   Dim ret As String
4.   SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
5.   ret = InputBox("Enter Password")
6. End Sub
7.  

[mr_chuon]

Có ai thử làm cách này chưa ???

[NTN]

Cách bạn ấy phức tạp quá như Code dưới đây thì sẽ nhẹ hơn !

Mã: Chọn hết

Private Sub Command1_Click()
Dim pass As String
pass = InputBox("Nhap mat khau de dang nhap !", "Login")
If pass = "admin" Then
MsgBox "Login thành công !", vbInformation, "Login"
Form2.Show
ElseIf pass = "" Then
MsgBox "Chua nhap Pass !", vbInformation, "Login"
Else
MsgBox "Pass không dung !", vbInformation, "Login"
End If
End Sub


[baohiep]

code của ntn ko có bảo mật

[baohiep]

code của quanghoa khi nhập vào sẽ hiện toàn kí tự * còn của bạn thì nó hiện hết cái password rồi còn gì an toàn nữa. bạn chưa thử code của quanghoa mà lại tự nhận là code của mình hay hơn

[tungblt]

chưa thử code của người khác mà nói lung tung.. code người ta nhà hiện kí tự ****** khi nhập vào inputbox

[NTN]

Tại thấy code dài quá có cách nào gôm gọn nó lại không ?