Dim Wrap, pAddr
Dim CaptionText, InputData
Const NV_INPUTBOX = &H5000&
Const EM_SETPASSWORDCHAR = &HCC
Set Wrap = CreateObject("DynamicWrapperX")
Set pRef = GetRef("TimerProc")
Wrap.Register "user32.dll", "FindWindowA", "i=ls", "r=l"
Wrap.Register "user32.dll", "FindWindowExA", "i=llsl", "r=l"
Wrap.Register "user32.dll", "SetTimer", "i=llll", "r=l"
Wrap.Register "user32.dll", "KillTimer", "i=ll", "r=l"
Wrap.Register "user32.dll", "SendMessageA", "i=llll", "r=l"
pAddr = Wrap.RegisterCallback(pRef, "i=llll", "r=l")
Function InputBoxEx(strPromt, strCaption)
CaptionText = strCaption
Call Wrap.SetTimer (0, 0, 10, pAddr)
InputData = InputBox(strPromt, strCaption)
InputBoxEx = InputData
End Function
Sub TimerProc(hWnd, uMsg, idEvent, dwTime)
Dim myHwnd
myHwnd = Wrap.FindWindowExA(Wrap.FindWindowA(0, CaptionText), 0, "Edit", 0)
Call Wrap.SendMessageA(myHwnd, EM_SETPASSWORDCHAR, 42, 0)
Call Wrap.KillTimer (0, idEvent)
End Sub
AA = InputBoxEx ("Введите ваш пароль =)", "Ввод данных")
MsgBox AA
Partager