易语言检查是否虚拟机

2390517751

.版本 2

.子程序 检测虚拟机, 逻辑型
.局部变量 a, 整数型

.如果 (try_ ())  ' 设置异常保护
    a ＝ VMWare检测 ()
    try_out ()
.否则

.如果结束

.如果真 (a ≠ 0)
    返回 (真)
.如果真结束
' 本源码来自易语言资源网(www.5A5X.com)
.如果 (try_ ())  ' 设置异常保护
    a ＝ VPC检测 ()
    try_out ()
.否则

.如果结束

返回 (a ≠ 0)
' 2个检测虚拟机的汇编码  如果在物理机运行，CPU不认识该代码，则会异常，经过保护后执行，所以返回0
' 2个检测虚拟机的汇编码  如果在其自己的虚拟机中运行，虚拟CPU认识汇编码，返回非0

.子程序 VMWare检测, 整数型, , 此函数不能独立在实体机中运行,否则进程异常
.局部变量 a, 整数型

置入代码 ({ 184, 104, 88, 77, 86, 187, 0, 0, 0, 0, 185, 10, 0, 0, 0, 186, 88, 86, 0, 0, 237, 129, 251, 104, 88, 77, 86, 15, 148, 69, 252 })
返回 (a)

.子程序 VPC检测, 整数型, , 此函数不能独立在实体机中运行,否则进程异常
.局部变量 a, 整数型

置入代码 ({ 187, 0, 0, 0, 0, 184, 1, 0, 0, 0, 15, 63, 7, 11, 133, 219, 15, 148, 69, 252 })
返回 (a)

.子程序 try_, 逻辑型

置入代码 ({ 232, 50, 0, 0, 0, 85, 139, 236, 131, 196, 236, 82, 139, 85, 12, 139, 69, 16, 255, 114, 8, 143, 128, 184, 0, 0, 0, 255, 114, 12, 143, 128, 196, 0, 0, 0, 255, 114, 16, 143, 128, 180, 0, 0, 0, 184, 0, 0, 0, 0, 90, 201, 194, 16, 0, 88, 201, 131, 236, 20, 139, 204, 137, 65, 4, 232, 0, 0, 0, 0, 88, 131, 192, 28, 137, 65, 8, 137, 97, 12, 100, 161, 0, 0, 0, 0, 137, 1, 100, 137, 13, 0, 0, 0, 0, 255, 97, 20, 100, 161, 0, 0, 0, 0, 139, 72, 20, 139, 0, 100, 163, 0, 0, 0, 0, 51, 192, 131, 196, 24, 255, 225 })
返回 (假)' 本源码来自易语言资源网(www.5A5X.com)

.子程序 try_out, 逻辑型

置入代码 ({ 201, 89, 100, 161, 0, 0, 0, 0, 57, 104, 16, 117, 28, 139, 80, 8, 129, 122, 228, 88, 131, 192, 28, 117, 16, 139, 96, 12, 139, 0, 100, 163, 0, 0, 0, 0, 131, 196, 24, 255, 225, 51, 192, 255, 225 })
返回 (假)

duanyijun

感谢发布优秀作品

tank2012t

看不懂  发个源码呗

Dhs过客

感谢楼主，支持下

娱乐哟

马克      

lxwan

感谢楼主的无私贡献精神，先学习了。

SeeYouAgain

请别那啥好吧