Computer Stats Checker

if you want me to add anything tell me. or add it yourself :P

well i did this simple program just for learning.
ⓘ



you need

• 1 timer
• 15 Text Box's
• 2 buttons

 

source code

Public
ClassForm1



PrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text =
My.User.Name

TextBox2.Text =
My.Computer.Info.OSFullName

TextBox3.Text =
My.Computer.Info.OSPlatform

TextBox4.Text =
My.Computer.Info.OSVersion

TextBox5.Text =
My.Computer.Info.TotalPhysicalMemory

TextBox6.Text =
My.Computer.Info.TotalVirtualMemory

TextBox7.Text =
My.Computer.Info.AvailableVirtualMemory

TextBox8.Text =
My.Computer.Info.AvailablePhysicalMemory

TextBox9.Text =
My.Computer.Keyboard.CapsLock

TextBox10.Text =
My.Computer.Keyboard.NumLock

TextBox11.Text =
My.Computer.Keyboard.ScrollLock

TextBox12.Text =
My.Computer.Screen.Bounds.Width

TextBox14.Text =
My.Computer.Screen.Bounds.Height


EndSub


　

　


PrivateSub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox8.Clear()

TextBox9.Clear()

TextBox10.Clear()

TextBox11.Clear()

TextBox12.Clear()

TextBox14.Clear()


EndSub



PrivateSub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Timer1.Start()


EndSub


PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


TextBox13.Text =
DateTime.Now.ToLongDateString()

TextBox15.Text =
DateTime.Now.ToLongTimeString()



EndSub


End
Class

 

Viris Scans

https://www.virustotal.com/file/7069...is/1336267653/ⓘ
Stats App.zip MD5:2247bd00abced3f9154bac3e5cc72bbd - VirSCAN.org Scanners did not find malware!ⓘ

i realy hope you can learn from this