Mot de passe Windows et/ou Outlook

Question

Salut à tous !

Grave question qui se pose à moi ...
J'utilise Outlook et un compte mail que j'ai créé il ya des lustres, mais je ne me souviens pas de ce mot de PASSE... J'avais utilisé il y a bien longtemps un petit code source en VB qui affichait , lorsque il y a avait une fenêtre avec un champ "masked edit box" le contenu de ce champ en clair..

Quelqu'un aurait il ça sous la main ???

Merci d'avance, c'est important et... URGENT ;-)

Neo.balastik · Answer

Salut,

Il est possible de faire cela de façon très rapide en VB.  Ce projet demande un Timer ayant son interval initialisé à 100 (ou moins).  Une zone de texte appellée Text1.

Lorsque le formulaire est lancé, déplace ton curseur de la souris sur la zone où il y a une zone de type password.  Dans la zone de texte de ton formulaire, s'inscira le password.

Dans un formulaire, colle ceci:

Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long

Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT_TYPE) As Long

Private Sub Timer1_Timer()
    Dim ppoint As POINT_TYPE
    Dim ttxt As String
    ttxt = Space(100) 'Give space For window text
    errval = GetCursorPos(ppoint) 'Get Cursor Point
    thwnd = WindowFromPoint(ppoint.x, ppoint.y) 'Get window handle of window under cursor
    errval = SendMessage(thwnd, WM_GETTEXT, ByVal TXT_LEN, ByVal ttxt) 'Get text of that window
    ttxt = RTrim(ttxt) 'Remove Spaces
    Text1.Text = ttxt 'Display results
End Sub

Tchao

Néob

Mot de passe Windows et/ou Outlook

1 réponse

Discussions similaires