Password characters to an InputBox?

[vb6]

Hi , I need to enter a passsword to an InputBox but the char. need to be in password char. Please assist.

Thanks.Happy Hoildays

[nDaKota]

It's not possible to do it in an input box.
Just create a your own input box for that password entry...

[dwadish]

[quote]
the question is not clear.
what do you mean ? is it do you want to pass value through an inputbox. it is possible. get value from inputbox variable and check it with your value"password".
[/QOUTE]

[Killer42]

Hi , I need to enter a passsword to an InputBox but the char. need to be in password char. Please assist.

The InputBox function does not support the "password masking" feature. The textbox control does, by setting the PasswordChar property. If you need it to appear in a popup window like the InputBox, just place your textbox on a separate form and show that.

[jaketrimble]

[html]<input name="mypass" type="password" />[/html]

[niernier]

'PUT BELOW DECLARATIONS IN A .BAS MODULE

Option Explicit
 
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
 
Public Declare Function SetTimer& Lib "user32" _
  (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _
   lpTimerFunc&)
 
Private Declare Function KillTimer& Lib "user32" _
  (ByVal hwnd&, ByVal nIDEvent&)
 
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
 
Const EM_SETPASSWORDCHAR = &HCC
Public Const NV_INPUTBOX As Long = &H5000&
 
 
Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, _
   ByVal idEvent&, ByVal dwTime&)
 
    Dim EditHwnd As Long
 
 
    EditHwnd = FindWindowEx(FindWindow("#32770", App.Title), _
       0, "Edit", "")
 
    Call SendMessage(EditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
    KillTimer hwnd, idEvent
End Sub
 
 
 
 
 
 
 
`TO USE THE CODE WITHIN A FORM, USE THE MAGIC CODE
`SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
 

<example:>
SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
pass = InputBox("Enter Password")


REMEMBER TO ALWAYS PUT THE MAGIC CODE BEFORE CALLING THE INPUTBOX FUNCTION.

[Killer42]

Thanks for that, niernier.

I haven't tried it out, but it looks like quite a neat solution to the problem.

[niernier]

It's been my problem before so i just want to share how it was solved. It's been a year though before I posted an answer to the question. I am new here, so that explains it. And thank you for adding code tags! haha i forgot the tags. Anyway, is there a forum here for the Assembly language?I have a question to ask also . . .

[Killer42]

It's been my problem before so i just want to share how it was solved. It's been a year though before I posted an answer to the question. I am new here, so that explains it. And thank you for adding code tags! haha i forgot the tags. Anyway, is there a forum here for the Assembly language?I have a question to ask also . . .

No, we don't have an Assembly forum. But you could try the Miscellaneous Questions forum, or the Software Development one.

[mafaisal]

Hello,

Thanx niernier
I am also searching For It
Thanx For ur Posting

Faisal

'PUT BELOW DECLARATIONS IN A .BAS MODULE ...