Visual Basic内嵌汇编语言解决方案

发布时间:2016-12-11 17:57:47 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"Visual Basic内嵌汇编语言解决方案",主要涉及到Visual Basic内嵌汇编语言解决方案方面的内容,对于Visual Basic内嵌汇编语言解决方案感兴趣的同学可以参考一下。

VB简单易用,但功能有时候受限制。VC、Delphi都可以直接在程序中写汇编代码,可恼的是,VB不行。我在网上也看过许多有关于VB嵌入汇编的方法,不过有些方法,过于复杂,而且也没相应的介绍。我这里提供一种方法,也许大家以后可能有用!     基本思路:汇编代码,可以存在一个byte类型的数组中,然后通过某种手段,把系统控制权,转交给这段汇编代码,我们的汇编代码段,就得到了执行。但如何让这段汇编代码,获得系统的控制权限呢?查查WIN API手册,就可以知道有CallWindowProc这个函数。这个函数本是用于调用用户自己定义的窗口过程的,其原形如下: 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     它有5个参数。lpPrevWnFunc是一个long型,等于用户自己窗口过程的地址,其余3个都是窗口过程所必须的参数,详见MSDN.     我们只需要关心第一个参数:lpPrevWndFunc,窗口过程地址。如果,我们把自己的汇编代码地址,传进去会怎么样?当然,CallWindowProc就把这个地址,当成窗口过程地址,然后,调用这段汇编代码了。我们的汇编代码便得到执……     当然,也得装摸做样的吧,将其余4个参数传进去,就传4个0算了,因为这4个参数,我们更本不用,但又是CallWindowProc必须的,不要忘了,我们传进去的lpPrevWndFunc,并非真正的窗口过程地址,而是自己的汇编码地址。     具体一点,比如,我们要嵌入一段什么也不干的汇编代码: Dim AsmCode() as byteredim AsmCode(8)'生成机器代码AsmCode(0) = &H58 'POP EAXAsmCode(1) = &H59 'POP ECXAsmCode(2) = &H59 'POP ECXAsmCode(3) = &H59 'POP ECXAsmCode(4) = &H59 'POP ECXAsmCode(5) = &H50 'PUSH EAX'你可以在这里添加你想执行的Asm代码...'.....如果添加的话,后面的数组偏移需要做相应改动'你添加的代码在这里结束'将控制权交还主程序AsmCode(6) = &HC3 'RET'.....     然后: CallDllFunction = CallWindowProc(VarPtr(AsmCode(0), 0, 0, 0, 0)     VarPtr函数,用于取变量地址。返回一个long 型值。     为什么前面要执行几个pop和一个push呢?因为我们是以一段汇编代码首地址,伪装成一个窗口过程的,系统调用CallWindowProc时,实际上除lpPrevWndFunc,我们还传入了4个参数,就是上面的的4个0,而CallWindoProc函数在调用lpPrevWndFunc这段汇编代码程序时,把其余4个参数是压入了堆栈的。相当于执行了以下代码: xxxx00A4H: push 0xxxx00A6H: push 0xxxx00A8H: push 0xxxx00AAH: push 0xxxx00ACH: call VarPtr(AsmCode(0))(这段代码我们是看不见的,是CallWindoProc在内部做的处理)xxxx00AFH: ......     因为我们根本没有用到这4个参数,所以我们只需要将它弹出。所以,我们执行了4个POP ECX,就是把这4个不用的参数弹出,以保持堆栈指针的正确性。但为什么还要,第一句的:POP EAX,还是因为CallWindowProc把lpPrevWndFunc当成一个窗口过程的原故,因为作为一个正常的窗口过程,在执行Call语句的时候,得把Call语句的下一条指令地址push到堆栈中,用于子程序ret.在上面这段代码就是执行了:push xxxx00afh.事实上,在CallWindowProc中,实际上隐含执行这么几句,我们必须关心的代码: push 0;参数入栈push 0push 0push 0push xxxx00afh;(当执行call 时,自动执行)     为了能让窗口过程执行结束后堆栈指针保持平衡,当然要执行相应的pop指令,第一个pop eax是把子程序返回的地址暂时保存在寄存器eax中,然后弹出4个不用的参数。     接着把保存在eax中返回地址,压回堆栈。当执行ret时,就能正确返回到CallWindowProc中了。  

上一篇:Metaproducts Offline Explorer Enterprise 4.4.2458
下一篇:又要进行封闭开发

相关文章

相关评论