Simple Computer Info.

• Download source files - 1.91 Kb
• Download demo project - 13 Kb

Introduction

This is the meat of the program. If you need more, then download the project. It's only 25K.

    Public sAppName As String = "Registry Tester"
    Public sRegSection As String = "Startup"
    Public sXpos As String = "StartPos X"
    Public sYpos As String = "StartPos Y"

    Public Sub New()
        MyBase.New()
        Dim X, Y As Integer
        X = GetSetting(sAppName, sRegSection, sXpos, CInt(100))
        Y = GetSetting(sAppName, sRegSection, sYpos, CInt(250))
        Me.Location = New Drawing.Point(X, Y)
        Me.StartPosition = FormStartPosition.Manual
        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, _
      ByVal e As System.ComponentModel.CancelEventArgs) _
      Handles MyBase.Closing
        Dim X, Y As Integer
        X = Me.Location.X
        Y = Me.Location.Y
        SaveSetting(sAppName, sRegSection, sXpos, X)
        SaveSetting(sAppName, sRegSection, sYpos, Y)
    End Sub

    Private Sub btnDo_Click(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles btnDo.Click
        lblOsVersion.Text = Environment.OSVersion.ToString
        lblUser.Text = Environment.UserName.ToString
        lblRuntime.Text = Environment.Version.ToString
        lblUptime.Text = Mid((Environment.TickCount / 3600000), 1, 5) & " :Hours"
    End Sub

    Private Sub btnGetRoot_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles btnGetRoot.Click
        lblSystemRoot.Text = _
            Environment.GetFolderPath(Environment.SpecialFolder.System).ToString
    End Sub

This project started out from reading "Coding Techniques For Visual Basic .NET". But then I got side tracked on the registry to save app settings. And then I got into the Environment class and all of its glory. I have seen a lot of code written to get uptime and so on, but they were a lot more than this. I hope someone likes it.

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here