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.