cpu info

whats is needed 




20 text boxes

double click form1

now paste under form1_load
Note if u dont want to use the class just del the doom text change to textbox

Code:

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DoomTextBox1.Text = My.User.Name
        DoomTextBox2.Text = My.Computer.Name
        DoomTextBox3.Text = My.Computer.Info.AvailablePhysicalMemory
        DoomTextBox4.Text = My.Computer.Info.AvailableVirtualMemory
        DoomTextBox5.Text = My.Computer.Info.OSFullName
        DoomTextBox6.Text = My.Computer.Info.OSPlatform
        DoomTextBox7.Text = My.Computer.Info.OSVersion
        DoomTextBox8.Text = My.Computer.Info.TotalPhysicalMemory
        DoomTextBox9.Text = My.Computer.Info.TotalVirtualMemory
        DoomTextBox10.Text = My.Computer.Clipboard.GetText
        DoomTextBox11.Text = My.Computer.Clock.LocalTime
        DoomTextBox12.Text = My.Computer.FileSystem.CurrentDirectory
        DoomTextBox13.Text = My.Computer.Keyboard.CapsLock
        DoomTextBox14.Text = My.Computer.Keyboard.NumLock
        DoomTextBox15.Text = My.Computer.Keyboard.ScrollLock
        DoomTextBox16.Text = My.Computer.Mouse.WheelExists
        '   ComboBoxEx1.Items.AddRange(System.IO.Directory.GetLogicalDrives)
        '  ComboBoxEx1.Text = ComboBoxEx1.Items(0)
        DoomTextBox17.Text = My.Computer.Info.InstalledUICulture.ToString()
        '=============================================
        'Do NOT Edit This Part Please!
        DoomTextBox18.Text = "virus"
        'Do NOT Edit This Part Please!
        '=============================================
    End Sub

  Cpu_info.zip (Size: 197.21 KB / Downloads: 0)

* This article was originally published here