教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Public Function wnd(ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, ByVal lp As Long) As Long
  ' hwnd 接收消息的控件,这里是Text1，msg消息类型,wp和lp为附加参数参数
If Msg = WM_GetText Then'判断是否是我们要的消息
  If Form1.Check2.Value = 1 Then'是否进行欺骗
   hwnd = Form1.Check2.hwnd
   '更改接收消息的对象这里我们改成Check2,那么得到的就是check2的Caption值，给那些盗密码者一点教训，让他们回去试密码吧:)
  Else
   Exit Function'不做任何处理，直接返回
End If
End If
wnd = CallWindowProc(Oldproc, hwnd, Msg, wp, lp)'如果不是我们要的消息则传递下去
End Function
到此程序就结束了，运行结果如图1所示，调出来一个查"*"的程序查查看，当你不选“使用密码保护”的时候文本框的内容会被得到。选中后再试试，怎么样，是不是什么也得不到，然后在选中“使用密码欺骗"试一下得到的是什么 ：）。
密码最终会被破解。记住是“最终”（如果你的密码够长，谁知道是多少年以后）