Infos systèmes avec VB.Net
Version : Visual Basic 2005 Express Edition
Niveau : débutant
Cetutorial ressence les commandes simples de VB.Net quipermettentd'obtenir les infos systèmes les plus courantes le plussimplement dumonde (sauf quelques cas particuliers d'adaptation maison;-). Chaqueinformation est stockée dans une variable ou un tableau pouruneutilisation directe (copier/coller). J'ai essayé de déterminélemeilleur type pour chaque variable pour une 'pico-optimisation' delamémoire. Voilà, j'espère que ce tutorial aidera les débutantsen.Net...
///////////////////////////////////
# INFORMATIONS SUR LE MATERIEL
///////////////////////////////////
-----------------------------------
+ MEMOIRE
-----------------------------------
Ces variables sont exprimées en octets. Pour les convertir en Mo :
Variable = Int(Variable / (1024) ^ 2)
- Mémoire physique totale (en octets) :
Dim MemoirePhysiqueTotale as UInteger = My.Computer.Info.TotalPhysicalMemory
- Mémoire physique disponible (en octets) :
Dim MemoirePhysiqueDisponible as UInteger = My.Computer.Info.AvailablePhysicalMemory
- Mémoire virtuelle totale (en octets) :
Dim MemoireVirtuelleTotale As UInteger = My.Computer.Info.TotalVirtualMemory
- Mémoire virtuelle disponible (en octets) :
Dim MemoireVirtuelleDisponible As UInteger = My.Computer.Info.AvailableVirtualMemory
-----------------------------------
+ ECRAN
-----------------------------------
- Résolution horizontale (en pixels) :
Dim ResolutionHorizontale as Short = Screen.PrimaryScreen.Bounds.Width
- Résolution verticale (en pixels) :
Dim ResolutionHorizontale as Short = Screen.PrimaryScreen.Bounds.Height
- Définition des couleurs (en bits par pixel) :
Dim CouleursDefinition as Byte = Screen.PrimaryScreen.BitsPerPixel
-----------------------------------
+ SOURIS
-----------------------------------
- Présence d'une molette (vrai ou faux) :
Dim MoletteSouris As Boolean = My.Computer.Mouse.WheelExists
- Test d'inversion des boutons (vrai ou faux) :
Dim InversionBoutonsSouris As Boolean = My.Computer.Mouse.ButtonsSwapped
-----------------------------------
+ CLAVIER
-----------------------------------
- Test du verrouillage numérique 'Verr num' (vrai ou faux) :
Dim ClavierToucheNumLock As Boolean = My.Computer.Keyboard.NumLock
- Test du verrouillage des majuscules 'Caps Lock' (vrai ou faux) :
Dim ClavierToucheCapsLock As Boolean = My.Computer.Keyboard.CapsLock
- Test du défilement 'Arrêt défil' (vrai ou faux) :
Dim ClavierToucheArretDefil As Boolean = My.Computer.Keyboard.ScrollLock
-----------------------------------
+ PORTS SERIES
-----------------------------------
- Nombre de ports séries présents :
Dim NombrePortsSeries As Byte = My.Computer.Ports.SerialPortNames.Count
- Nom des ports séries présents :
Lesinformations sont stockées dans le tableau'InfosPortsSeries' quicommence à l'index 1 (dans la boucle'for...next' :InfosPortsSeries(Compteur + 1) = ...') dans le butd'avoir le 'COM1' àl'index 1, le 'COM2' à l'index 2, etc.
Dim NombrePortsSeries As Byte = My.Computer.Ports.SerialPortNames.Count
Dim InfosPortsSeries(NombrePortsSeries) As String
Dim Compteur As Byte
For Compteur = 0 To NombrePortsSeries - 1
InfosPortsSeries(Compteur + 1) = My.Computer.Ports.SerialPortNames.Item(Compteur).ToString
Next
-----------------------------------
+ LECTEURS (HD,CD,DVD,FLOPPY...)
-----------------------------------
- Nombre de lecteurs présents :
Dim NombreLecteurs As Byte = My.Computer.FileSystem.Drives.Count
- Informations sur les lecteurs présents :
Les informations sont stockées dans le tableau 'InfosLecteurs' de dimensions (nombre de lecteurs, 8).
Chaque ligne du tableau représente un lecteur (dans l'ordre alphabetique)
La colonne n°0 coresspond à la lettre du lecteur (ex: 'c:\', 'd:\', 'z:\", etc.)
La colonne n°1 correspond à la disponibilité du lecteur (ex: un lecteur de cd-rom est indisponible si il n'y a pas de cd inséré)
Lacolonne n°2 correspond au type de lecteur (ex: 2 = Disqueamovible(lecteur carte mémoire, clé USB), 3 = Disque local, 5 =lecteurCD-Rom/DVD/Graveur, etc.)
La colonne n° 3 correspond au format du lecteur (ex: FAT16, FAT32, NTFS, etc.)
La colonne n°4 correspond à la taille du volume (en octets)
La colonne n°5 correspond à la taille totale du disque (en octets)
La colonne n°6 correspond à la taille de l'espace libre total (en octets)
La colonne n°7 correspond à la taille de l'espace libre disponible (en octets)
Parexemple, la taille totale du premier lecteur reconnu ('A:' ou 'B:'si unlecteur de disquettes est présent, 'C:' s'il n'y a pas de lecteurdedisquette) sera stocké dans la variable InfosLecteurs(0,5).
La commande 'on error' est indispensable pour éviter les messages d'erreurs dûs à un lecteur indisponible.
On Error Resume Next
Dim NombreLecteurs As Byte = My.Computer.FileSystem.Drives.Count
Dim NomsLecteurs As System.Collections.ObjectModel.ReadOnlyCollection(Of System.IO.DriveInfo)
Dim InfosLecteurs(NombreLecteurs, 8) As String
Dim Compteur As Byte = 1
'on commence les lignes du tableau à 1
NomsLecteurs = My.Computer.FileSystem.Drives
For Each info As System.IO.DriveInfo In NomsLecteurs
InfosLecteurs(Compteur, 0) = info.Name
InfosLecteurs(Compteur, 1) = info.IsReady
InfosLecteurs(Compteur, 2) = info.DriveType
InfosLecteurs(Compteur, 3) = info.DriveFormat
InfosLecteurs(Compteur, 4) = info.VolumeLabel
InfosLecteurs(Compteur, 5) = info.TotalSize
InfosLecteurs(Compteur, 6) = info.TotalFreeSpace
InfosLecteurs(Compteur, 7) = info.AvailableFreeSpace
Compteur = Compteur + 1
Next
Pour convertir les tailles en Mo, on utilisera la commande (uniquement pour les colonnes 5, 6 et 7):
Val(InfosLecteurs(Ligne,Colonne)) / (1024) ^ 2
///////////////////////////////////
# INFORMATIONS SUR LE RESEAU
///////////////////////////////////
- Nom complet de l'ordinateur :
Dim ComputerName As String = Mid(My.User.Name, 1, My.User.Name.IndexOf("\"))
- Nom d'utilisateur :
Dim UserName As String = Mid(My.User.Name, My.User.Name.IndexOf("\") + 2, Len(My.User.Name))
- Test de connexion à Internet (vrai ou faux) :
Dim ConnectionReseau As Boolean = My.Computer.Network.IsAvailable
///////////////////////////////////
# INFORMATIONS SUR L'OS
///////////////////////////////////
- Nom complet du système d'exploitation :
Dim SystemeExploitation As String = My.Computer.Info.OSFullName
- Version du système d'exploitation :
Dim VersionSystemeExploitation As String = My.Computer.Info.OSVersion
- Plate-forme du système d'exploitation :
Dim SystemePlateforme As String = My.Computer.Info.OSPlatform