Emit
将原始字节拼接到封闭过程的代码生成输出中。
语法：Emit Values ...
- Values
- 必需 一个Byte值的ParamArray，按顺序在调用位置处发出。
这些字节被写入过程机器代码中Emit出现的位置——没有运行时调用。与Naked过程修饰符一起使用来编写内联汇编。
示例
一个原子的InterlockedIncrement，将Addend加一。
vb
Public Function InlineInterlockedIncrement CDecl Naked(Addend As Long) As Long
#If Win64 Then
Emit(&Hb8, &H01, &H00, &H00, &H00) ' mov eax,0x1
Emit(&Hf0, &H0f, &Hc1, &H41, &H00) ' lock xadd DWORD PTR [rcx+0x4],eax
Emit(&Hff, &Hc0) ' inc eax
Emit(&Hc3) ' ret
#Else
Emit(&H8b, &H4c, &H24, &H04) ' mov ecx, DWORD PTR _Addend$[esp-4]
Emit(&Hb8, &H01, &H00, &H00, &H00) ' mov eax, 1
Emit(&Hf0, &H0f, &Hc1, &H01) ' lock xadd DWORD PTR [ecx], eax
Emit(&H40) ' inc eax
Emit(&Hc3) ' ret 0
#End If
End Function