Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
SVP gentelmans
Si vous pouvez m'aider a afficher le numero serial du HARD DISK dans Text1 ..
Avec ce code si dessous j'obtiens ce serial mais malheureusement dans un MsgBox avec d'autres informations
Tandisque moi je veux afficher uniquement le serial du HARD DISK dans ce Text1
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" ( _
    ByVal lpRootPathName As String, _
    ByVal lpVolumeNameBuffer As String, _
    ByVal nVolumeNameSize As Long, _
    lpVolumeSerialNumber As Long, _
    lpMaximumComponentLength As Long, _
    lpFileSystemFlags As Long, _
    ByVal lpFileSystemNameBuffer As String, _
    ByVal nFileSystemNameSize As Long _
) As Long
 
Private Const MAX_PATH = 260
 
Private Sub Form_load()
 
    Dim strRacine As String, strVolumeName As String, strFileSystemName As String
    Dim lSerialNumber As Long, lpMaximumComponentLength As Long, lFileSystemFlag As Long
 
    ' Initialisations
    strRacine = "C:\"
    strVolumeName = String$(MAX_PATH, Chr$(0))
    strFileSystemName = String$(MAX_PATH, Chr$(0))
 
    ' Appel de l'API
    If GetVolumeInformation(strRacine, strVolumeName, MAX_PATH, lSerialNumber, lpMaximumComponentLength, lFileSystemFlag, strFileSystemName, MAX_PATH) Then
        strVolumeName = Left$(strVolumeName, InStr(strVolumeName, Chr$(0)) - 1)
        strFileSystemName = Left$(strFileSystemName, InStr(strFileSystemName, Chr$(0)) - 1)
 
        'MsgBox "Chemin du volume : " & strRacine
        'MsgBox "Nom du volume : " & strVolumeName
        MsgBox "Numéro de série : " & lSerialNumber
        'MsgBox "Longueur maximale d'un composant d'un nom de fichier : " & lpMaximumComponentLength
        'MsgBox "System flags : " & lFileSystemFlag
        'MsgBox "Nom du système de fichier : " & strFileSystemName
    Else
        MsgBox "Une erreur s'est produite !", vbExclamation
    End If
 
End Sub

Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

[iclic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
text1=lSerialNumber

[MADA BLACK]

Bonjour iclic
Je n'ai qu'a vous dire du fond du coeur "BRAVO"
Amicalement
MADA

[DarkVader]

Bonjour,
Outre que GetVolumeInformation n'est pas immuable (modifié en cas de partitionnement du disque) et qu'il est modifiable,
un appel à une instruction conditionnelle (IF, Select case, etc.) se situe au niveau zéro comme méthode de protection
puisqu'il suffit d'un patch basique pour sauter l'instruction posant problème.
Si cela te suffit (ce dont je doute étant donné la recherche d'une clé immuable au niveau du disque) alors c'est OK
sinon il faut aller chercher beaucoup, beaucoup plus loin.

PS: Jette un oeil à ma signature et tu trouveras ce que tu cherches, tout fait.
Crdlt

[MADA BLACK]

Bonjour DarkVader
Merci beaucoup beaucoup pour vos idees et votre interessant opinion
SVP comment faire "un appel à une instruction conditionnelle (IF, Select case, etc.) se situe au niveau zéro comme méthode de protection"
Merci beaucoup d'avance
Cordialement
MADA