Added the SOS code (VB and C#)

Very, very incomplete (C# isn't *remotely* complete.)

1 files changed, 205 insertions, 0 deletions

diff --git a/ShiftOS/crash.vb b/ShiftOS/crash.vb
new file mode 100644
index 0000000..4b82d4d
--- /dev/null
+++ b/ShiftOS/crash.vb
@@ -0,0 +1,205 @@
+Imports System.Diagnostics
+Imports System.Math
+Module crash
+
+    Public Sub ForceCrash()
+        crash_pic.Show()
+
+        ShiftOSDesktop.Close()
+        ArtPad.Close()
+        Audio_Player.Close()
+        Bitnote_Digger.Close()
+        Bitnote_Wallet.Close()
+        Calculator.Close()
+        Clock.Close()
+        coherencemodeform.Close()
+        Colour_Picker.Close()
+        Dodge.Close()
+        Downloader.Close()
+        Downloadmanager.Close()
+        File_Opener.Close()
+        File_Saver.Close()
+        File_Skimmer.Close()
+        FloodGate_Manager.Close()
+        Graphic_Picker.Close()
+        Icon_Manager.Close()
+        infobox.Close()
+        Installer.Close()
+        Knowledge_Input.Close()
+        Labyrinth.Close()
+        Name_Changer.Close()
+        OrcWrite.Close()
+        Pong.Close()
+        ShiftDock.Close()
+        Shifter.Close()
+        Shiftnet.Close()
+        Shiftorium.Close()
+        Skin_Loader.Close()
+        Skinshifter.Close()
+        Snakey.Close()
+        SystemInfo.Close()
+        Terminal.Close()
+        TextPad.Close()
+        Video_Player.Close()
+        VirusScanner.Close()
+        Web_Browser.Close()
+
+        crash_pic.pic_crash.Image = My.Resources.crash_force
+    End Sub
+
+    Public Sub OutOfMemory()
+        crash_pic.Show()
+
+        ShiftOSDesktop.Close()
+        ArtPad.Close()
+        Audio_Player.Close()
+        Bitnote_Digger.Close()
+        Bitnote_Wallet.Close()
+        Calculator.Close()
+        Clock.Close()
+        coherencemodeform.Close()
+        Colour_Picker.Close()
+        Dodge.Close()
+        Downloader.Close()
+        Downloadmanager.Close()
+        File_Opener.Close()
+        File_Saver.Close()
+        File_Skimmer.Close()
+        FloodGate_Manager.Close()
+        Graphic_Picker.Close()
+        Icon_Manager.Close()
+        infobox.Close()
+        Installer.Close()
+        Knowledge_Input.Close()
+        Labyrinth.Close()
+        Name_Changer.Close()
+        OrcWrite.Close()
+        Pong.Close()
+        ShiftDock.Close()
+        Shifter.Close()
+        Shiftnet.Close()
+        Shiftorium.Close()
+        Skin_Loader.Close()
+        Skinshifter.Close()
+        Snakey.Close()
+        SystemInfo.Close()
+        Terminal.Close()
+        TextPad.Close()
+        Video_Player.Close()
+        VirusScanner.Close()
+        Web_Browser.Close()
+
+        crash_pic.pic_crash.Image = My.Resources.crash_ofm
+    End Sub
+
+    Public Sub ThePlagueBSOD()
+        crash_pic.Show()
+
+        ShiftOSDesktop.Close()
+        ArtPad.Close()
+        Audio_Player.Close()
+        Bitnote_Digger.Close()
+        Bitnote_Wallet.Close()
+        Calculator.Close()
+        Clock.Close()
+        coherencemodeform.Close()
+        Colour_Picker.Close()
+        Dodge.Close()
+        Downloader.Close()
+        Downloadmanager.Close()
+        File_Opener.Close()
+        File_Saver.Close()
+        File_Skimmer.Close()
+        FloodGate_Manager.Close()
+        Graphic_Picker.Close()
+        Icon_Manager.Close()
+        infobox.Close()
+        Installer.Close()
+        Knowledge_Input.Close()
+        Labyrinth.Close()
+        Name_Changer.Close()
+        OrcWrite.Close()
+        Pong.Close()
+        ShiftDock.Close()
+        Shifter.Close()
+        Shiftnet.Close()
+        Shiftorium.Close()
+        Skin_Loader.Close()
+        Skinshifter.Close()
+        Snakey.Close()
+        systeminfo.Close()
+        Terminal.Close()
+        TextPad.Close()
+        Video_Player.Close()
+        VirusScanner.Close()
+        Web_Browser.Close()
+
+        crash_pic.pic_crash.Image = My.Resources.crash
+    End Sub
+
+    Public Sub FindProc()
+        Dim myProcesses() As Process = Process.GetProcesses
+
+        For Each p As Process In myProcesses
+            If p.MainWindowTitle.Contains("Cheat Engine") Then
+                If My.Settings.ShouldCrashOccur = 3 Then
+                    crash_pic.Show()
+
+                    ShiftOSDesktop.Close()
+                    ArtPad.Close()
+                    Audio_Player.Close()
+                    Bitnote_Digger.Close()
+                    Bitnote_Wallet.Close()
+                    Calculator.Close()
+                    Clock.Close()
+                    coherencemodeform.Close()
+                    Colour_Picker.Close()
+                    Dodge.Close()
+                    Downloader.Close()
+                    Downloadmanager.Close()
+                    File_Opener.Close()
+                    File_Saver.Close()
+                    File_Skimmer.Close()
+                    FloodGate_Manager.Close()
+                    Graphic_Picker.Close()
+                    Icon_Manager.Close()
+                    infobox.Close()
+                    Installer.Close()
+                    Knowledge_Input.Close()
+                    Labyrinth.Close()
+                    Name_Changer.Close()
+                    OrcWrite.Close()
+                    Pong.Close()
+                    ShiftDock.Close()
+                    Shifter.Close()
+                    Shiftnet.Close()
+                    Shiftorium.Close()
+                    Skin_Loader.Close()
+                    Skinshifter.Close()
+                    Snakey.Close()
+                    SystemInfo.Close()
+                    Terminal.Close()
+                    TextPad.Close()
+                    Video_Player.Close()
+                    VirusScanner.Close()
+                    Web_Browser.Close()
+
+                    crash_pic.pic_crash.Image = My.Resources.crash_force
+                Else
+                    If My.Settings.ShouldCrashOccur = 0 Then
+                        My.Settings.ShouldCrashOccur = 1
+                    ElseIf My.Settings.ShouldCrashOccur = 1 Then
+                        My.Settings.ShouldCrashOccur = 2
+                    ElseIf My.Settings.ShouldCrashOccur = 2 Then
+                        My.Settings.ShouldCrashOccur = 3
+                    End If
+                    p.CloseMainWindow()
+                    infobox.title = "System Modification Detected!"
+                    infobox.textinfo = "A dangerous modification to ShiftOS has been detected. It has been terminated."
+                    infobox.Show()
+                End If
+            End If
+        Next
+
+    End Sub
+End Module