VB中使用汇编一例

sp; 
    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) = &