• Home
 · 
• Miscellaneous
 · 
• Computer info displayer

Computer info displayer

Computer info displayer

Rate Computer info displayer

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Sub Main()
        Do
            Dim startTime As Double
            startTime = Timer
            Dim empty As String = ""
            Dim gmaier As String = "GMaier"
            Dim cpname As String = My.Computer.Name
            Dim osname As String = My.Computer.Info.OSFullName
            Dim physicalmem As String = My.Computer.Info.TotalPhysicalMemory
            Dim virtualmemory As String = My.Computer.Info.TotalVirtualMemory
            Dim avaliablephysical As String = My.Computer.Info.AvailablePhysicalMemory
            Dim avaliablevirtual As String = My.Computer.Info.AvailableVirtualMemory
            Dim osversion As String = My.Computer.Info.OSVersion
            Dim osplatform As String = My.Computer.Info.OSPlatform
            Dim setter As String = My.Computer.FileSystem.Drives.Count
            Dim isAvailable As Boolean
            isAvailable = My.Computer.Network.IsAvailable
            Dim freeSpace As Long
            freeSpace = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace
            Console.Clear()
            Console.WriteLine("GMaier Information Bench")
            Console.WriteLine(cpname)
            Console.WriteLine(osname & " " & osversion & " " & osplatform)
            Console.WriteLine("Drive Count: " & setter & " Free space on c: " & freeSpace)
            Console.WriteLine("Total Physical Memory: " & physicalmem & " Avaliable: " & avaliablephysical)
            Console.WriteLine("Total Virtual Memory: " & virtualmemory & " Avaliable: " & avaliablevirtual)
            Console.WriteLine("Network connection: " & isAvailable)
            Console.WriteLine(Date.Now)
            If physicalmem <= 1000 Then
                Console.WriteLine("System error detected, not enugh physical memory")
            End If
            If freeSpace <= 2000000 Then
                Console.WriteLine("The Problem could be due to the low amount of disk space avaliable on drive c:/ of your computer")
            End If
            Dim folderExists As Boolean
            folderExists = My.Computer.FileSystem.FileExists("C:/WINDOWS/_isres.dll") = False
            If folderExists = False Then
            Else
                MsgBox("MISSING WINDOWS DLL FILE!!!!!")
                MsgBox("C:/WINDOWS/_isres.dll is missing")
            End If
            Dim folderExistss As Boolean
            folderExistss = My.Computer.FileSystem.FileExists("C:/WINDOWS/system/MMSYSTEM.DLL") = False
            If folderExistss = False Then
            Else
                MsgBox("MISSING WINDOWS DLL FILE!!!!!")
                MsgBox("C:/WINDOWS/system/MMSYSTEM.DLL is missing")
            End If
            Dim folderExistsss As Boolean
            folderExistsss = My.Computer.FileSystem.FileExists("C:/WINDOWS/system/AVIFILE.DLL") = False
            If folderExistsss = False Then
            Else
                MsgBox("MISSING WINDOWS DLL FILE!!!!!")
                MsgBox("C:/WINDOWS/system/AVIFILE.DLL is missing")
            End If
            Dim setterr As String = My.Computer.FileSystem.Drives.Count
            If setterr < 1 Then
                MsgBox("Drive detection error!!!")
            End If
            Dim generator As New Random
            Dim randomValue As Integer
            randomValue = generator.Next(10, 100000)
            Dim randomValue2 As Integer
            randomValue2 = generator.Next(10, 100000)
            Dim randomValue3 As Integer
            randomValue3 = generator.Next(10, 100000)
            Dim randomValue4 As Integer
            randomValue4 = generator.Next(10, 100000)
            Dim randomValue5 As Integer
            randomValue5 = generator.Next(10, 100000)
            Dim answerone As String = randomValue + randomValue2 + randomValue3 + randomValue4 + randomValue5
            Dim answertwo As String = 9 + 1 + 20 + 30
            If answertwo = 60 Then
            Else
                MsgBox("Serius Computer Prosessing Error, COMPUTER SYSTEM MATH FAULT")
            End If
        Loop

    End Sub
End Module