Module Viruses Public Sub startactiveviruses() If zerogravity Then setupzerovirus() If mousetrap Then setupmousetrapvirus() If beeper Then setupbeepervirus() If ThePlague Then setuptheplague() End Sub 'Zero Varibles Public WithEvents zerogravitytimer As New Timer Public zerogravity As Boolean = False Public zerogravitythreatlevel As Integer = 1 Public zerogravityxspeed(33) As Integer Public zerogravityyspeed(33) As Integer Public zerogravityspeedth1 = 1 Public zerogravityspeedth2 = 2 Public zerogravityspeedth3 = 4 Public zerogravityspeedth4 = 8 'Mouse Trap Varibles Public WithEvents mousetraptimer As New Timer Public WithEvents cooldowntraptimer As New Timer Public mousetrap As Boolean = False Public mousetrapthreatlevel As Integer = 1 Public mousetraped As Boolean = False Public bangstoescape As Integer = 20 Public trappedwindow As Integer = 0 Public bangvelocity As Integer Public bangforceneeded As Integer = 30 Public trapcooldown As Integer = 20 Public trap1 As Boolean = False Public trap2 As Boolean = False Public trap3 As Boolean = False Public trap4 As Boolean = False Public alreadytrapped As Boolean = False Public trappedprogram As Form Public bangstoescapeth1 As Integer = 20 Public bangstoescapeth2 As Integer = 40 Public bangstoescapeth3 As Integer = 60 Public bangstoescapeth4 As Integer = 80 Public bangforceneeded1 As Integer = 30 Public bangforceneeded2 As Integer = 50 Public bangforceneeded3 As Integer = 80 Public bangforceneeded4 As Integer = 120 Public trapcooldown1 As Integer = 60 Public trapcooldown2 As Integer = 30 Public trapcooldown3 As Integer = 15 Public trapcooldown4 As Integer = 10 'Beeper Varibles Public WithEvents beepertimer As New Timer Public beeper As Boolean = False Public beeperthreatlevel As Integer = 1 Public beepercountdown As Integer Dim ResourceFilePath As String Dim soundplayer As AxWMPLib.AxWindowsMediaPlayer Dim beeperinterval As Integer = 5 'ThePlague Variables Public WithEvents theplaguebsod As New Timer Public WithEvents theplaguetimer As New Timer Public RandomApplicationName As String Public theplaguethreatlevel As Integer = 1 Public ThePlague As Boolean = False Public ChanceOfDestroyThePlague As Integer 'Zero Virus Public Sub setupzerovirus() setupzerogravityspeeds() zerogravitytimer.Start() zerogravitytimer.Interval = 20 End Sub Public Sub setupzerogravityspeeds() For i = 0 To 33 If i Mod 2 <> 0 Then Select Case zerogravitythreatlevel Case 1 zerogravityxspeed(i) = zerogravityspeedth1 zerogravityyspeed(i) = zerogravityspeedth1 Case 2 zerogravityxspeed(i) = zerogravityspeedth2 zerogravityyspeed(i) = zerogravityspeedth2 Case 3 zerogravityxspeed(i) = zerogravityspeedth3 zerogravityyspeed(i) = zerogravityspeedth3 Case 4 zerogravityxspeed(i) = zerogravityspeedth4 zerogravityyspeed(i) = zerogravityspeedth4 End Select Else Select Case zerogravitythreatlevel Case 1 zerogravityxspeed(i) = -zerogravityspeedth1 zerogravityyspeed(i) = -zerogravityspeedth1 Case 2 zerogravityxspeed(i) = -zerogravityspeedth2 zerogravityyspeed(i) = -zerogravityspeedth2 Case 3 zerogravityxspeed(i) = -zerogravityspeedth3 zerogravityyspeed(i) = -zerogravityspeedth3 Case 4 zerogravityxspeed(i) = -zerogravityspeedth4 zerogravityyspeed(i) = -zerogravityspeedth4 End Select End If Next End Sub Public Sub floatingwindows() Handles zerogravitytimer.Tick If Knowledge_Input.Visible = True Then calculatelocations(Knowledge_Input, 0) If Shiftorium.Visible = True Then calculatelocations(Shiftorium, 1) If Clock.Visible = True Then calculatelocations(Clock, 2) If Shifter.Visible = True Then calculatelocations(Shifter, 3) If Colour_Picker.Visible = True Then calculatelocations(Colour_Picker, 4) If infobox.Visible = True Then calculatelocations(infobox, 5) If Pong.Visible = True Then calculatelocations(Pong, 6) If File_Skimmer.Visible = True Then calculatelocations(File_Skimmer, 7) If File_Opener.Visible = True Then calculatelocations(File_Opener, 8) If File_Saver.Visible = True Then calculatelocations(File_Saver, 9) If TextPad.Visible = True Then calculatelocations(TextPad, 10) If Graphic_Picker.Visible = True Then calculatelocations(Graphic_Picker, 11) If Skin_Loader.Visible = True Then calculatelocations(Skin_Loader, 12) If ArtPad.Visible = True Then calculatelocations(ArtPad, 13) If Calculator.Visible = True Then calculatelocations(Calculator, 14) If Audio_Player.Visible = True Then calculatelocations(Audio_Player, 15) If Web_Browser.Visible = True Then calculatelocations(Web_Browser, 16) If Video_Player.Visible = True Then calculatelocations(Video_Player, 17) If Name_Changer.Visible = True Then calculatelocations(Name_Changer, 18) If Icon_Manager.Visible = True Then calculatelocations(Icon_Manager, 19) If Bitnote_Wallet.Visible = True Then calculatelocations(Bitnote_Wallet, 20) If Bitnote_Digger.Visible = True Then calculatelocations(Bitnote_Digger, 21) If Skinshifter.Visible = True Then calculatelocations(Skinshifter, 22) If Shiftnet.Visible = True Then calculatelocations(Shiftnet, 23) If Downloader.Visible = True Then calculatelocations(Downloader, 24) If Dodge.Visible = True Then calculatelocations(Dodge, 25) If Downloadmanager.Visible = True Then calculatelocations(Downloadmanager, 26) If Installer.Visible = True Then calculatelocations(Installer, 27) If systeminfo.Visible = True Then calculatelocations(systeminfo, 28) If OrcWrite.Visible = True Then calculatelocations(OrcWrite, 29) If FloodGate_Manager.Visible = True Then calculatelocations(FloodGate_Manager, 30) If Labyrinth.Visible = True Then calculatelocations(Labyrinth, 31) If VirusScanner.Visible = True Then calculatelocations(VirusScanner, 32) If Terminal.Visible = True Then calculatelocations(Terminal, 33) End Sub Public Sub calculatelocations(ByVal program As Form, ByVal number As Integer) If zerogravityxspeed(number) > 0 Then If (program.Location.X + program.Size.Width) > Screen.PrimaryScreen.Bounds.Width Then zerogravityxspeed(number) = zerogravityxspeed(number) * -1 End If End If If zerogravityxspeed(number) < 0 Then If program.Location.X < 0 Then zerogravityxspeed(number) = zerogravityxspeed(number) * -1 End If End If If zerogravityyspeed(number) > 0 Then If (program.Location.Y + program.Size.Height) > Screen.PrimaryScreen.Bounds.Height Then zerogravityyspeed(number) = zerogravityyspeed(number) * -1 End If End If If zerogravityyspeed(number) < 0 Then If program.Location.Y < 0 Then zerogravityyspeed(number) = zerogravityyspeed(number) * -1 End If End If program.Location = New Point(program.Location.X + zerogravityxspeed(number), program.Location.Y + zerogravityyspeed(number)) End Sub Public Sub removezerovirus() zerogravitytimer.Stop() Viruses.zerogravity = False End Sub 'Mouse Trap Virus Public Sub setupmousetrapvirus() mousetraptimer.Start() mousetraptimer.Interval = 20 cooldowntraptimer.Start() cooldowntraptimer.Interval = 1000 Select Case mousetrapthreatlevel Case 1 trapcooldown = trapcooldown1 bangforceneeded = bangforceneeded1 bangstoescape = bangstoescapeth1 Case 2 trapcooldown = trapcooldown2 bangforceneeded = bangforceneeded2 bangstoescape = bangstoescapeth2 Case 3 trapcooldown = trapcooldown3 bangforceneeded = bangforceneeded3 bangstoescape = bangstoescapeth3 Case 4 trapcooldown = trapcooldown4 bangforceneeded = bangforceneeded4 bangstoescape = bangstoescapeth4 End Select End Sub Public Sub seeifcantrap(ByVal sender As Object, ByVal e As EventArgs) Handles cooldowntraptimer.Tick If trapcooldown < 0 Then mousetraped = True Else trapcooldown = trapcooldown - 1 End If End Sub Public Sub trapmouse(ByVal sender As Object, ByVal e As EventArgs) Handles mousetraptimer.Tick If mousetraped = True Then If alreadytrapped = False Then detectprogramtotrap(Knowledge_Input) If alreadytrapped = False Then detectprogramtotrap(Shiftorium) If alreadytrapped = False Then detectprogramtotrap(Clock) If alreadytrapped = False Then detectprogramtotrap(Shifter) If alreadytrapped = False Then detectprogramtotrap(Colour_Picker) If alreadytrapped = False Then detectprogramtotrap(infobox) If alreadytrapped = False Then detectprogramtotrap(Pong) If alreadytrapped = False Then detectprogramtotrap(File_Skimmer) If alreadytrapped = False Then detectprogramtotrap(File_Opener) If alreadytrapped = False Then detectprogramtotrap(File_Saver) If alreadytrapped = False Then detectprogramtotrap(TextPad) If alreadytrapped = False Then detectprogramtotrap(Graphic_Picker) If alreadytrapped = False Then detectprogramtotrap(Skin_Loader) If alreadytrapped = False Then detectprogramtotrap(ArtPad) If alreadytrapped = False Then detectprogramtotrap(Calculator) If alreadytrapped = False Then detectprogramtotrap(Audio_Player) If alreadytrapped = False Then detectprogramtotrap(Web_Browser) If alreadytrapped = False Then detectprogramtotrap(Video_Player) If alreadytrapped = False Then detectprogramtotrap(Name_Changer) If alreadytrapped = False Then detectprogramtotrap(Icon_Manager) If alreadytrapped = False Then detectprogramtotrap(Bitnote_Wallet) If alreadytrapped = False Then detectprogramtotrap(Bitnote_Digger) If alreadytrapped = False Then detectprogramtotrap(Skinshifter) If alreadytrapped = False Then detectprogramtotrap(Shiftnet) If alreadytrapped = False Then detectprogramtotrap(Dodge) If alreadytrapped = False Then detectprogramtotrap(Downloadmanager) If alreadytrapped = False Then detectprogramtotrap(Installer) If alreadytrapped = False Then detectprogramtotrap(systeminfo) If alreadytrapped = False Then detectprogramtotrap(OrcWrite) If alreadytrapped = False Then detectprogramtotrap(FloodGate_Manager) If alreadytrapped = False Then detectprogramtotrap(Labyrinth) If alreadytrapped = False Then detectprogramtotrap(VirusScanner) If trappedprogram Is Nothing Then Else trapmouseinprogram(trappedprogram) If bangstoescape < 0 Then mousetraped = False Select Case mousetrapthreatlevel Case 1 trapcooldown = trapcooldown1 bangstoescape = bangstoescapeth1 Case 2 trapcooldown = trapcooldown2 bangstoescape = bangstoescapeth2 Case 3 trapcooldown = trapcooldown3 bangstoescape = bangstoescapeth3 Case 4 trapcooldown = trapcooldown4 bangstoescape = bangstoescapeth4 End Select alreadytrapped = False trappedprogram = Nothing End If End If End Sub Private Sub detectprogramtotrap(ByVal program As Form) If program.Visible = True Then If Cursor.Position.X < program.Location.X + program.Width - ShiftOSDesktop.windowbordersize Then trap1 = True End If If Cursor.Position.X > program.Location.X + ShiftOSDesktop.windowbordersize Then trap2 = True End If If Cursor.Position.Y > program.Location.Y + ShiftOSDesktop.titlebarheight Then trap3 = True End If If Cursor.Position.Y < program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize Then trap4 = True End If If trap1 = True AndAlso trap2 = True AndAlso trap3 = True AndAlso trap4 = True Then alreadytrapped = True trappedprogram = program End If End If trap1 = False trap2 = False trap3 = False trap4 = False End Sub Public Sub trapmouseinprogram(ByVal program As Form) If Cursor.Position.X > program.Location.X + program.Width - ShiftOSDesktop.windowbordersize Then bangvelocity = Math.Abs(Cursor.Position.X - (program.Location.X + program.Width - ShiftOSDesktop.windowbordersize)) Cursor.Position = New Point(program.Location.X + program.Width - ShiftOSDesktop.windowbordersize, Cursor.Position.Y) If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 End If If Cursor.Position.X < program.Location.X + ShiftOSDesktop.windowbordersize Then bangvelocity = Math.Abs(Cursor.Position.X - (program.Location.X + ShiftOSDesktop.windowbordersize)) Cursor.Position = New Point(program.Location.X + ShiftOSDesktop.windowbordersize, Cursor.Position.Y) If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 End If If Cursor.Position.Y < program.Location.Y + ShiftOSDesktop.titlebarheight Then bangvelocity = Math.Abs(Cursor.Position.Y - (program.Location.Y + ShiftOSDesktop.titlebarheight)) Cursor.Position = New Point(Cursor.Position.X, program.Location.Y + ShiftOSDesktop.titlebarheight) If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 End If If Cursor.Position.Y > program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize Then bangvelocity = Math.Abs(Cursor.Position.Y - (program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize)) Cursor.Position = New Point(Cursor.Position.X, program.Location.Y + program.Height - ShiftOSDesktop.windowbordersize) If bangvelocity > bangforceneeded Then bangstoescape = bangstoescape - 1 End If End Sub Public Sub removemousetrapvirus() Viruses.mousetrap = False mousetraptimer.Stop() mousetraped = False cooldowntraptimer.Stop() End Sub 'Beeper Virus Public Sub setupbeepervirus() setupbeeperintervals() 'If System.Diagnostics.Debugger.IsAttached() Then ' ResourceFilePath = System.IO.Path.GetFullPath(Application.StartupPath & "\..\..\resources\") 'Else ' ResourceFilePath = Application.StartupPath & "\resources\" 'End If beepertimer.Start() beepertimer.Interval = 500 beepercountdown = beeperinterval End Sub Private Sub setupbeeperintervals() Select Case beeperthreatlevel Case 1 : beeperinterval = 60 Case 2 : beeperinterval = 24 Case 3 : beeperinterval = 8 Case 4 : beeperinterval = 1 End Select End Sub Public Sub beepermakesound(ByVal sender As Object, ByVal e As EventArgs) Handles beepertimer.Tick If beepercountdown = 0 Then My.Computer.Audio.Play(My.Resources._3beepvirus, AudioPlayMode.Background) beepercountdown = beeperinterval Else beepercountdown = beepercountdown - 1 End If End Sub Public Sub removebeepervirus() Viruses.beeper = False beepertimer.Stop() End Sub Public Sub setuptheplague() If theplaguethreatlevel = 1 Then theplaguetimer.Start() theplaguetimer.Interval = 10000 ChanceOfDestroyThePlague = 10 ElseIf theplaguethreatlevel = 2 Then theplaguetimer.Start() theplaguetimer.Interval = 10000 ChanceOfDestroyThePlague = 20 ElseIf theplaguethreatlevel = 3 Then theplaguetimer.Start() theplaguetimer.Interval = 7000 ChanceOfDestroyThePlague = 35 ElseIf theplaguethreatlevel = 4 Then theplaguetimer.Start() theplaguetimer.Interval = 5000 ChanceOfDestroyThePlague = 60 End If End Sub Public Sub theplaguedestroy(ByVal sender As Object, ByVal e As EventArgs) Handles theplaguetimer.Tick Randomize() Dim Chance As Integer = CInt(Math.Ceiling(Rnd() * 100)) If Chance = ChanceOfDestroyThePlague Or Chance > ChanceOfDestroyThePlague Then GetRandomApplication() End If End Sub Public Sub GetRandomApplication() Dim Chooser As Integer = ShiftOSDesktop.NumberOn Select Case chooser Case 1 InfectApplication(ArtPad, ShiftOSDesktop.ArtpadCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 2 InfectApplication(File_Skimmer, ShiftOSDesktop.FileSkimmerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 3 InfectApplication(Audio_Player, ShiftOSDesktop.AudioPlayerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 4 InfectApplication(Bitnote_Digger, ShiftOSDesktop.BitNoteDiggerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 5 InfectApplication(Bitnote_Wallet, ShiftOSDesktop.BitNoteWalletCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 6 InfectApplication(Calculator, ShiftOSDesktop.CalculatorCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 7 InfectApplication(Clock, ShiftOSDesktop.ClockCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 8 InfectApplication(coherencemodeform, ShiftOSDesktop.CoherenceModeCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 9 InfectApplication(Colour_Picker, ShiftOSDesktop.ColourPickerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 10 InfectApplication(Dodge, ShiftOSDesktop.DodgeCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 11 InfectApplication(Downloadmanager, ShiftOSDesktop.DownloadManagerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 12 InfectApplication(FloodGate_Manager, ShiftOSDesktop.FloodGateManagerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 13 InfectApplication(Graphic_Picker, ShiftOSDesktop.GraphicPickerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 14 InfectApplication(Icon_Manager, ShiftOSDesktop.IconManagerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 15 InfectApplication(Installer, ShiftOSDesktop.InstallerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 16 InfectApplication(Knowledge_Input, ShiftOSDesktop.KnowledgeInputCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 17 InfectApplication(Labyrinth, ShiftOSDesktop.LabyrinthCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 18 InfectApplication(Name_Changer, ShiftOSDesktop.NameChangerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 19 InfectApplication(OrcWrite, ShiftOSDesktop.OrcWriteCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 20 InfectApplication(Pong, ShiftOSDesktop.PongCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 21 InfectApplication(Shifter, ShiftOSDesktop.ShifterCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 22 InfectApplication(Shiftnet, ShiftOSDesktop.ShiftNetCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 23 InfectApplication(Shiftorium, ShiftOSDesktop.ShiftoriumCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 24 InfectApplication(Skin_Loader, ShiftOSDesktop.SkinLoaderCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 25 InfectApplication(Skinshifter, ShiftOSDesktop.SkinShifterCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 26 InfectApplication(systeminfo, ShiftOSDesktop.SystemInfoCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 27 InfectApplication(Terminal, ShiftOSDesktop.TerminalCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 28 InfectApplication(TextPad, ShiftOSDesktop.TextpadCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 29 InfectApplication(Video_Player, ShiftOSDesktop.VideoPlayerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 30 InfectApplication(VirusScanner, ShiftOSDesktop.VirusScannerCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 31 InfectApplication(Web_Browser, ShiftOSDesktop.WebBrowserCorrupted) ShiftOSDesktop.NumberOn = ShiftOSDesktop.NumberOn + 1 Case 32 crash.ThePlagueBSOD() End Select ' Insert code to get a random application here, use the variable RandomApplicationName ' For example, if the randomizer chooses artpad, it should be ' RandomApplicationName = "Artpad" ' NOT ' RandomApplicationName = Artpad End Sub Public Sub InfectApplication(application As Form, infectvar As Boolean) If application.Visible = True Then If infectvar = False Then infectvar = True application.Close() infobox.showinfo("The Plague.", application.Name & " has been corrupted by The Plague.") End If Else : GetRandomApplication() End If ' Insert code to infect the application, RandomApplicationName is where the application name is stored ' The corrupted variables are booleans, they are the applications name and then corrupted, ' e.g. FileSkimmerCorrupted ' When the variable for the random application chosen is set to true, use this code at the end ' 'Application Name Here'.Close ' DO NOT USE ' RandomApplicationName.Close ' The RandomApplicationName variable is a string, so if a random application of artpad was chosen ' and you put MsgBox(RandomApplicationName) in this sub, if you had this virus and it chose ' to infect artpad, a msgbox would come up with the word artpad in that msgbox. ' Yea... I didn't exactly stuck to your plans... End Sub Public Sub removetheplague() Viruses.ThePlague = False theplaguetimer.Stop() ShiftOSDesktop.FileSkimmerCorrupted = False ShiftOSDesktop.ArtpadCorrupted = False ShiftOSDesktop.AudioPlayerCorrupted = False ShiftOSDesktop.BitNoteDiggerCorrupted = False ShiftOSDesktop.BitNoteWalletCorrupted = False ShiftOSDesktop.CalculatorCorrupted = False ShiftOSDesktop.ClockCorrupted = False ShiftOSDesktop.CoherenceModeCorrupted = False ShiftOSDesktop.ColourPickerCorrupted = False ShiftOSDesktop.DodgeCorrupted = False ShiftOSDesktop.DownloadManagerCorrupted = False ShiftOSDesktop.FloodGateManagerCorrupted = False ShiftOSDesktop.GraphicPickerCorrupted = False ShiftOSDesktop.IconManagerCorrupted = False ShiftOSDesktop.InstallerCorrupted = False ShiftOSDesktop.KnowledgeInputCorrupted = False ShiftOSDesktop.LabyrinthCorrupted = False ShiftOSDesktop.NameChangerCorrupted = False ShiftOSDesktop.OrcWriteCorrupted = False ShiftOSDesktop.PongCorrupted = False ShiftOSDesktop.ShifterCorrupted = False ShiftOSDesktop.ShiftNetCorrupted = False ShiftOSDesktop.ShiftoriumCorrupted = False ShiftOSDesktop.SkinLoaderCorrupted = False ShiftOSDesktop.SkinShifterCorrupted = False ShiftOSDesktop.SnakeyCorrupted = False ShiftOSDesktop.SystemInfoCorrupted = False ShiftOSDesktop.TerminalCorrupted = False ShiftOSDesktop.TextpadCorrupted = False ShiftOSDesktop.VideoPlayerCorrupted = False ShiftOSDesktop.VirusScannerCorrupted = False ShiftOSDesktop.WebBrowserCorrupted = False End Sub End Module