• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[神梦] 【PC源码】检测是否开启VT虚拟化 [复制链接]

1#
大家在使用安卓模拟器的时候,

是不是会遇到过“未开启VT虚拟化”提示!

有没有好奇它是怎么实现检测判断的?




【源码分享】
 
  1. 是否开启 = 检测是否开启VT虚拟化()
  2. If 是否开启 Then
  3.     TracePrint "已开启VT"
  4. Else
  5.     TracePrint "未开启VT"
  6. End If
复制代码
  1. Function 检测是否开启VT虚拟化()
  2.     Dim Retult, objWbemLocator, WbemServices, wbemObjectSet, SWbemObject

  3.     Retult = False
  4.     Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
  5.     Set WbemServices = objWbemLocator.ConnectServer(".", "root\CIMV2")
  6.     Set wbemObjectSet = WbemServices.ExecQuery("Select VirtualizationFirmwareEnabled From Win32_Processor")
  7.     For Each SWbemObject In wbemObjectSet
  8.         Retult = SWbemObject.Properties_.Item("VirtualizationFirmwareEnabled").Value
  9.     Next
  10.     检测是否开启VT虚拟化 = Retult
  11. End Function
复制代码




【效果对比】
 


最后编辑神梦科技 最后编辑于 2022-03-05 11:39:28
2#

怎么检测的?看看

承接各类游戏脚本制作,post,手游,端游,办公,自动化

有偿解决任何按键基础问题(可远程讲解、教会为止)

如果我的回答能帮助了你,大家可以加个好友互相了解
QQ : 262832680
3#

看看

夏天,校园里好多人穿的那么危险,却长得那么安全
4#

向大佬学习

5#

学习下

接单QQ:16256223。12年信誉保证!组别:〖官方脚本作者

网页,电脑,安卓,模拟器,验证码识别!

自动办公,网页操作,填表投票,账号注册,学习答题,聊天引流,数据监测,操作软件![/co
6#

学习成长

7#

gfhhfghfh

8#

学习学习

9#

看看

10#

wwwwwwww

11#

学习一下

定制脚本请找官方脚本作者小蜜峰QQ450949738
12#

学习

官方脚本作者风闲 联系QQ:15177407

验证码识别,数据监测,网页操作,游戏,办公,抢购,post等

13#

学习下 嘻嘻

14#

学习 感谢分享

15#

***** 该内容需您回复才可浏览 *****

发新话题 回复该主题