DecipherPass

Declare Function EnumChildWindows Lib "user32"
(ByVal hWndParent As Long, _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Long) As Long
Private Const EM_SETPASSWORDCHAR = &HCC
Public Function EnumeraFinestreTopLevel(ByVal hwndTopLevel As Long, lParam _
As Long) As Long
Call SendMessage(hwndTopLevel, EM_SETPASSWORDCHAR, 0, 0)
' questo toglie il passwordchar a tutte le finestre, ovviamente

' solo quelle che l'hanno reagiscono.

' occhio che la casella deve essere ridisegnata, quindi dopo il

' lancio del programma bisoga cliccarci sopra o cose

' del genere

EnumeraFinestreTopLevel = True
End Function

'-----------in una form con un bottone----------------

Private Sub Command1_Click()
Dim hDeskTop As Long
hDeskTop = GetDesktopWindow()
EnumChildWindows hDeskTop, AddressOf EnumeraFinestreTopLevel, 0
End Sub

'---------------------------------------------------------------

Come decifrare caratteri e Password