[.net 2] information générale et utile pour l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 978 fois - Téléchargée 32 fois

Contenu du snippet

Vous cherchez des infos sur votres souris, écran, clavier ou encore sur les ports, ne cherchez plus j'ai ce qu'il vous faut !!! En regardant dans l'aide fournit par VB
j'ai trouvé plein d'info disponible sur l'ordinateur. mettez le code dans un bouton click juste pour voir ce que cela donne. J'ai pas eu le temps de tous regarder mais il y en a encore beaucoup plus dans ca : Microsoft.VisualBasic.MyServices.

Source / Exemple :


Dim a As New Microsoft.VisualBasic.MyServices.MyComputer
 MsgBox("OSFullName. = " + a.Info.OSFullName.ToString + Chr(10) + "OSPlatform. = " + a.Info.OSPlatform.ToString + Chr(10) + "OSVersion. = " + a.Info.OSVersion.ToString _
        + Chr(10) + "StackTrace. = " + a.Info.OSVersion.ToString + Chr(10) + "TotalPhysicalMemory. = " + a.Info.TotalPhysicalMemory.ToString _
        + Chr(10) + "TotalVirtualMemory. = " + a.Info.TotalVirtualMemory.ToString + Chr(10) + "User name. = " + a.Info.UserName.ToString + Chr(10) + "Working set = " + a.Info.WorkingSet.ToString _
        + a.Clock.GmtTime.ToString() + Chr(10) + "Mémoire physique accessible = " + a.Info.AvailablePhysicalMemory.ToString + Chr(10) + "Mémoire virtuel accessible = " + a.Info.AvailableVirtualMemory.ToString _
+ Chr(10) + "Calendrier = " + a.Info.InstalledUICulture.Calendar.ToString + Chr(10) + "Display name = " + a.Info.InstalledUICulture.DisplayName.ToString _
        + Chr(10) + "KeyboardLayoutID = " + a.Info.InstalledUICulture.KeyboardLayoutID.ToString + Chr(10) + "Culture name = " + a.Info.InstalledUICulture.Name.ToString + Chr(10) + "Asci code page = " + a.Info.InstalledUICulture.TextInfo.ANSICodePage.ToString _
        + Chr(10) + "ThreeLetterISOLanguageName = " + a.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + Chr(10) + "ThreeLetterWindowsLanguageName. = " + a.Info.InstalledUICulture.ThreeLetterWindowsLanguageName.ToString + Chr(10) + "Nom de la machine = " + a.Info.MachineName.ToString)

A voir également

Ajouter un commentaire Commentaires
Messages postés
463
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010

il vaut mieux ajouter
Imports System
Imports System.ComponentModel

et utilisé environment et/ou My.computer.info avec par exemple :
MsgBox("OSFullName. " + My.Computer.Info.OSFullName.ToString + Chr(10) + "OSPlatform. " + My.Computer.Info.OSPlatform.ToString + Chr(10) + "OSVersion. = " + My.Computer.Info.OSVersion.ToString _
+ Chr(10) + "StackTrace. " + My.Computer.Info.OSVersion.ToString + Chr(10) + "TotalPhysicalMemory. " + My.Computer.Info.TotalPhysicalMemory.ToString _
+ Chr(10) + "TotalVirtualMemory. " + My.Computer.Info.TotalVirtualMemory.ToString + Chr(10) + "User name. " + Environment.UserName + Chr(10) + "Working set = " + Environment.WorkingSet.ToString _
+ My.Computer.Clock.GmtTime.ToString() + Chr(10) + "Mémoire physique accessible " + My.Computer.Info.AvailablePhysicalMemory.ToString + Chr(10) + "Mémoire virtuel accessible " + My.Computer.Info.AvailableVirtualMemory.ToString _
+ Chr(10) + "Calendrier " + My.Computer.Info.InstalledUICulture.Calendar.ToString + Chr(10) + "Display name " + My.Computer.Info.InstalledUICulture.DisplayName.ToString _
+ Chr(10) + "KeyboardLayoutID " + My.Computer.Info.InstalledUICulture.KeyboardLayoutId.ToString + Chr(10) + "Culture name " + My.Computer.Info.InstalledUICulture.Name.ToString + Chr(10) + "Asci code page = " + My.Computer.Info.InstalledUICulture.TextInfo.ANSICodePage.ToString _
+ Chr(10) + "ThreeLetterISOLanguageName " + My.Computer.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + Chr(10) + "ThreeLetterWindowsLanguageName. " + My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName.ToString + Chr(10) + "Nom de la machine = " + Environment.MachineName)
Messages postés
192
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
10 août 2009

J'ai MS Visual basic express 2005 et Microsoft.VisualBasic.MyServices.MyComputer ne marche pas. Il me le souligne et quand je compile et me dit qu'il y a des erreur.
Messages postés
10
Date d'inscription
mardi 22 juin 2004
Statut
Membre
Dernière intervention
28 mai 2005

désolé j'ai oublié de préciser que je marche avec le framework 2.0 et VB 2005 c pour ca que cela ne marche pas pour tout le monde
Messages postés
370
Date d'inscription
dimanche 28 mars 2004
Statut
Membre
Dernière intervention
13 avril 2007

Messages postés
831
Date d'inscription
samedi 15 mai 1999
Statut
Modérateur
Dernière intervention
18 juillet 2009

Tu peux avoir les 2 sur ta machine normalement ca ne pose aucun pb.
Par contre une application faite en .NET 2 tournera avec le framework 2.0
Mais tu peux continuer à faire des appli/sites avec VS2003 en .NET 1.1 qui tourneront avec le framework .NET 1.1
Afficher les 9 commentaires

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.