Public Sub Bytes_WriteMemory(ByVal Address As String, ByVal SetValue As String)
Dim i As Integer
Dim Arr, Buff() As Byte
Dim bInheritProcss As Long
Arr = Split(SetValue, " ")
bInheritProcss = OpenProcess(&H1F0FFF, False, PID)
不会写了，想写个写内存 字节数组的模块