Ejemplos usando el Api de windows para Visual basic

137 - Establecer PassWordChar a un InputBox

Volver al Listado Api - Anterior - Siguiente

Código de ejemplo que permite interceptar un Inputbox, capturando el HWND del cuadro de texto, y modificandole la propiedad del mismo para visualizar el campo como contraseña:

Para poder capturar el Hwnd del cuadro de edición del InputBox, se emplean las funciones FindWindowEx y FindWindow. Este Hwnd luego es usado por la función SendMessageLongRef

El ejemplo también utiliza las funciones api para crear un Timer

vista del Inputbox

Nota: para llamar al InputBox, primero hay que llamar a una sub que le indica el caracter a visualizar:

Call inputbox_Password(Form1, "*")

.. luego inmediatamente después se ejecuta la función InputBox de Visual basic.

Se necesita un Command1, y un módulo bas

Código fuente en un formulario

Option Explicit Private Sub Command1_Click() Dim PassWord As String ' Se le pasa el Hwnd del formulario y el caracter a usar _ como contraseña Call inputbox_Password(Form1, "*") 'Abre el InputBox PassWord = InputBox(" Ingrese el Password ", App.Title) 'Muestra el resultado MsgBox PassWord, vbInformation, " Contraseña " End Sub Private Sub Form_Load() Command1.Caption = " Abrir InputBox " End Sub

Código fuente en un Módulo BAS

Option Explicit ' Declaraciones del Api Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long Private Declare Function SendMessageLongRef Lib "user32" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByRef lParam As Long) As Long Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) 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 Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long Private m_ASC As Long Sub inputbox_Password(El_Form As Form, Caracter As String) m_ASC = Asc(Caracter) Call SetTimer(El_Form.hwnd, &H5000&, 100, AddressOf TimerProc) End Sub Private Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, _ ByVal dwTime As Long) Dim Handle_InputBox As Long 'Captura el handle del textBox del InputBox Handle_InputBox = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "") 'Le establece el PasswordChar Call SendMessageLongRef(Handle_InputBox, &HCC&, m_ASC, 0) 'Finaliza el Timer Call KillTimer(hwnd, idEvent) End Sub

Buscar en Recursos vb