.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
信息框 (是否虚拟机 (), 0, , )
.子程序 是否虚拟机, 逻辑型
.局部变量 结果, 文本型
置入代码 (#VM开始)
结果 = 系统_取DOS执行结果 (“wmic COMPUTERSYSTEM get Manufacturer,Model,OEMStringArray”)
.判断开始 (寻找文本 (结果, “VMware”, , 真) ≠ -1)
返回 (真)
.判断 (寻找文本 (结果, “VPC”, , 真) ≠ -1)
返回 (真)
.判断 (寻找文本 (结果, “virtualbox”, , 真) ≠ -1)
返回 (真)
.判断 (寻找文本 (结果, “hyper”, , 真) ≠ -1)
返回 (真)
.判断 (寻找文本 (结果, “Virtual”, , 真) ≠ -1)
返回 (真)
.判断 (寻找文本 (结果, “kvm”, , 真) ≠ -1)
返回 (真)
.默认
返回 (假)
.判断结束
置入代码 (#VM结束)