Tuto VB pour creer un "os finder"
Fonction : Donner les information sur un Pc en un seul clique de souris ;)
Comment sa marche ?
Il suffit de cliquer sur le bouton entrer ! ^^
Tout de suite une petite présentation .
Prés requis :
1- 4 labels + 4 textbox + 1 bouton
label1 = Version Os + textbox1
label2 = Buil Os + textbox2
label3 = Path + textbox3
label4 = Id produit + textbox4
Screen :
2- Clicker sur le bouton1 et insérer dessous : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim readValue As String
readValue = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion", Nothing)
TextBox1.Text = readValue
readValue = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "buildlab", Nothing)
TextBox2.Text = readValue
readValue = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "PathName", Nothing)
TextBox3.Text = readValue
readValue = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId", Nothing)
TextBox4.Text = readValue
Voila vous avez fini votre programme !
Articles
