[Amin_Mansouri]

small UDF with 3 functions.

These are:
_AntiVirtualPC ()
_AntiVirtualBox ()
_AntiVmWare ()

کد:

#include-once

;=================================================================================================
; AutoIt Version:    3.3.6.1
; Language:            English
; Platform:            All Windows
; Author:            killax2x
;=================================================================================================
;
; Functions:
;
;=================================================================================================
; Function:            _AntiVirtualPC()
; Description:
; Return Value(s):  Returns 1 when the Script is in a Virtual PC.
;                    Returns 0 when the Script is not in a Virtual PC.
; Author(s):        killax2x
;=================================================================================================
; Function:            _AntiVirtualBox()
; Description:
; Return Value(s):  Returns 1 when the Script is in a Virtual Box.
;                    Returns 0 when the Script is not in a Virtual Box.
; Author(s):        killax2x
;=================================================================================================
; Function:            _AntiVmWare()
; Description:
; Return Value(s):  Returns 1 when the Script is in a VmWare.
;                    Returns 0 when the Script is not in a VmWare.
; Author(s):        killax2x
;=================================================================================================


Global Const $crtset = RegEnumKey("HKEY_LOCAL_MACHINE\SYSTEM", 2)
Global Const $vide = "HKEY_LOCAL_MACHINE\SYSTEM\" & $crtset & "\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000"
Global Const $read = RegRead($vide, "driverdesc")

If _AntiVirtualPC() = 1 Then
    MsgBox(0,"","Detected!")
EndIf

Func _AntiVirtualBox()
    If $read = "VirtualBox Graphics Adapter" Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Func _AntiVirtualPC()
        If $read = "VM Additions S3 Trio32/64" Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Func _AntiVmWare()
        If $read = "VMware SVGA II" Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc