Comment obtenir bcp d'info sur votre machine ?

Commenter

Contenu du snippet

Le code à mettre d'en un MODULE ,:

Source / Exemple : 


'*****************************
'Code à mettre dans un module.
'*****************************

Declare Function RegQueryValueEx Lib "advapi32.dll" _
    Alias "RegQueryValueExA" _
    (ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    lpType As Long, lpData As Any, _
    lpcbData As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" _
    Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    ByVal ulOptions As Long, _
    ByVal samDesired As Long, _
    phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) As Long

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const KEY_ALL_ACCESS As Long = &HF0063
Public Const ERROR_SUCCESS As Long = 0
Public Const REG_SZ As Long = 1

Function RegLireChaine(hInKey As Long, ByVal SousClef$, ByVal valname$) As String
Dim strChaine As String
Dim hSousClef As Long
Dim dwType As Long
Dim v As String
Dim SZ As Long
Dim R As Long
'
strChaine = ""
'
R = RegOpenKeyEx(hInKey, SousClef$, 0, KEY_ALL_ACCESS, hSousClef)
If R <> ERROR_SUCCESS Then GoTo Quitter
'
SZ = 256: v = String$(SZ, 0)
R = RegQueryValueEx(hSousClef, valname$, 0, dwType, ByVal v, SZ)
If R = ERROR_SUCCESS And dwType = REG_SZ Then
        strChaine = Left$(v, SZ)
        Else
        strChaine = " "
    End If
If hInKey = 0 Then R = RegCloseKey(hSousClef)
'
Quitter:
        RegLireChaine = strChaine
End Function

' LE CODE A METTRE DANS VOTRE FORM

' ****************************************
' *** Lecture de la Version de Windows ***
' ****************************************

    ' Lire utilisateur enregistré
        lblUtilisateur = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOwner")

    ' Lire organisation enregistrée
        lblOrganisation = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOrganization")

    ' Lire le numéro de license
        lblLicence = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductID")

    ' Lire la cle d'enregistrement
        lblCle = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductKey")

    ' Lire le nom du programme
        lblNom = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductName")

    ' Lire la Version
        lblVersion = RegLireChaine(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "VersionNumber")

' ***************************
' *** Lecture du materiel ***
' ***************************
    
    ' Lire le type d'ordinateur
        lblProcesseur = RegLireChaine(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "Identifier")
    
    ' Lire le MMX Identificateur
        lblMMX = RegLireChaine(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "MMXIdentifier")
    
    ' Lire le Vendor Identification
        lblVendor = RegLireChaine(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "VendorIdentifier")

Conclusion :


Aucune configuration de formulaire ici, les Label "lblxxxxxx" représente les noms de labels que vous désirez obtenir. Dans cet exemple, vous avez l'exemple qui vous montre comment lire dans la base de registre, avec quelques clés utililes qui vous donnerons différentes informations sur l'utilisateur ou sur la machine.
Pour avoir un bon exemple, téléchargez le fichier Zip en bas de cette page qui vous en montrera un peu plus.

'Excuse, voila le ZIP

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (youl46)