精彩编程与编程技巧-如何在VB中实现密码的读取...

如何在VB中实现密码的读取 



　　前段时间在网上流行一个能从用“＊”加密的文本框中读取密码的软件，本人也曾很好奇它是如何实现密码的读取。经过一段时间的探索，终于弄清楚其基本的原理，下面就让我们用VB来实现。
　　首先，建立一个标准EXE工程，窗体名称为Mainfrm，并将ScaleMode设为3－Pixel。在窗体上放置四个Label控件和四个名称依次为PointText、hWndText、WndClassText和PasswordText的TextBox控件，再放置一个名称为Check1,Caption属性为 “总在最上面”的CheckBox控件和一个名称为Picture1的PictureBox控件。整个窗口的布局如图所示。为了程序外观的美化，在Picture1中放置一幅合适的图片，并制作一个相应的光标，将光标文件命名为Cursor1.cur并存在源程序所在的目录下。
　　其次，新建一个类模块，在其中输入如下内容：
　　Option Explicit
　　Declare Function SetWindowPos＆ Lib“user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
　　Declare Function SetCapture Lib “user32" (ByVal hwnd As Long) As Long Declare Function ReleaseCapture Lib “user32" () As Long
　　Declare Function ClientToScreen Lib “user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Declare Function WindowFromPoint Lib “user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Declare Function GetClassName Lib “user32" Alias “GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Declare Function GetLastError Lib “kernel32" () As Long Declare Function SendMessage Lib “user32" Alias “SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
　　Public Const WM_GETTEXT = ＆HD
　　Type POINTAPI
　　x As Long
　　y As Long
　　End Type
　　注意函数SendMessage的声明中最后一个变量并不是如API浏览器所提供的lParam As Any，而是ByVal lParam As String或Byval lParam As Any，否则你的程序会毫无疑问地崩溃。
　　最后，键入主程序原代码如下：
　　Dim IsDragging As Boolean '是否处在拖动读取状态
　　Private Sub SetOnTop(ByVal IsOnTop As Integer)
　　Dim rtn As Long
　　If IsOnTop = 1 Then
　　rtn = SetWindowPos(Mainfrm.hwnd, －1, 0, 0, 0, 0, 3) '将窗口置于最上面
　　Else
　　rtn = SetWindowPos(Mainfrm.hwnd, －2, 0, 0, 0, 0, 3)
　　End If
　　End Sub
　　Private Sub Check1_Click()
　　SetOnTop (Check1.Value)
　　End Sub