+- Red Security (https://redsecurity.info/cc)
+-- Forum: Programming (https://redsecurity.info/cc/forumdisplay.php?fid=5)
+--- Forum: Visual Basic & .NET Framework (https://redsecurity.info/cc/forumdisplay.php?fid=17)
+---- Forum: Basic VB.net (https://redsecurity.info/cc/forumdisplay.php?fid=42)
+---- Thread: cpu info (/showthread.php?tid=1546)
cpu info - viruss - 08-12-2020
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: 218)