by George Maier (2 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Thu 20th December 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Computer info displayer
VBcoders
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