أرجوا منكم تزويدي بالكود التالي : كشف الرقم السري

السلام عليكم ورحمة الله وبركاته

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
    ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
    Const EM_SETPASSWORDCHAR = &HCC
    Dim coord As POINTAPI
    
    s = GetCursorPos(coord)
    x = coord.x
    y = coord.y
    
    H = WindowFromPoint(x, y)
    
    Dim NewChar As Integer
    NewChar = CLng(0)
    RetVal = SendMessage(H, EM_SETPASSWORDCHAR, ByVal NewChar, 0)
End Sub

كيف أدخله

كيف أستخدمه