From 996b7ea76ea4a904e7ce3d78166eaad6e8c1179d Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 9 Mar 2015 20:18:19 -0400 Subject: Added new Sys Info feature Added System Info 'Dump to Text File' button onto the System Info form. Don't worry, it's all working. --- ShiftOS/File Saver.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'ShiftOS/File Saver.vb') diff --git a/ShiftOS/File Saver.vb b/ShiftOS/File Saver.vb index 1445c65..bf7a0e3 100644 --- a/ShiftOS/File Saver.vb +++ b/ShiftOS/File Saver.vb @@ -546,7 +546,7 @@ Public Class File_Saver End Select Select Case savingprogram - Case "textpad" + Case "textpad", "sysinf" If fileex = ".txt" Then lvfiles.Items.Add(filename, filetype) Case "skinloader" If fileex = ".skn" Then lvfiles.Items.Add(filename, filetype) @@ -657,6 +657,20 @@ Public Class File_Saver If txtfilename.Text = "" Then Else Select Case savingprogram + Case "sysinf" + Dim sw As New IO.StreamWriter(lbllocation.Text & "/" & txtfilename.Text & ".txt") + sw.WriteLine("### SHIFTOS SYSTEM INFORMATION DUMP ###") + sw.WriteLine(" ") + sw.WriteLine("ShiftOS Version: " & ShiftOSDesktop.ingameversion) + sw.WriteLine("User Name: " & ShiftOSDesktop.username) + Dim PrcName As String + + PrcName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing) + sw.WriteLine("CPU: " & PrcName) + sw.WriteLine("Random Access Memory (RAM): " & (String.Format("{0} Megabytes", System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)), 2).ToString)) + sw.Close() + Me.Close() + ShiftOSDesktop.refreshIcons() Case "textpad" My.Computer.FileSystem.WriteAllText(lbllocation.Text & "/" & filename, TextPad.txtuserinput.Text, False) TextPad.needtosave = False -- cgit v1.2.3