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 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中了。

   Option   Explicit
   '
   ' This   shows   how   to   incorporate   machine   code   into   VB
   ' ''''''''''''''''''''''''''''''''''''''''''''''''''
   ' The   example   fills   the   array   with   a   few   machine   instructions   and   then   copies
   ' them   to   a   procedure   address.   The   modified   procedure   is   then   called   thru
   ' CallWindowProc.   The   result   of   this   specific   machine   code   is   your   CPU   Vendor   Name.
   '
   ' ##########################################################################
   ' Apparently   it   gets   a   Stack   Pointer   Error,   but   I   don't   know   why;   if   anybody
   ' can   fix   that   please   let   me   know                                                     UMGEDV@AOL.COM
   ' The   Error   is   not   present   in   the   native   compiled   version;   so   I   think   it   got
   ' something   to   do   with   the   P-Code   Calling   Convention   (strange   though)
   ' ##########################################################################
   '
   ' Sub   Dummy   serves   to   reserve   some   space   to   copy   the   machine   instructions   into.
   '
   '
   ' Tested   on   Intel   and   AMD   CPU's   (uncompiled   and   compiled)
   '
   '
   Private  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
   Private  Declare  Sub  CopyMemory Lib  " kernel32 "  Alias  " RtlMoveMemory "  (lpvDest  As  Any, lpvSource  As  Any, ByVal cbCopy  As   Long )
   Private  x      As   Long
    
   Public   Function  GetCpuName()  As   String
        
       Dim  MachineCode( 0   To   35 )            As   Byte
       Dim  VarAddr                                  As   Long
       Dim  FunctAddr                              As   Long
       Dim  EAX                                          As   Long
       Dim  CPUName( 1   To   12 )                    As   Byte
        
       ' set   up   machine   code
            
          MachineCode( 0 )  =   & H55              ' push   ebp
            
          MachineCode( 1 )  =   & H8B              ' move   ebp,esp
          MachineCode( 2 )  =   & HEC
            
          MachineCode( 3 )  =   & H57              ' push   edi
            
          MachineCode( 4 )  =   & H52              ' push   edx
            
          MachineCode( 5 )  =   & H51              ' push   ecx
            
          MachineCode( 6 )  =   & H53              ' push   ebx
            
          MachineCode( 7 )  =   & H8B              ' move   eax,dword   ptr   [ebp+8]
          MachineCode( 8 )  =   & H45
          MachineCode( 9 )  =   & H8
            
          MachineCode( 10 )  =   & HF              ' cpuid
          MachineCode( 11 )  =   & HA2
            
          MachineCode( 12 )  =   & H8B            ' mov   edi,dword   ptr   [ebp+12]
          MachineCode( 13 )  =   & H7D
          MachineCode( 14 )  =   & HC
            
          MachineCode( 15 )  =   & H89            ' move   dword   ptr   [edi],ebx
          MachineCode( 16 )  =   & H1F
            
          MachineCode( 17 )  =   & H8B            ' mov   edi,dword   ptr   [ebp+16]
          MachineCode( 18 )  =   & H7D
          MachineCode( 19 )  =   & H10
            
          MachineCode( 20 )  =   & H89            ' move   dword   ptr   [edi],ecx
          MachineCode( 21 )  =   & HF
            
          MachineCode( 22 )  =   & H8B            ' mov   edi,dword   ptr   [ebp+20]
          MachineCode( 23 )  =   & H7D
          MachineCode( 24 )  =   & H14
            
          MachineCode( 25 )  =   & H89            ' move   dword   ptr   [edi],edx
          MachineCode( 26 )  =   & H17
            
          MachineCode( 27 )  =   & H58            ' pop   ebx
    
          MachineCode( 28 )  =   & H59            ' pop   ecx
    
          MachineCode( 29 )  =   & H5A            ' pop   edx
    
          MachineCode( 30 )  =   & H55            ' pop   edi
            
          MachineCode( 31 )  =   & HC9            ' leave
    
          MachineCode( 32 )  =   & HC2            ' ret   16           I   tried   everything   from   0   to   24
          MachineCode( 33 )  =   & H10            '                        but   all   produce   the   stack   error
          MachineCode( 34 )  =   & H0
            
           ' tell   cpuid   what   we   want
          EAX  =   0
            
           ' get   address   of   Machine   Code
          VarAddr  =  VarPtr(MachineCode( 0 ))
            
           ' get   address   of   Sub   Dummy
          FunctAddr  =  GetAddress(AddressOf Dummy)
            
           ' copy   the   Machine   Code   to   where   it   can   be   called
          CopyMemory ByVal FunctAddr, ByVal VarAddr,  35               ' 35   bytes   machine   code
            
           ' call   it
           On   Error   Resume   Next           ' apparently   it   gets   a   stack   pointer   error   when   in   P-Code   but   i   dont   know   why
              CallWindowProc FunctAddr, EAX, VarPtr(CPUName( 1 )), VarPtr(CPUName( 9 )), VarPtr(CPUName( 5 ))
               ' Debug.Print   Err;   Err.Description
               ' MsgBox   Err   &   Err.Description
           On   Error   GoTo   0
            
          GetCpuName  =  StrConv(CPUName(), vbUnicode)          ' UnicodeName
            
   End Function
    
   Private   Function  GetAddress(Address  As   Long )  As   Long
    
          GetAddress  =  Address
    
   End Function
    
   Private   Sub  Dummy()
    
       ' the   code   below   just   reserves   some   space   to   copy   the   machine   code   into
       ' it   is   never   executed
    
          x  =   0
          x  =   1
          x  =   2
          x  =   3
          x  =   4
          x  =   5
          x  =   6
          x  =   7
          x  =   8
          x  =   9
          x  =   10
          x  =   0
          x  =   1
          x  =   2
          x  =   3
          x  =   4
          x  =   5
          x  =   6
          x  =   7
          x  =   8
          x  =   9
          x  =   10
          
   End Sub