VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 10561|回复: 19

[原创] 全局拦截并修改输入法输入的模块(源码)

[复制链接]
 楼主| 发表于 2009-2-16 23:01:33 | 显示全部楼层 |阅读模式
本帖最后由 西门吹雪 于 2014-6-29 06:20 编辑

拦截并修改输入法,就是说比如你用智能ABC输入法,输入法文字是“一二三”,但是确认上屏后出来的内容却是“四五六”这样子,此技术大概可以用来做输入法外挂辅助工具之类的吧。除了修改输入法内容,此模块还能够拦截并修改键盘按键消息。
源码下载地址: http://www.pen88.com/download/imehook.rar
模块是一个DLL,用VC++写的,压缩包里有这个DLL的源码。原理就是使用API HOOK拦截输入法的相关函数(ImmGetCompositionString函数,应用程序通过调用这个函数取得输入法输入),以达到截获并修改输入信息的目的。
可以在VB中使用这个DLL,DLL通过自定义消息WM_HXWDLLWX_QQBTX与主程序通信。要在VB里处理自定义消息可能您需要用到子类化技术。
该DLL导出如下函数:
Public Declare Function DLLstartHOOK Lib "hxwdllwx.dll" (ByVal hwnd As Long) As Long
Public Declare Function DLLstopHOOK Lib "hxwdllwx.dll" () As Long
Public Declare Function DLLsetHOOKState Lib "hxwdllwx.dll" (ByVal myState As Boolean) As Long
Public Declare Function DLLGetPubString Lib "hxwdllwx.dll" () As String
Public Declare Function DLLSetPubString Lib "hxwdllwx.dll" (ByVal tmpstr As String) As Long

简单的说下怎么用:
在窗体的Load事件中,你需要注册自定义消息WM_HXWDLLWX_QQBTX,然后调用DLLstartHOOK函数初始化拦截模块,你需要将程序窗口的句柄传递给DLLstartHOOK函数,这样,当用户输入事件发生时,DLL会发送WM_HXWDLLWX_QQBTX消息给该句柄的窗口。该窗口为了能处理自定义消息,需要先子类化。如下所示:
Private Sub Form_Load()
WM_HXWDLLWX_QQBTX = RegisterWindowMessage("WM_HXWDLLWX_QQBTX")  '注册自定义消息
DLLstartHOOK Me.hwnd  '初始化输入法拦截模块
PrevWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubWndProc) '子类化窗口
End Sub

然后就可以调用DLLsetHOOKState函数来设置拦截模块的状态,DLLsetHOOKState True打开拦截,DLLsetHOOKState False关闭拦截。
在打开拦截的情况下,一旦用户发生输入事件,DLL会发送自定义消息WM_HXWDLLWX_QQBTX给主窗口,在主窗口处理WM_HXWDLLWX_QQBTX消息的函数中,可以调用DLLGetPubString函数得到用户的输入。如果需要修改用户的输入,可以调用DLLSetPubString函数重新设置用户的输入,这样就可以修改输入法内容了。如下所示,下面的代码将用户的每一次输入都自动添加字符串“END”,比如用户输入“你好”,出来的是“你好END”。
Public Function SubWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim myConStr As String, tmpStr1 As String, tmpStr2 As String
If Msg = WM_HXWDLLWX_QQBTX Then
   myConStr = DLLGetPubString()
   tmpStr1 = Replace(myConStr, Chr(0), "")
   tmpStr2 = myconver(tmpStr1)
   DLLSetPubString tmpStr2
End If
SubWndProc = CallWindowProc(PrevWndProc, hwnd, Msg, wParam, lParam)
End Function

Function myconver(ByVal s As String) As String
myconver = s & "END"
End Function

最后,程序结束的时候别忘了调用DLLstopHOOK卸载这个API HOOK。
基本上就是这样了,压缩包中给出了完整的示例代码,并且还有一个应用的例子。如果有什么问题,也可以联系我 qq511795070

大家好,下边这段文字,不是作者本人发的,因为找不到作者本人,我暂时也没经作者的同意,便作此修改,如果作者对这个修改有异议的话,可以私聊我:
首先感谢作者的无私分享,最近因为我做一个项目有用到修改输入法方面的代码,因此在论坛上发现了这个代码,但在使用的过程中我发现了一个小BUG,因为作者开源了,因此我去研究和小小修改了一下DLL的源码,解决了这个小BUG,具体的说明,在我下面的回复楼层19楼中,大家可以去看看,也希望用的人也能避免这个小问题,谢谢各位!谢谢这位无私分享的作者。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

评分

参与人数 6威望 +35 金钱 +5 人气 +9 收起 理由
西门吹雪 + 5 + 5 + 5 很给力
JuncoJet + 2 + 1 精品文章
zpy2 + 3 很好
菜鸟学飞 + 10 + 2 精品文章
新林 + 5 + 1 好程序,开源一定要支持!
VBProFan + 10 精品文章

查看全部评分

本帖被以下淘专辑推荐:

发表于 2009-2-16 23:42:36 | 显示全部楼层
好东西,正需要研究这样的东西,谢谢了
回复 支持 反对

使用道具 举报

发表于 2009-2-17 07:59:54 | 显示全部楼层
关键部份还是VC啊
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2009-2-17 08:10:50 | 显示全部楼层
说的也是,VC部分可是很重要很重要的哦
回复 支持 反对

使用道具 举报

发表于 2009-2-17 08:44:21 | 显示全部楼层
很明显 猛料全部在那个hxwdllwx.dll中 其他的仅仅是个外衣而已
回复 支持 反对

使用道具 举报

发表于 2009-2-17 15:53:53 | 显示全部楼层
这个好像是所谓的“火星文输入法”....
N久前就见过这个了....
回复 支持 反对

使用道具 举报

发表于 2009-2-17 16:32:29 | 显示全部楼层
好东西,虽然现在不研究,还是收藏了
回复 支持 反对

使用道具 举报

发表于 2009-2-17 21:32:37 | 显示全部楼层
好程序,开源一定要支持!
回复 支持 反对

使用道具 举报

发表于 2009-2-17 23:23:21 | 显示全部楼层
自由落体在重力作用下会有加速,但碰到地板后有消耗,俺的物理一向比较差,不研究了....
回复 支持 反对

使用道具 举报

发表于 2009-2-18 08:50:33 | 显示全部楼层
支持开源,谢谢兄弟。

[ 本帖最后由 阿杰 于 2009-2-18 09:56 编辑 ]
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:18

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表