当前位置：首页 → 问答吧 → 强烈寻求一种禁止在虚拟机里运行的代码

强烈寻求一种禁止在虚拟机里运行的代码

时间：2011-08-30

来源：互联网

强烈寻求一种禁止在虚拟机里运行的代码

哪个大哥有经验的，介绍一下哦

我不想程序在虚拟机里运行

作者: atfeel 发布时间: 2011-08-30

那是不可能的

作者: wowfiowow 发布时间: 2011-08-30

在程序启动时，判断是否运行在虚拟机里，如果是，则退出。
VB code


Private Sub Command1_Click()
    Dim n As Integer, strComputer As String
    Dim objWMIService, colAdapters, objAdapter
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery _
            ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    n = 1
    For Each objAdapter In colAdapters
        If UCase(Left(Trim(objAdapter.Description), 2)) = "VM" Then
            MsgBox "正运行在虚拟机里"
        End If
    Next
    
End Sub

作者: BestBadGod 发布时间: 2011-08-30

强烈关注。。。。

作者: Veron_04 发布时间: 2011-08-30

强烈寻求一种禁止在虚拟机里运行的代码

热门阅读

热门下载