易语言判断虚拟机

---

一、易语言自动判断返回值求教Readdevice()返回一个布尔值；如果连接成功的值为true：
。if（读取设备（驱动程序））
状态栏1.设置。text(0,"状态：已连接")
Else
StatusBar1.设置文本（0，“状态：未连接”）
EndIf

不懂就继续问。

---

二、易语言程序如何判断是否在虚拟机运行

.版本2

。子例程发现虚拟机，逻辑类型

.if(try_())

a=VMWarediscovery()

try_out()

。否则

.如果结束

.如果为真(a≠0)

返回(true)

.Iftrueend

.If(try_())

a=VPCdetector()

try_out()

。否则

。结束时

返回(a≠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})

返回（假）

。子程序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})

返回(假)

.Subroutine_Detect按钮被点击

.If(DetectVirtualMachine()=True)

信息字段(“程序不允许在虚拟机中运行”,0,“提示”)

否则

信息字段(“程序在物理机上执行”,0，“提示”）

结束时

---

三、易语言中的判断语句.版本2
.解决方案开始（标记=intotext(5745)）
标记=intotext(5745)
信息字段（“恭喜您”，找到内存基地址",0,)
。解决方案（最多一个整数（错误）≠最多一个整数（"5745"））
信息窗口（“抱歉，您没有找到内存基地址，请打开内存软件重新搜索",0,)
。默认
。解决方案完成
也可以写成******************************
.If(标签1.标题=文本(5745))
标签=totext(5745)
信息字段（“恭喜，找到内存基地址”,0,）
Else
信息字段（“不幸的是，您没有找到它”）。内存基地址，打开内存软件重新搜索",0,)