如何判断电脑系统是虚拟机还是物理机？（已修改）

清风徐来 · 2017-7-10 19:16

本帖最后由清风徐来于 2017-7-26 14:57 编辑

工具：二手主机一台，自制烂大街的鼠标一只，搓衣板牌键盘，易语言。
主要原理：利用易语言，取出Dos的结果，再来判断“Virutal”特殊关键字字符，若寻找到关键字字符“Virutal”的话就是虚拟机，反之没有关键字字符“Virutal”就是物理机。

#f464:

[Dos命令：Systeminfo]

#f472:

老规矩：回复下载！

游客，如果您要查看本帖隐藏内容请回复

至于其他的，就自己看源码咯！

如果您觉得本帖对您有帮助，记得给我加分哦，加分不扣自己的分！

[https://www.guhei.net/post/jb1288]

我[emoji]2122[/emoji]一定要把币补回来！
下面是取Dos代码升级版：

全屏查看

.版本 2👮‍♂️‍👒🪓😒👊



.子程序 Take_the_Dos_Execution_Results, 文本型, , 这个子程序返回的，是Dos 的回执结果，Dos命令：Systeminfo | findstr /i "System Model"

.局部变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES

.局部变量 STARTUPINFO, STARTUPINFO

.局部变量 PROCESS_INFORMATION, PROCESS_INFORMATION‏👚📡🤡🦴

.局部变量 hWrite, 整数型

.局部变量 hRead, 整数型

.局部变量 txt, 字节集

.局部变量 len, 整数型

.局部变量 EXIT, 整数型

👁⛴🍽🚭🐒‍
.局部变量 retext, 文本型



SECURITY_ATTRIBUTES.nLength ＝ 12

SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0

SECURITY_ATTRIBUTES.bInheritHandle ＝ 1

✌🏦🍪💲🦜‌
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)

STARTUPINFO.cb ＝ 68

STARTUPINFO.dwFlags ＝ 位或 (#STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES)

STARTUPINFO.wShowWindow ＝ #SW_HIDE

STARTUPINFO.hStdOutput ＝ hWrite🧒‍🕶⚔🤡🙌

STARTUPINFO.hStdError ＝ hWrite

.如果 (取操作系统类别 () ≤ 2)

    CreateProcess (0, “command.com /c Systeminfo”, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 代码

.否则

    CreateProcess (0, “cmd.exe /c Systeminfo”, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 代码‎🧢⚔😒🤳

.如果结束



CloseHandle (hWrite)

.判断循环首 (len ≠ -1)

    PeekNamedPipe (hRead, 0, 0, 0, len, 0)🧑‍⚕️‍🧢🥱👂

    .如果 (len ≠ 0)

        txt ＝ 取空白字节集 (1024)

        ReadFile (hRead, txt, 1023, len, 0)

        retext ＝ retext ＋ 取字节集数据 (txt, #文本型)

    .否则🧑‍⚕️‎💍🎷😆👂

        GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT)

        .如果真 (EXIT ≠ #STILL_ACTIVE)

            CloseHandle (hRead)

            跳出循环 ()

        .如果真结束

🦷🚘🍒🆘🐡‌


    .如果结束

    处理事件 ()

.判断循环尾 ()

返回 (retext)