检测虚拟机模块源码

wallet · 发表于 2021-8-25 20:45:38

流浪的三毛发表于 2021-6-3 01:47
看不懂，那个http链接是什么，我访问让我下载东西，那个是干嘛的，另外，这个网页源码有吗，我怕挂了。 ...

Dim wmiObjSet, obj
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each obj In wmiObjSet
IsVMHost = obj.L3CacheSize = 0
Next
End Function

复制代码

这就是 HTTP 内容，HTTP 是方便检测是否联网，

yl2566 · 发表于 2021-6-27 12:11:26

支持开源~！感谢分享

恶霸无敌 · 发表于 2021-6-27 12:08:12

很有用的源码

冷眸看世界 · 发表于 2021-6-25 22:09:53

666666666666666666666

wallet · 发表于 2021-6-24 18:59:53

yuxuanju 发表于 2021-6-14 23:52
有用途的源码。

是的，比起其他一啪啦的检测这个最简单效率最高，兼容全系统

yuxuanju · 发表于 2021-6-14 23:52:55

有用途的源码。

灵感吖 · 发表于 2021-6-13 13:24:02

感谢楼主分享~~

沈远 · 发表于 2021-6-9 16:15:00

支持开源~！感谢分享学习来了

wallet · 发表于 2021-6-3 16:53:59

mcxiaoquan 发表于 2021-6-3 01:47
看不懂，那个http链接是什么，我访问让我下载东西，那个是干嘛的，另外，这个网页源码有吗，我怕挂了。 ...

Function IsVMHost()
Dim wmiObjSet, obj
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each obj In wmiObjSet
IsVMHost = obj.L3CacheSize = 0
Next
End Function

复制代码

这就是 HTTP 内容，HTTP 是方便检测是否联网，

流浪的三毛 · 发表于 2021-6-3 01:47:37

看不懂，那个http链接是什么，我访问让我下载东西，那个是干嘛的，另外，这个网页源码有吗，我怕挂了。

		自动登录	找回密码
密码			注册

[易源码分享] 检测虚拟机模块源码