检测虚拟机源码

.版本 2

.子程序 检测虚拟机, 逻辑型, 公开
.局部变量 size, 整数型
.局部变量 data, 字节集

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

@shituo