小妹急需 有关'delphi 屏幕抓词' 的例子源码我找了几天也没找到.急死了! 大家帮帮我吧 !(100分)

  • 主题发起人 主题发起人 wl7895123
  • 开始时间 开始时间
W

wl7895123

Unregistered / Unconfirmed
GUEST, unregistred user!
[?][purple][/purple]
 
去 www.playicq.com 找《季风词典》的源码
 
这里<br>http://service.lonetear.com/delphi/dispdoc.asp?id=785
 
是女的吗?qq:165440293联系联系啊。
 
这里检索一下,有的
 
<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;鼠标屏幕取词技术的原理和实现 &nbsp; <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 白瑜<br>&nbsp; &nbsp;“鼠标屏幕取词”技术是在电子字典中得到广泛地应用的,如四通利方和金山<br>词霸等软件,这个技术看似简单,其实在windows系统中实现却是非常复杂的,总<br>的来说有两种实现方式:<br>&nbsp; &nbsp; 第一种:采用截获对部分gdi的api调用来实现,如textout,textouta等。<br>&nbsp; &nbsp; 第二种:对每个设备上下文(dc)做一分copy,并跟踪所有修改上下文(dc)的<br>操作。 &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; 第二种方法更强大,但兼容性不好,而第一种方法使用的截获windowsapi的<br>调用,这项技术的强大可能远远超出了您的想象,毫不夸张的说,利用windowsapi<br>拦截技术,你可以改造整个操作系统,事实上很多外挂式windows中文平台就是<br>这么实现的!而这项技术也正是这篇文章的主题。<br>&nbsp; &nbsp; 截windowsapi的调用,具体的说来也可以分为两种方法:<br>&nbsp; &nbsp; 第一种方法通过直接改写winapi 在内存中的映像,嵌入汇编代码,使之被<br>调用时跳转到指定的地址运行来截获;第二种方法则改写iat(import address table<br>&nbsp;输入地址表),重定向winapi函数的调用来实现对winapi的截获。<br>&nbsp; &nbsp; 第一种方法的实现较为繁琐,而且在win95、98下面更有难度,这是因为虽<br>然微软说win16的api只是为了兼容性才保留下来,程序员应该尽可能地调用32位<br>的api,实际上根本就不是这样!win 9x内部的大部分32位api经过变换调用了同<br>名的16位api,也就是说我们需要在拦截的函数中嵌入16位汇编代码!<br>&nbsp; &nbsp; 我们将要介绍的是第二种拦截方法,这种方法在win95、98和nt下面运行都<br>比较稳定,兼容性较好。由于需要用到关于windows虚拟内存的管理、打破进程<br>边界墙、向应用程序的进程空间中注入代码、pe(portable executable)文件<br>格式和iat(输入地址表)等较底层的知识,所以我们先对涉及到的这些知识大<br>概地做一个介绍,最后会给出拦截部分的关键代码。<br>&nbsp; &nbsp; 先说windows虚拟内存的管理。windows9x给每一个进程分配了4gb的地址空<br>间,对于nt来说,这个数字是2gb,系统保留了2gb到 4gb之间的地址空间禁止进<br>程访问,而在win9x中,2gb到4gb这部分虚拟地址空间实际上是由所有的win32进<br>程所共享的,这部分地址空间加载了共享win32 dll、内存映射文件和vxd、内存<br>管理器和文件系统码,win9x中这部分对于每一个进程都是可见的,这也是win9x<br>操作系统不够健壮的原因。win9x中为16位操作系统保留了0到4mb的地址空间,<br>而在4mb到2gb之间也就是win32进程私有的地址空间,由于 每个进程的地址空间<br>都是相对独立的,也就是说,如果程序想截获其它进程中的api调用,就必须打<br>破进程边界墙,向其它的进程中注入截获api调用的代码,这项工作我们交给钩<br>子函数(setwindowshookex)来完成,关于如何创建一个包含系统钩子的动态链<br>接库,《电脑高手杂志》在第?期已经有过专题介绍了,这里就不赘述了。所有<br>系统钩子的函数必须要在动态库里,这样的话,当进程隐式或显式调用一个动态<br>库里的函数时,系统会把这个动态库映射到这个进程的虚拟地址空间里,这使得<br>dll成为进程的一部分,以这个进程的身份执行,使用这个进程的堆栈,也就是<br>说动态链接库中的代码被钩子函数注入了其它gui进程的地址空间(非gui进程,<br>钩子函数就无能为力了),当包含钩子的dll注入其它进程后,就可以取得映射<br>到这个进程虚拟内存里的各个模块(exe和dll)的基地址,如:<br>hmodule hmodule=getmodulehandle(“mypro.exe”);<br>在mfc程序中,我们可以用afxgetinstancehandle()函数来得到模块的基地址。<br>exe和dll被映射到虚拟内存空间的什么地方是由它们的基地址决定的。它们的基<br>地址是在链接时由链接器决定的。当你新建一个win32工程时,vc++链接器使<br>用缺省的基地址0x00400000。可以通过链接器的base选项改变模块的基地址。<br>exe通常被映射到虚拟内存的0x00400000处,dll也随之有不同的基地址,通常被<br>映射到不同进程的相同的虚拟地址空间处。<br>&nbsp; 系统将exe和dll原封不动映射到虚拟内存空间中,它们在内存中的结构与磁盘<br>上的静态文件结构是一样的。即pe (portable executable) 文件格式。我们得<br>到了进程模块的基地址以后,就可以根据pe文件的格式穷举这个模块的image_import_descriptor<br>数组,看看进程空间中是否引入了我们需要截获的函数所在的动态链接库,比如<br>需要截获“textouta”,就必须检查“gdi32.dll”是否被引入了。说到这里,我<br>们有必要介绍一下pe文件的格式,如右图,这是pe文件格式的大致框图,最前面<br>是文件头,我们不必理会,从pe file optional header后面开始,就是文件中各<br>个段的说明,说明后面才是真正的段数据,而实际上我们关心的只有一个段,那<br>就是“.idata”段,这个段中包含了所有的引入函数信息,还有iat(import address table)<br>的rva(relative virtual address)地址。<br>&nbsp; &nbsp;说到这里,截获windowsapi的整个原理就要真相大白了。实际上所有进程对<br>给定的api函数的调用总是通过pe文件的一个地方来转移的,这就是一个该模块<br>(可以是exe或dll)的“.idata”段中的iat输入地址表(import address table)<br>。在那里有所有本模块调用的其它dll的函数名及地址。对其它dll的函数调用实<br>际上只是跳转到输入地址表,由输入地址表再跳转到dll真正的函数入口。<br>具体来说,我们将通过image_import_descriptor数组来访问“.idata”段中引入<br>的dll的信息,然后通过image_thunk_data数组来针对一个被引入的dll访问该<br>dll中被引入的每个函数的信息,找到我们需要截获的函数的跳转地址,然后改<br>成我们自己的函数的地址……具体的做法在后面的关键代码中会有详细的讲解。<br>&nbsp; &nbsp;讲了这么多原理,现在让我们回到“鼠标屏幕取词”的专题上来。除了api函<br>数的截获,要实现“鼠标屏幕取词”,还需要做一些其它的工作,简单的说来,<br>可以把一个完整的取词过程归纳成以下几个步骤:<br>1. 安装鼠标钩子,通过钩子函数获得鼠标消息。<br>&nbsp; 使用到的api函数:setwindowshookex<br>2. 得到鼠标的当前位置,向鼠标下的窗口发重画消息,让它调用系统函数重画<br>窗口。<br>&nbsp; 使用到的api函数:windowfrompoint,screentoclient,invalidaterect<br>3. 截获对系统函数的调用,取得参数,也就是我们要取的词。<br>&nbsp; &nbsp;对于大多数的windows应用程序来说,如果要取词,我们需要截获的是<br>“gdi32.dll”中的“textouta”函数。<br>我们先仿照textouta函数写一个自己的mytextouta函数,如:<br>bool winapi mytextouta(hdc hdc, int nxstart, int nystart, lpcstr lpszstring,int cbstring)<br>{<br>&nbsp; &nbsp; &nbsp; &nbsp;// 这里进行输出lpszstring的处理<br>&nbsp; &nbsp; &nbsp; // 然后调用正版的textouta函数<br>}<br>&nbsp; &nbsp;把这个函数放在安装了钩子的动态连接库中,然后调用我们最后给出的<br>hookimportfunction函数来截获进程对textouta函数的调用,跳转到我们的<br>mytextouta函数,完成对输出字符串的捕捉。hookimportfunction的用法:<br>&nbsp;hookfuncdesc hd;<br>&nbsp;proc &nbsp; &nbsp; &nbsp; &nbsp; porigfuns;<br>&nbsp;hd.szfunc="textouta";<br>&nbsp;hd.pproc=(proc)mytextouta;<br>&nbsp;hookimportfunction (afxgetinstancehandle(),"gdi32.dll",&amp;hd,porigfuns);<br>下面给出了hookimportfunction的源代码,相信详尽的注释一定不会让您觉得理<br>解截获到底是怎么实现的很难,ok,let’s go:<br>///////////////////////////////////////////// begin ///////////////////////////////////////////////////////////////<br>#include &lt;crtdbg.h&gt;<br>// 这里定义了一个产生指针的宏<br>#define makeptr(cast, ptr, addvalue) (cast)((dword)(ptr)+(dword)(addvalue))<br>// 定义了hookfuncdesc结构,我们用这个结构作为参数传给hookimportfunction函数<br>typedef struct tag_hookfuncdesc<br>{<br>&nbsp; lpcstr szfunc; // the name of the function to hook.<br>&nbsp; proc pproc; &nbsp; &nbsp;// the procedure to blast in.<br>} hookfuncdesc , * lphookfuncdesc;<br>// 这个函数监测当前系统是否是windownt<br>bool isnt();<br>// 这个函数得到hmodule -- 即我们需要截获的函数所在的dll模块的引入描述符(import descriptor)<br>pimage_import_descriptor getnamedimportdescriptor(hmodule hmodule, lpcstr szimportmodule);<br>// 我们的主函数<br>bool hookimportfunction(hmodule hmodule, lpcstr szimportmodule, <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;lphookfuncdesc pahookfunc, proc* paorigfuncs)<br>{<br>/////////////////////// 下面的代码检测参数的有效性 ////////////////////////////<br>&nbsp;_assert(szimportmodule);<br>&nbsp;_assert(!isbadreadptr(pahookfunc, sizeof(hookfuncdesc)));<br>#ifdef _debug<br>&nbsp;if (paorigfuncs) _assert(!isbadwriteptr(paorigfuncs, sizeof(proc)));<br>&nbsp;_assert(pahookfunc.szfunc);<br>&nbsp;_assert(*pahookfunc.szfunc != '/0');<br>&nbsp; &nbsp; &nbsp; &nbsp; _assert(!isbadcodeptr(pahookfunc.pproc));<br>#endif<br>&nbsp;if ((szimportmodule == null) || (isbadreadptr(pahookfunc, sizeof(hookfuncdesc))))<br>&nbsp;{<br>&nbsp; _assert(false);<br>&nbsp; setlasterrorex(error_invalid_parameter, sle_error);<br>&nbsp; return false;<br>&nbsp;}<br>//////////////////////////////////////////////////////////////////////////////<br>&nbsp;// 监测当前模块是否是在2gb虚拟内存空间之上<br>&nbsp;// 这部分的地址内存是属于win32进程共享的<br>&nbsp;if (!isnt() &amp;&amp; ((dword)hmodule &gt;= 0x80000000))<br>&nbsp;{<br>&nbsp; _assert(false);<br>&nbsp; setlasterrorex(error_invalid_handle, sle_error);<br>&nbsp; return false;<br>&nbsp;}<br>&nbsp; &nbsp; &nbsp;// 清零<br>&nbsp;if (paorigfuncs) memset(paorigfuncs, null, sizeof(proc)); <br>&nbsp;// 调用getnamedimportdescriptor()函数,来得到hmodule -- 即我们需要<br>&nbsp;// 截获的函数所在的dll模块的引入描述符(import descriptor)<br>&nbsp;pimage_import_descriptor pimportdesc = getnamedimportdescriptor(hmodule, szimportmodule)<br>&nbsp;if (pimportdesc == null)<br>&nbsp;return false; // 若为空,则模块未被当前进程所引入<br>&nbsp;// &nbsp;从dll模块中得到原始的thunk信息,因为pimportdesc-&gt;firstthunk数组中的原始信息已经<br>&nbsp;// &nbsp;在应用程序引入该dll时覆盖上了所有的引入信息,所以我们需要通过取得pimportdesc-&gt;originalfirstthunk<br>&nbsp;// &nbsp;指针来访问引入函数名等信息<br>&nbsp;pimage_thunk_data porigthunk = makeptr(pimage_thunk_data, hmodule, <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;pimportdesc-&gt;originalfirstthunk);<br>&nbsp;// &nbsp;从pimportdesc-&gt;firstthunk得到image_thunk_data数组的指针,由于这里在dll被引入时已经填充了<br>&nbsp;// &nbsp;所有的引入信息,所以真正的截获实际上正是在这里进行的<br>&nbsp;pimage_thunk_data prealthunk = makeptr(pimage_thunk_data, hmodule, pimportdesc-&gt;firstthunk);<br>&nbsp;// &nbsp;穷举image_thunk_data数组,寻找我们需要截获的函数,这是最关键的部分!<br>&nbsp;while (porigthunk-&gt;u1.function)<br>&nbsp;{<br>&nbsp; // 只寻找那些按函数名而不是序号引入的函数<br>&nbsp; if (image_ordinal_flag != (porigthunk-&gt;u1.ordinal &amp; image_ordinal_flag))<br>&nbsp; {<br>&nbsp; &nbsp;// 得到引入函数的函数名<br>&nbsp; &nbsp;pimage_import_by_name pbyname = makeptr(pimage_import_by_name, hmodule,<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;porigthunk-&gt;u1.addressofdata);<br>&nbsp; &nbsp;// 如果函数名以null开始,跳过,继续下一个函数 &nbsp; <br>&nbsp; &nbsp;if ('/0' == pbyname-&gt;name[0])<br>&nbsp; &nbsp; continue;<br>&nbsp; &nbsp;// bdohook用来检查是否截获成功<br>&nbsp; &nbsp;bool bdohook = false;<br>&nbsp; &nbsp;// 检查是否当前函数是我们需要截获的函数<br>&nbsp; &nbsp;if ((pahookfunc.szfunc[0] == pbyname-&gt;name[0]) &amp;&amp;<br>&nbsp; &nbsp; (strcmpi(pahookfunc.szfunc, (char*)pbyname-&gt;name) == 0))<br>&nbsp; &nbsp;{<br>&nbsp; &nbsp; // 找到了!<br>&nbsp; &nbsp; if (pahookfunc.pproc)<br>&nbsp; &nbsp; bdohook = true;<br>&nbsp; &nbsp;}<br>&nbsp; &nbsp;if (bdohook)<br>&nbsp; &nbsp;{<br>&nbsp; &nbsp; // 我们已经找到了所要截获的函数,那么就开始动手吧<br>&nbsp; &nbsp; // 首先要做的是改变这一块虚拟内存的内存保护状态,让我们可以自由存取<br>&nbsp; &nbsp; memory_basic_information mbi_thunk;<br>&nbsp; &nbsp; virtualquery(prealthunk, &amp;mbi_thunk, sizeof(memory_basic_information));<br>&nbsp; &nbsp; _assert(virtualprotect(mbi_thunk.baseaddress, mbi_thunk.regionsize, <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; page_readwrite, &amp;mbi_thunk.protect));<br>&nbsp; &nbsp; // 保存我们所要截获的函数的正确跳转地址<br>&nbsp; &nbsp; if (paorigfuncs)<br>&nbsp; &nbsp; &nbsp; paorigfuncs = (proc)prealthunk-&gt;u1.function;<br>&nbsp; &nbsp; // 将image_thunk_data数组中的函数跳转地址改写为我们自己的函数地址!<br>&nbsp; &nbsp; // 以后所有进程对这个系统函数的所有调用都将成为对我们自己编写的函数的调用<br>&nbsp; &nbsp; prealthunk-&gt;u1.function = (pdword)pahookfunc.pproc;<br>&nbsp; &nbsp; // 操作完毕!将这一块虚拟内存改回原来的保护状态<br>&nbsp; &nbsp; dword dwoldprotect;<br>&nbsp; &nbsp; _assert(virtualprotect(mbi_thunk.baseaddress, mbi_thunk.regionsize, <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mbi_thunk.protect, &amp;dwoldprotect));<br>&nbsp; &nbsp; setlasterror(error_success);<br>&nbsp; &nbsp; return true;<br>&nbsp; &nbsp;}<br>&nbsp; }<br>&nbsp; // 访问image_thunk_data数组中的下一个元素<br>&nbsp; porigthunk++;<br>&nbsp; prealthunk++;<br>&nbsp;}<br>&nbsp;return true;<br>}<br>// getnamedimportdescriptor函数的实现<br>pimage_import_descriptor getnamedimportdescriptor(hmodule hmodule, lpcstr szimportmodule)<br>{<br>&nbsp;// 检测参数<br>&nbsp;_assert(szimportmodule);<br>&nbsp;_assert(hmodule);<br>&nbsp;if ((szimportmodule == null) || (hmodule == null))<br>&nbsp;{<br>&nbsp; _assert(false);<br>&nbsp; setlasterrorex(error_invalid_parameter, sle_error);<br>&nbsp; return null;<br>&nbsp;}<br>&nbsp;// 得到dos文件头<br>&nbsp;pimage_dos_header pdosheader = (pimage_dos_header) hmodule;<br>&nbsp;// 检测是否mz文件头<br>&nbsp;if (isbadreadptr(pdosheader, sizeof(image_dos_header)) || <br>&nbsp; (pdosheader-&gt;e_magic != image_dos_signature))<br>&nbsp;{<br>&nbsp; _assert(false);<br>&nbsp; setlasterrorex(error_invalid_parameter, sle_error);<br>&nbsp; return null;<br>&nbsp;}<br>&nbsp;// 取得pe文件头<br>&nbsp;pimage_nt_headers pntheader = makeptr(pimage_nt_headers, pdosheader, pdosheader-&gt;e_lfanew);<br>&nbsp;// 检测是否pe映像文件<br>&nbsp;if (isbadreadptr(pntheader, sizeof(image_nt_headers)) || <br>&nbsp; &nbsp;(pntheader-&gt;signature != image_nt_signature))<br>&nbsp;{<br>&nbsp; _assert(false);<br>&nbsp; setlasterrorex(error_invalid_parameter, sle_error);<br>&nbsp; return null;<br>&nbsp;}<br>&nbsp;// 检查pe文件的引入段(即 .idata section)<br>&nbsp;if (pntheader-&gt;optionalheader.datadirectory[image_directory_entry_import].virtualaddress == 0)<br>&nbsp; return null;<br>&nbsp;// 得到引入段(即 .idata section)的指针<br>&nbsp;pimage_import_descriptor pimportdesc = makeptr(pimage_import_descriptor, pdosheader,<br>&nbsp; pntheader-&gt;optionalheader.datadirectory[image_directory_entry_import].virtualaddress);<br>&nbsp;// 穷举pimage_import_descriptor数组寻找我们需要截获的函数所在的模块<br>&nbsp;while (pimportdesc-&gt;name)<br>&nbsp;{<br>&nbsp; pstr szcurrmod = makeptr(pstr, pdosheader, pimportdesc-&gt;name);<br>&nbsp; if (stricmp(szcurrmod, szimportmodule) == 0)<br>&nbsp; &nbsp; &nbsp; break; // 找到!中断循环<br>&nbsp; // 下一个元素<br>&nbsp; pimportdesc++;<br>&nbsp;}<br>&nbsp;// 如果没有找到,说明我们寻找的模块没有被当前的进程所引入!<br>&nbsp;if (pimportdesc-&gt;name == null)<br>&nbsp; return null;<br>&nbsp;// 返回函数所找到的模块描述符(import descriptor)<br>&nbsp;return pimportdesc;<br>}<br>// isnt()函数的实现<br>bool isnt()<br>{<br>&nbsp;osversioninfo stosvi;<br>&nbsp;memset(&amp;stosvi, null, sizeof(osversioninfo));<br>&nbsp;stosvi.dwosversioninfosize = sizeof(osversioninfo);<br>&nbsp;bool bret = getversionex(&amp;stosvi);<br>&nbsp;_assert(true == bret);<br>&nbsp;if (false == bret) return false;<br>&nbsp;return (ver_platform_win32_nt == stosvi.dwplatformid);<br>}<br>/////////////////////////////////////////////// end //////////////////////////////////////////////////////////////////////<br>&nbsp; &nbsp;不知道在这篇文章问世之前,有多少朋友尝试过去实现“鼠标屏幕取词”这<br>项充满了挑战的技术,也只有尝试过的朋友才能体会到其间的不易,尤其在探索<br>api函数的截获时,手头的几篇资料没有一篇是涉及到关键代码的,重要的地方<br>都是一笔代过,msdn更是显得苍白而无力,也不知道除了image_import_descriptor<br>和image_thunk_data,微软还隐藏了多少秘密,好在硬着头皮还是把它给攻克了,<br>希望这篇文章对大家能有所帮助。
 
小妹,这么急啊,[:D]
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
614
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
790
import
I
后退
顶部