破解

开发平台：
Visual Basic

frmMain.frm：源码内容
							VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "密码查看器"
   ClientHeight    =   3030
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   202
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   370
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox PasswordText 
      Height          =   270
      Left            =   1920
      TabIndex        =   5
      Top             =   2400
      Width           =   3255
   End
   Begin VB.TextBox WndClassText 
      Height          =   270
      Left            =   1920
      TabIndex        =   4
      Top             =   1920
      Width           =   3255
   End
   Begin VB.TextBox hWndText 
      Height          =   270
      Left            =   1920
      TabIndex        =   3
      Top             =   1440
      Width           =   3255
   End
   Begin VB.TextBox PointText 
      Height          =   270
      Left            =   1920
      TabIndex        =   2
      Top             =   960
      Width           =   3255
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   660
      Left            =   1920
      Picture         =   "frmMain.frx":0000
      ScaleHeight     =   600
      ScaleWidth      =   1500
      TabIndex        =   1
      ToolTipText     =   "http://vbboshi.126.com"
      Top             =   120
      Width           =   1560
   End
   Begin VB.CheckBox Check1 
      Caption         =   "总在最上面"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label Label2 
      Caption         =   "请拖动 VB编程乐园 图标到显示 '***' 的密码窗口"
      ForeColor       =   &H00000080&
      Height          =   660
      Left            =   3720
      TabIndex        =   10
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "窗口文本Password："
      Height          =   180
      Index           =   3
      Left            =   240
      TabIndex        =   9
      Top             =   2400
      Width           =   1620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "鼠标所在窗口句柄："
      Height          =   180
      Index           =   2
      Left            =   240
      TabIndex        =   8
      Top             =   1440
      Width           =   1620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "客户坐标值："
      Height          =   180
      Index           =   1
      Left            =   240
      TabIndex        =   7
      Top             =   960
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "获得窗口类型："
      Height          =   180
      Index           =   0
      Left            =   240
      TabIndex        =   6
      Top             =   1920
      Width           =   1260
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim IsDragging As Boolean
Private Sub SetOnTop(ByVal IsOnTop As Integer)
Dim rtn As Long
    If IsOnTop = 1 Then
        '将窗口置于最上面
        rtn = SetWindowPos(frmMain.hwnd, -1, 0, 0, 0, 0, 3)
    Else
        rtn = SetWindowPos(frmMain.hwnd, -2, 0, 0, 0, 0, 3)
    End If
End Sub
Private Sub Check1_Click()
    SetOnTop (Check1.Value)
End Sub
Private Sub Form_Load()
    Check1.Value = 1
    SetOnTop (Check1.Value)
    IsDragging = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = True Then
    Dim rtn As Long, curwnd As Long
    Dim tempstr As String
    Dim strlong As Long
    Dim point As POINTAPI
    point.x = x
    point.y = y
    '将客户坐标转化为屏幕坐标并显示在PointText文本框中
    If ClientToScreen(frmMain.hwnd, point) = 0 Then Exit Sub
    PointText.Text = Str(point.x) + "," + Str(point.y)
    '获得鼠标所在的窗口句柄并显示在hWndText文本框中
    curwnd = WindowFromPoint(point.x, point.y)
    hWndText.Text = Str(curwnd)
    '获得该窗口的类型并显示在WndClassText文本框中
    tempstr = Space(255)
    strlong = Len(tempstr)
    rtn = GetClassName(curwnd, tempstr, strlong)
    If rtn = 0 Then Exit Sub
    tempstr = Trim(tempstr)
    WndClassText.Text = tempstr
    '向该窗口发送一个WM_GETTEXT消息，以获得该窗口的文本，并显示在PasswordText文本框中
    tempstr = Space(255)
    strlong = Len(tempstr)
    rtn = SendMessage(curwnd, WM_GETTEXT, strlong, tempstr)
    tempstr = Trim(tempstr)
    PasswordText.Text = tempstr
End If
    
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = True Then
    Screen.MousePointer = vbDefault
    IsDragging = False
    '释放鼠标消息抓取
    ReleaseCapture
End If
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If IsDragging = False Then
    IsDragging = True
    Screen.MouseIcon = LoadPicture(App.Path + "pass.ico")
    Screen.MousePointer = vbCustom
    '将以后的鼠标输入消息都发送到本程序窗口
    SetCapture (frmMain.hwnd)
End If
   
End Sub

						