使用Setwindowlong和Callwindowproc这两个Api函数[转的]
- 博客分类:
- 技术杂绘
使用Setwindowlong和Callwindowproc这两个Api函数[转的]
2011年12月01日
近来在设计一个热键设置程序中我学会了使用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
在模块中加入消息处理函数:
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所示,调出来一个查"*"的程序查查看,当你不选“使用密码保护”的时候文本框的内容会被得到。选中后再试试,怎么样,是不是什么也得不到,然后在选中“使用密码欺骗"试一下得到的是什么 :)。
密码最终会被破解。记住是“最终”(如果你的密码够长,谁知道是多少年以后)
本程序在:VB6.0 Windows me 下调试通过
如有不懂得地方或讨论问题可以给我发邮件:ppgg2002@sina.com
QQ:55051552
发表评论
-
使用 CMake 进行跨平台软件开发
2012-01-20 09:42 1009使用 CMake 进行跨平台软 ... -
IronPython:交互式解释器与常用函数
2012-01-20 09:42 798IronPython:交互式解释器 ... -
Boost在VS2008下的正确编译
2012-01-20 09:42 1073Boost在VS2008下的正确编译 2010年11月28日 ... -
Win32平台下编译SVN源码全过程
2012-01-20 09:42 1177Win32平台下编译SVN源码 ... -
《Qt for Symbian》翻译系列之六:第一章 简介与写作初衷
2012-01-20 09:42 871《Qt for Symbian》翻译系列之六:第一章 简介与写 ... -
激励口号
2012-01-19 14:47 660激励口号 2011年02月16日 ... -
团队精神训练团队口号精神口号团队心声营销口号知道口碑营销
2012-01-19 14:47 1350团队精神训练团队口号 ... -
团队口号_激励口号_口号大全分享到:
2012-01-19 14:47 1181团队口号_激励口号_口 ... -
团队口号|营销团队励志口号大全
2012-01-19 14:46 2837团队口号|营销团队励志口号大全 2011年09月09日 ... -
销售口号
2012-01-19 14:46 846销售口号 2010年11月12日 团队精神训练团队口号精 ... -
VB中实现系统托盘图标实例
2012-01-17 04:31 619VB中实现系统托盘图标实例 2011年04月19日 新建 ... -
SubClassWindow,SubClassDlgItem
2012-01-17 04:31 668SubClassWindow,SubClassDlgItem ... -
钩子程序解释说明都要注意小心钩子哦
2012-01-17 04:31 752钩子程序解释说明都要 ... -
windows消息机制
2012-01-17 04:31 608windows消息机制 2011年04月21日 一 W ... -
(转载)温州人生意经
2012-01-16 03:21 539(转载)温州人生意经 2010年05月03日 温州人生意 ... -
温州人生意经
2012-01-16 03:21 581温州人生意经 2010年07月04日 “有市场的地方就有 ...
相关推荐
使用SetWindowLong改变窗口的缺省窗口处理函数,从而建立可以显示不同颜色列表的程序(3KB)
CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台 CreateFileMapping 创建一个新的文件映射对象 ...
SetWindowLong的功能与基本运用
易语言API插拔U盘源码,API插拔U盘,MsgProc,检测,SetWindowLong,CallWindowProc,复制结构体
快扔掉它吧,用这个雪冰灵制作的小工具吧,它不但具有API浏览器的功能,而且几乎每个函数都配上了说明和示例。Cool!中文 EXE格式(823KB) 33,vbapi.zip 中文 TXT格式 (26KB) 34,api008.zip 本帮助文件中的Windows ...
易语言API全局热键源码,API全局热键,处理,API_CallWindowProc,API_GetWindowLong,API_RegisterHotKey,API_SetWindowLong,API_UnregisterHotKey
用API函数编写的菜单,用到了GetSystemMenu,SetWindowLong,CallWindowProc,GetMenu,GetSubMenu等常用函数
api setwindowlong函数在vb2005中的演示代码,给你个小小的参考。
VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口...
易语言超级列表框API选中源码,超级列表框API选中,处理,select,API_CallWindowProc,API_SetWindowLong,API_SendMessage,API_SendMessage_LVITEM,API_SendMessage_NMHDR,API_GetDlgCtrlID,API_LocalSize_NMLISTVIEW,...
易语言API创建查看进程窗口源码,API创建查看进程窗口,Load,创建控件,列表消息处理,按钮消息处理,枚举进程,conv,Win,WindProc,WinMov,GetModuleHandle,CreateWindowEx,SetWindowLong,CallWindowProc,RegisterClass,...
处理,API_CallWindowProc,API_GetWindowLong,API_RegisterHotKey,API_SetWindowLong,API_UnregisterHotKey
屏蔽控件右键,截获鼠标动作,SetWindowLong,CallWindowProc,GetWindowRect
SetWindowLong GetWindowLong CallWindowProc GWL_WNDPROC
易语言捕获窗口事件源码,捕获窗口事件,开始拦截,停止拦截,回调函数,API_RegisterWindowMessage,API_RegisterShellHookWindow,API_SetWindowLong,API_CallWindowProc,API_DeregisterShellHookWindow,API_...
易语言监视窗口创建源码,监视窗口创建,开始拦截,停止拦截,回调函数,API_RegisterWindowMessage,API_RegisterShellHookWindow,API_SetWindowLong,API_CallWindowProc,API_DeregisterShellHookWindow,API_...
OnMenu,CreateActiveMenu,FullAllSubMenu,API_添加菜单项1,API_创建空白菜单,API_创建空白弹出式菜单,API_重画菜单,API_取菜单,API_取条目数量,API_取子菜单句柄,API_SetMenu,API_SetWindowLong,API_CallWindowProc
易语言API创建菜单源码,API创建菜单,OnMenu,CreateActiveMenu,FullAllSubMenu,API_添加菜单项1,API_创建空白菜单,API_创建空白弹出式菜单,API_重画菜单,API_取菜单,API_取条目数量,...SetWindowLong,API_CallWindowProc
易语言限制窗口最大范围源码,限制窗口最大范围,SubClass1_WndMessage,API_SetWindowLong,API_CallWindowProc,API_CopyMemory,API_CopyMemory1,API_取得窗口信息,API_LocalSize
易语言U盘锁源码,U盘锁,MsgProc,取磁盘卷序列号,窗口透明度,SetWindowLong,CallWindowProc,复制结构体,API_设置窗口信息,API_透明窗口,GetVolumeInformationA