Vb6 affichage d'information système

Bonjour,

De plus ça ne fonctionnera pas avec VB6 ^^

Tu trouveras ton bonheur ici https://vb.developpez.com/faq/?page=Systeme

tu ma pas compris je pense
c'est juste un petit code qu'on le met sur un bouton de commande pour afficher une fenêtre windows qui contient les info du système
et pas un affichage sur les textbox ^^

Désole, je regardais si les liens marchaient mais non, regarde plus haut ^^

test quoi
je dois faire koi comme code

Source créée par moi :

Public Class Form1

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

End Sub

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = System.Environment.MachineName
TextBox2.Text = System.Environment.UserName
TextBox3.Text = My.Computer.Info.OSFullName
TextBox4.Text = My.Computer.Info.OSPlatform
TextBox5.Text = My.Computer.Info.OSVersion
TextBox6.Text = My.Computer.Info.InstalledUICulture.ToString

End Sub

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

End Class