.版本 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) ' 检测是否虚拟机 据说可以用这个方法检测虚拟机 未测试