none
Como mostrar em um listbox as configurações do computador? RRS feed

Respostas

  • opa blz , bom segue aii ;) 

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            ListBox1.Items.Add("Modelo do computador :  " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\BIOS").GetValue("SystemProductName").ToString)
            ListBox1.Items.Add("Fabricante :  " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\BIOS").GetValue("SystemManufacturer").ToString)
            ListBox1.Items.Add("Versão da Bios :  " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\BIOS").GetValue("BIOSVersion").ToString)
            ListBox1.Items.Add("Sistema Operacional :  " & My.Computer.Info.OSFullName.ToString)
            ListBox1.Items.Add("Versão do windows :  " & My.Computer.Info.OSVersion.ToString)
            ListBox1.Items.Add("Memoria :  " & CInt(My.Computer.Info.TotalPhysicalMemory.ToString / 1024 / 1024 / 1024) & " GB")
            ListBox1.Items.Add("Processador :  " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\CentralProcessor\0").GetValue("ProcessorNameString").ToString)
            ListBox1.Items.Add("Familia do processador :  " & My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\CentralProcessor\0").GetValue("Identifier").ToString)
            ListBox1.Items.Add("Nome do Computador :  " & My.Computer.Name.ToString)
        End Sub

    espero ter ajudado;)


    AleSaggiorato

    sexta-feira, 28 de dezembro de 2012 02:17