Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Information PC VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 13:53 (2011)    Sujet du message: Information PC VB.net Répondre en citant

Bonjour à tous

Voici un petit programme qui donne des infos sur le PC.


• Aperçu :



• Code :


  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         Timer1.Start()  
  5.     End Sub  
  6.   
  7.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  8.         Button2.Enabled = False  
  9.         Button3.Enabled = True  
  10.   
  11.         Label1.Text = "Nom de l'ordinateur :"  
  12.         Label2.Text = "Nom de l'utilisateur :"  
  13.         Label3.Text = "Nom du système d'exploitation :"  
  14.         Label4.Text = "Verrouillage majuscule :"  
  15.         Label5.Text = "Présence d'une roue de défilement :"  
  16.         Label6.Text = "Zone de travail :"  
  17.         Label7.Text = "Connection au réseau :"  
  18.         Label8.Text = "Nom de l'utilisateur actuellement connecté :"  
  19.         Label9.Text = "Nom du domaine réseau :"  
  20.         Label10.Text = "Nom de l'écran :"  
  21.         Label11.Text = "Date et heure :"  
  22.         Label12.Text = "Mémoire physique libre :"  
  23.         Button1.Text = "Afficher les informations"  
  24.         Button2.Text = "Français"  
  25.         Button3.Text = "Anglais"  
  26.         GroupBox1.Text = "Informations concernant l'ordinateur"  
  27.     End Sub  
  28.   
  29.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  30.         Button2.Enabled = True  
  31.         Button3.Enabled = False  
  32.   
  33.         Label1.Text = "Computer Name :"  
  34.         Label2.Text = "Username :"  
  35.         Label3.Text = "OS Name :"  
  36.         Label4.Text = "Caps Lock Checker :"  
  37.         Label5.Text = "Mouse Wheel Checker :"  
  38.         Label6.Text = "Working Area :"  
  39.         Label7.Text = "Connected to a network :"  
  40.         Label8.Text = "Current User :"  
  41.         Label9.Text = "Current Domain :"  
  42.         Label10.Text = "Display Name :"  
  43.         Label11.Text = "Local Time :"  
  44.         Label12.Text = "Physical Memory :"  
  45.         Button1.Text = "Get info"  
  46.         Button2.Text = "French"  
  47.         Button3.Text = "English"  
  48.         GroupBox1.Text = "Info PC"  
  49.     End Sub  
  50.   
  51.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  52.         Button2.PerformClick()  
  53.     End Sub  
  54.   
  55.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  56.         TextBox1.Text = (System.Environment.MachineName)  
  57.         TextBox2.Text = (System.Environment.UserName)  
  58.         TextBox3.Text = (My.Computer.Info.OSFullName)  
  59.         TextBox4.Text = (My.Computer.Keyboard.CapsLock)  
  60.         TextBox5.Text = (My.Computer.Mouse.WheelExists)  
  61.         TextBox6.Text = My.Computer.Screen.WorkingArea.ToString  
  62.         TextBox7.Text = My.Computer.Network.IsAvailable  
  63.         TextBox8.Text = System.Environment.UserName  
  64.         TextBox9.Text = System.Environment.UserDomainName  
  65.         TextBox10.Text = (My.Computer.Screen.DeviceName)  
  66.         TextBox11.Text = (My.Computer.Clock.LocalTime)  
  67.         TextBox12.Text = My.Computer.Info.AvailablePhysicalMemory  
  68.     End Sub  
  69.   
  70.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  71.         TextBox1.Text = ""  
  72.         TextBox2.Text = ""  
  73.         TextBox3.Text = ""  
  74.         TextBox4.Text = ""  
  75.         TextBox5.Text = ""  
  76.         TextBox6.Text = ""  
  77.         TextBox7.Text = ""  
  78.         TextBox8.Text = ""  
  79.         TextBox9.Text = ""  
  80.         TextBox10.Text = ""  
  81.         TextBox11.Text = ""  
  82.         TextBox12.Text = ""  
  83.     End Sub  
  84.   
  85. End Class  








Lien Pastebin : http://pastebin.com/0hrLuSFD


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 13:53 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com