检测虚拟机

size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)
data ＝ 取空白字节集 (size) ' 指针到字节集 (buffer, size))
GetSystemFirmwareTable (1381190978, 0, data, size)
返回 (寻找字节集 (data, 到字节集 (“VMware”), ) ＞ 0 或 寻找字节集 (data, 到字节集 (“VirtualBox”), ) ＞ 0 或 寻找字节集 (data, 到字节集 (“Parallels”), ) ＞ 0) ' 检测是否虚拟机 据说可以用这个方法检测虚拟机 未测试