近来在设计一个热键设置程序中我学会了使用Setwindowlong和Callwindowproc这两个Api函数，有了它我们就可以处理你的窗口或控件所接收到的任何消息.由于前一段时间我看过一篇介绍QQ密码监视盗取法的文章，使我想到是不是可以用这两个函数来进行密码保护呢，经过一番尝试终于成功了，现在拿出来与大家分享。
几乎所有的监视程序都是通过向你密码的文本框发送一条WM_GETTEXT消息来获取密码的，任何文本框只要接收到此消息它就会老老实实的把自己保存的内容告诉发送消息者（它可不知道它保存的是我们重要的密码呀）， “*”号是不能保护我们的密码的，是不是可以做一个“聪明”一点的文本框呢，其实我们只需拦截此消息不让文本框接受到，任何监视程序也不能得到其中的密码。就是用Setwindowlong和Callwindowproc这两个Api函数来定义一个自己的消息处理函数，然后判断消息类型，如果是WM_GetText消息就排除在外，不处理它（当然了你也可以更换接受消息的对象来欺骗它），这样文本框接收不到这条消息当然就不会泄露秘密了。下面对只作一个简单的介绍：
Setwindowlong函数声明如下：
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
作用：在窗口结构中为指定的窗口设置信息
参数: hwnd 要设置消息函数的窗口句柄（可以是控件）
nIndex 我们用到的是：GWL_WNDPROC 设置窗口或控件的消息处理函数的地址
dwNewLong 消息函数的地址（就是在函数名前加Addressof,如 addressof winproc）
返回值：如果成功返回原来消息处理函数的地址，否则返回0
Callwindowproc函数声明如下：
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
参数: lpPrevWndFunc：指向前一个窗口或控件过程的指针。
hWnd：指向接收消息的窗口或控件过程的句柄。
Msg：指定消息类型。
wParam：指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。
IParam：指定其余的、消息特定的信息。该参数的内容与Msg参数值有关。
返回值：指定了消息处理结果，它与发送的消息有关。
了解了这两个函数我们就可以做一个“聪明”一点的文本框了：
1. 首先打开VB 建立一个工程，添加一个窗体，一个模块
2. 将上面的两个函数的声明加入模块中,再加上两个变量的声明就是
Public Const WM_GETTEXT = &HD'获取文本框内容的消息
Public Const GWL_WNDPROC (-4)'建立一个消息处理函数需要的参数
public OldProc as long'保存旧的消息处理函数的地址
3. 在窗体上建立一个文本框，一个命令按钮，两个检查框修改其属性如下：
控件名称： 属性： 属性值：
文本框 Passwordchar *
名称 text1
命令按钮 名称 command1
caption 真正的密码
检查框1 名称 check1
caption 使用密码保护
检查框1 名称 check2
caption 使用密码欺骗
4. 编写代码（程序很简单）
Form1中加入以下代码：
Private Sub Check1_Click()
If Check1.Value = 1 Then
Oldproc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf wnd)'设置Text1的消息处理函数,Oldproc为原来函数的地址
Else
SetWindowLong Text1.hwnd, GWL_WNDPROC, Oldproc'恢复原来的消息函数地址
check2.value=0 '如果不使用密码保护则不能使用密码欺骗
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
if check1.value=0 then'如果使用密码欺骗必须使用密码保护
Oldproc = SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf wnd)
Check1.Value = 1
end if
End If
End Sub
Private Sub Command1_Click()
MsgBox Text1.Text'真正文本框中的内容
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Text1.hwnd, GWL_WNDPROC, Oldproc'恢复原来的消息处理函数地址
End Sub
在模块中加入消息处理函数：
来源:www.upschool.com.cn
作者:未知
关键字：VB 密码保护
发表日期：2007-2-9 17:13:05
网页显示有限 阅读全文请下载本文完整版WORD文档上一篇：VB 使用API创建窗体 下一篇：
共2页 9 7 [1] [2] 8 :>
