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

Stats App.zip

Computer Stats Checker

Post a Reply

Similar Threads

Tags for this Thread