C# [C#] Source Code Computer Info [No Download]

Code

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using System.Security.Principal;

using System.Net;

using System.Management;







namespace Computer_Info

{

    public partial class Form1 : Form

    {

        public Form1()

        {

            InitializeComponent();

        }



        private void button2_Click(object sender, EventArgs e)

        {

            label2.Text = "";

            label4.Text = "";

            label6.Text = "";

            label8.Text = "On/Off";

        }



        private void groupBox1_Enter(object sender, EventArgs e)

        {



        }



        private void button1_Click(object sender, EventArgs e)

        {

            string computername;



            computername = WindowsIdentity.GetCurrent().Name.ToString();

            label2.Text = computername;



            string user;



            user = Dns.GetHostName();

            label4.Text = user;



            string os;



            os = System.Environment.OSVersion.ToString();



            label6.Text = os;



            bool capslock;

            

            capslock = Console.CapsLock;



            if (capslock == true)

            {

                label8.Text = "On";

            }

            else

            {

label8.Text = "Off";

            }



        }





        private void Form1_Load(object sender, EventArgs e)

        {

          

        }

    }

}

Code

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Linq

Imports System.Text

Imports System.Windows.Forms

Imports System.Security.Principal

Imports System.Net

Imports System.Management



Namespace Computer_Info

    Public Partial Class Form1

        Inherits Form

        Public Sub New()

            InitializeComponent()

        End Sub



        Private Sub button2_Click(sender As Object, e As EventArgs)

            label2.Text = ""

            label4.Text = ""

            label6.Text = ""

            label8.Text = "On/Off"

        End Sub



        Private Sub button1_Click(sender As Object, e As EventArgs)

            Dim computername As String



            computername = WindowsIdentity.GetCurrent().Name.ToString()

            label2.Text = computername



            Dim user As String



            user = Dns.GetHostName()

            label4.Text = user



            Dim os As String



            os = System.Environment.OSVersion.ToString()



            label6.Text = os



            Dim capslock As Boolean



            capslock = Console.CapsLock



            If capslock = True Then

                label8.Text = "On"

            Else

                label8.Text = "Off"

            End If



        End Sub

    End Class

End Namespace