转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
Visual Basic内嵌汇编语言解决方案    热     ★★★★

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

作者：闵涛 文章来源：闵涛的学习笔记 点击数：712 更新时间：2009/4/23 15:03:00
　　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 byte
redim AsmCode(8)
'生成机器代码
AsmCode(0) = &H58 'POP EAX
AsmCode(1) = &H59 'POP ECX
AsmCode(2) = &H59 'POP ECX
AsmCode(3) = &H59 'POP ECX
AsmCode(4) = &H59 'POP ECX
AsmCode(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 0
xxxx00A6H: push 0
xxxx00A8H: push 0
xxxx00AAH: push 0
xxxx00ACH: 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 0
push 0
push 0
push xxxx00afh；（当执行call 时，自动执行）
　　为了能让窗口过程执行结束后堆栈指针保持平衡，当然要执行相应的pop指令，第一个pop eax是把子程序返回的地址暂时保存在寄存器eax中，然后弹出4个不用的参数。

　　接着把保存在eax中返回地址，压回堆栈。当执行ret时，就能正确返回到CallWindowProc中了。


[系统软件]Visual Studio 2005 Express Beta Products 下载链…  [系统软件]Visual FoxPro9.0中扩展报表系统功能
[系统软件]Visual FoxPro：我是旁观者  [系统软件]Visual Studio 2005 Express Editions Beta 2 下载…
[系统软件]Boost库在XP+Visual C++.net中的安装  [系统软件]Visual Studio 2005 Express Edition 正式版下载地…
[常用软件]Visual Foxpro通用报表打印程序  [常用软件]Visual FoxPro 6.0与大型数据库的无数据源连接
[常用软件]Visual Foxpro 的一个BUG  [VB.NET程序]Visual Basic 6 逆向工程与反逆向工程 (2)
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台