请问 inputbox 内容加密！！！

[lym616]

请问我在inputbox 界面里面写入123456，怎么让123456变成是密码的形式，即******
谢谢！！！！！！！！！
急！！！

[hpygzhx520]

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private hHook As Long

Private Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode = HCBT_ACTIVATE Then
Dim hEdit As Long
hEdit = FindWindowEx(wParam, 0, "Edit", vbNullString)
SendMessage hEdit, EM_SETPASSWORDCHAR, Asc("*"), ByVal 0&
UnhookWindowsHookEx hHook
End If
End Function

Public Function MyInputBox(prompt As String, Optional title As String, Optional default As String) As String
hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, App.hInstance, App.ThreadID)
MyInputBox = InputBox(prompt, title, default)
End Function

[cbm6666]

怎么又发了一个帖, 回去看这个帖吧

http://topic.csdn.net/u/20080330/15/152ae9b0-bf20-4553-ae87-e94a69be27c7.html

[junki]

系统本身的没有办法，你可以自己做一个界面，实现类似输入框的功能

[craylin42]

我也不知道,等待高手解答

[knowledge_Is_Life]

好像没那么简单,呵呵.