Accueil > > > LIRE LE NUMERO DE SÉRIE D'UN DISQUE
LIRE LE NUMERO DE SÉRIE D'UN DISQUE
Information sur la source
Description
Créer un nouveau projet. Ajouter sur la feuille: - un Bouton de commande (pour quitter) - un Label - une TextBox sous le label Ajouter le code ci-dessous dans le code de "Form1".
Source
- Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
- 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
- '------------------------------------------------
- Function NoSerieDisque(strDrive As String) As Long
- Dim SerialNum As Long
- Dim Res As Long
- Dim Trucnull As Long
- Dim Strnul As String
- Res = GetVolumeInformation(strDrive, Strnul, _
- Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
- Me.Caption = strDrive
- NoSerieDisque = SerialNum
- End Function
- '**********************
- Private Sub Command1_Click()
- End
- End Sub
- '**********************
- Private Sub Form_Load()
- Label1.Caption = "N° de série du disque dur"
- Text1.Text = NoSerieDisque("C:\")
- End Sub
Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
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
'------------------------------------------------
Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Trucnull As Long
Dim Strnul As String
Res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
Me.Caption = strDrive
NoSerieDisque = SerialNum
End Function
'**********************
Private Sub Command1_Click()
End
End Sub
'**********************
Private Sub Form_Load()
Label1.Caption = "N° de série du disque dur"
Text1.Text = NoSerieDisque("C:\")
End Sub
Conclusion
Dans cet exemple, "C:\" est en dur, mais on peut passer n'importe quelle designation d'unité logique.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
numéro de série d'un disque dure [ par schamssi ]
SalutComment identifier le numéro de série d'un disque dure directement à partir d'un code Visual BasicMerci
Numéro de série du disque dur [ par mohapop ]
Bon , c'est la vie j'ai un problème trés simple je veut un ActiveX qui m'envoyer le numèro de série de la disque dur (sous VB bien
Numéro de série du disque dur [ par Jujufouq ]
Salut tout le monde, j'aurais besoin de votre aide :Savez-vous comment trouver le numéro de série d'un disque dur en vb6?Merci d'avance à tous.Jujufou
numéro de série du disque dur [ par oudjedi ]
salut , je m'appel babi , j'ai un petite problem comment réstorer ( connétre ) le numéro de série du disque dur ( constructeur ) , avec un delphi
Numéro de série réel du disque dur [ par catisback ]
Bonjour à tous,Quelqu'un connaitrait-il le moyen de récupérer le numéro de série d'un disque dur (LE VRAI pas celui cré&
Numéro de série disque dur [ par DD05 ]
Bonjour, Je recherche une méthode pour trouver le numéro de série du disque dur. Il y a quelques codes sur le forum mais ces codes ne donnent pas le v
Formatage [ par Sinsitrus ]
Salut à tousje ne sais pas si vous avez remarqués mais sûrement ce fut le cas, quand on achète un disque dur et on y met le systeme, certains logiciel
Récupérer le serialnumber d'un PC portable [ par lolokun ]
Bonjour à tous,Tout d'abord je tenais à féliciter les admins et les membres réguliers car ce forum est vraiment très bien et j'ai appris beaucoup de c
Numéro de Série [ par metalcoder ]
Bonjour a tous, comment fait on pour convertir le numéro de serie que l'on trouve avec la fonction drive.serialnumber de l'objet FSO en un numero du
numéro de série [ par mas_atef ]
comment modifier le numéro de série d'un disque dur ?
|
Derniers Blogs
MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril SHAREPOINT 15 TECHNICAL PREVIEW MANAGED OBJECT MODEL SOFTWARE DEVELOPMENT KITSHAREPOINT 15 TECHNICAL PREVIEW MANAGED OBJECT MODEL SOFTWARE DEVELOPMENT KIT par Matthew
http://www.microsoft.com/download/en/details.aspx?id=28768&utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+MicrosoftDownloadCenter+(Microsoft+Download+Center) ...
Cliquez pour lire la suite de l'article par Matthew
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|