Initial commit

1 files changed, 382 insertions, 0 deletions

diff --git a/windows 95/Internetexplorer62002damaged.vb b/windows 95/Internetexplorer62002damaged.vb
new file mode 100755
index 0000000..b03b4c8
--- /dev/null
+++ b/windows 95/Internetexplorer62002damaged.vb
@@ -0,0 +1,382 @@
+Public Class Internetexplorer62002damaged

+    Dim amount As Integer = 100

+    Dim chosenx As Integer

+    Dim choseny As Integer

+    Dim desktopx As Integer

+    Dim desktopy As Integer

+    Dim yran As New Random

+    Dim xran As New Random

+    Dim white As Boolean = True

+    Dim moveable As Boolean = True

+    Dim mexlocation, meylocation As Integer

+    Dim mewidth, meheight As Integer

+    Dim maximize As Boolean

+

+    Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown

+        If moveable = True Then

+            If e.Button = MouseButtons.Left Then

+                top.Capture = False

+                Const WM_NCLBUTTONDOWN As Integer = &HA1S

+                Const HTCAPTION As Integer = 2

+                Dim msg As Message = _

+                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _

+                        New IntPtr(HTCAPTION), IntPtr.Zero)

+                Me.DefWndProc(msg)

+            End If

+        Else

+        End If

+    End Sub

+

+    Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click

+    End Sub

+

+    Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick

+        Me.Width = Cursor.Position.X - Me.Location.X

+    End Sub

+

+    Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick

+        Me.Height = Cursor.Position.Y - Me.Location.Y

+    End Sub

+

+    Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick

+        Me.Width = Cursor.Position.X - Me.Location.X

+        Me.Height = Cursor.Position.Y - Me.Location.Y

+    End Sub

+

+    Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown

+        pullside.Start()

+    End Sub

+

+    Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp

+        pullside.Stop()

+    End Sub

+

+    Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown

+        pullbottom.Start()

+    End Sub

+

+    Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp

+        pullbottom.Stop()

+    End Sub

+

+    Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown

+        pullbs.Start()

+    End Sub

+

+    Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp

+        pullbs.Stop()

+    End Sub

+

+    Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click

+        If maximize = False Then

+            meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height

+            mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width

+            mewidth = Me.Width

+            meheight = Me.Height

+            bottomrightcorner.Hide()

+            bottomleftcorner.Hide()

+            left.Hide()

+            bottom.Hide()

+            right.Hide()

+            Dim w, h As Integer

+            w = Windowsxp2002damaged.desktopicons.Width

+            h = Windowsxp2002damaged.desktopicons.Height

+            Me.Location = New Point(0, 0)

+            Me.Size = New Size(w, h)

+            moveable = False

+            maximizebutton.Image = My.Resources.windowsxprestorebutton

+            maximize = True

+            toprightcorner.Hide()

+            topleftcorner.Hide()

+        Else

+            bottomrightcorner.Show()

+            bottomleftcorner.Show()

+            left.Show()

+            bottom.Show()

+            right.Show()

+            Me.Location = New Point(mexlocation, meylocation)

+            Me.Size = New Size(mewidth, meheight)

+            moveable = True

+            maximizebutton.Image = My.Resources.windowsxpmaximizebutton

+            maximize = False

+            toprightcorner.Show()

+            topleftcorner.Show()

+        End If

+    End Sub

+

+    Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick

+        Me.top.BackColor = Windowsxp2002damaged.top.BackColor

+        Me.top.BackgroundImage = Windowsxp2002damaged.top.BackgroundImage

+        Me.programname.ForeColor = Windowsxp2002damaged.programname.ForeColor

+    End Sub

+

+    Private Sub viruscountdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelflash.Tick

+        If white = True Then

+            original.ForeColor = Color.Black

+            white = False

+        Else

+            original.ForeColor = Color.White

+            white = True

+        End If

+    End Sub

+

+    Private Sub Internetexplorer62002damaged_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

+        labelflash.Start()

+        amounttimer.Start()

+        commandpromptxp.Close()

+        Timer1.Start()

+        Timer2.Start()

+        Timer3.Start()

+        desktopy = Windowsxp2002damaged.desktopicons.Size.Height

+        desktopx = Windowsxp2002damaged.desktopicons.Size.Width

+    End Sub

+

+    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

+        choseny = yran.Next(1, desktopy)

+    End Sub

+

+    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

+        chosenx = xran.Next(1, desktopx)

+    End Sub

+

+    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

+        Dim newlabel As New _2002_virus_labels

+        newlabel.Show()

+        Label1.Text = chosenx

+        Label2.Text = choseny

+        newlabel.Location = New Point(Label1.Text, Label2.Text)

+        newlabel.original.ForeColor = Color.Black

+    End Sub

+

+    Private Sub amounttimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles amounttimer.Tick

+        If amount = 90 Then maximizebutton.Image = closebutton.Image

+        If amount = 89 Then minimizebutton.Image = closebutton.Image

+        If amount = 88 Then Button8.Image = closebutton.Image

+        If amount = 87 Then Button13.Image = My.Resources.windowsxperror

+        If amount = 86 Then Button12.Image = My.Resources.windowsxperror

+        If amount = 85 Then Button11.Image = My.Resources.windowsxperror

+        If amount = 84 Then Button10.Image = My.Resources.windowsxperror

+        If amount = 83 Then Button7.Image = My.Resources.windowsxperror

+        If amount = 82 Then Button9.Image = My.Resources.windowsxperror

+        If amount = 81 Then Button6.Image = My.Resources.windowsxperror

+        If amount = 80 Then Button5.Image = My.Resources.windowsxperror

+        If amount = 79 Then Button4.Image = My.Resources.windowsxperror

+        If amount = 78 Then Button3.Image = My.Resources.windowsxperror

+        If amount = 77 Then Button2.Image = My.Resources.windowsxperror

+        If amount = 76 Then Button1.Image = My.Resources.windowsxperror

+        If amount = 75 Then Button6.Text = ""

+        If amount = 74 Then Button9.Text = ""

+        If amount = 73 Then Button1.Text = ""

+        If amount = 72 Then programname.ForeColor = Color.Red

+        If amount = 71 Then programname.Text = "Internet Exploiter 6"

+        If amount = 70 Then

+            programname.Text = "Internet Exploiter 66"

+            addressbar.BackColor = Color.Lime

+        End If

+

+        If amount = 69 Then

+            addressbar.ForeColor = Color.Red

+            programname.Text = "Internet Exploiter 666"

+        End If

+

+        If amount = 68 Then Button8.BackColor = Color.Purple

+        If amount = 67 Then

+            adresss.Text = "Virus:"

+            Button13.BackColor = Color.Lime

+            adresss.ForeColor = Color.Red

+        End If

+        If amount = 66 Then

+            Panel24.BackColor = Color.Black

+            Button12.BackColor = Color.Lime

+            Button13.BackColor = Color.Red

+            Button13.Image = Nothing

+        End If

+        If amount = 65 Then

+            Button13.Hide()

+            Button12.BackColor = Color.Red

+            Button12.Image = Nothing

+            Button11.BackColor = Color.Lime

+            Button8.Image = Nothing

+        End If

+        If amount = 64 Then

+            Button12.Hide()

+            Button11.BackColor = Color.Red

+            Button11.Image = Nothing

+            Button10.BackColor = Color.Lime

+            Button8.BackColor = Color.Black

+        End If

+        If amount = 63 Then

+            Button11.Hide()

+            Button10.BackColor = Color.Red

+            Button10.Image = Nothing

+            Button7.BackColor = Color.Lime

+            addressbar.BackColor = Color.Black

+        End If

+        If amount = 62 Then

+            Button10.Hide()

+            Button7.BackColor = Color.Red

+            Button7.Image = Nothing

+            Button9.BackColor = Color.Lime

+            addressbar.BackColor = Color.Black

+        End If

+        If amount = 61 Then

+            Button7.Hide()

+            Button9.BackColor = Color.Red

+            Button9.Image = Nothing

+            Button6.BackColor = Color.Lime

+            addressbar.ForeColor = Color.Black

+        End If

+        If amount = 60 Then

+            Button9.Hide()

+            Button6.BackColor = Color.Red

+            Button6.Image = Nothing

+            Button5.BackColor = Color.Lime

+            adresss.BackColor = Color.Black

+        End If

+        If amount = 59 Then

+            Button6.Hide()

+            Button5.BackColor = Color.Red

+            Button5.Image = Nothing

+            Button4.BackColor = Color.Lime

+            adresss.ForeColor = Color.Black

+        End If

+        If amount = 58 Then

+            Button5.Hide()

+            Button4.BackColor = Color.Red

+            Button4.Image = Nothing

+            Button3.BackColor = Color.Lime

+            Panel24.Hide()

+        End If

+        If amount = 57 Then

+            Button4.Hide()

+            Button3.BackColor = Color.Red

+            Button3.Image = Nothing

+            Button2.BackColor = Color.Lime

+            Panel13.BackColor = Color.Black

+        End If

+        If amount = 56 Then

+            Button3.Hide()

+            Button2.BackColor = Color.Red

+            Button2.Image = Nothing

+            Button1.BackColor = Color.Lime

+            MenuStrip3.BackColor = Color.White

+        End If

+        If amount = 54 Then

+            Button2.Hide()

+            Button1.BackColor = Color.Red

+            Button1.Image = Nothing

+            MenuStrip3.BackColor = Color.Black

+        End If

+        If amount = 54 Then

+            Button1.Hide()

+            Panel13.Hide()

+        End If

+        If amount = 53 Then

+            MenuStrip3.Hide()

+        End If

+        If amount = 52 Then

+            top.BackgroundImage = My.Resources.windowsxperror

+            toprightcorner.Hide()

+            bottomrightcorner.Hide()

+            left.Hide()

+            right.Hide()

+            bottom.Hide()

+            topleftcorner.Hide()

+            bottomleftcorner.Hide()

+            browsingarea.BackColor = Color.Black

+        End If

+        If amount = 51 Then

+            browsingarea.BackColor = Color.White

+        End If

+        If amount = 50 Then

+            Me.Hide()

+        End If

+        If amount = 49 Then

+            Windowsxp2002damaged.desktopicons.BackgroundImage = My.Resources.windowsxperror

+            Windowsxp2002damaged.desktopicons.BackgroundImageTiled = True

+            Windowsxp2002damaged.BackgroundImage = Nothing

+        End If

+        If amount = 48 Then

+            Windowsxp2002damaged.Label1.Show()

+        End If

+        If amount = 47 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.taskbartime.BackColor = Color.Red

+        End If

+        If amount = 46 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.taskbartime.Text = "infected"

+        End If

+        If amount = 45 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.desktopicons.BackgroundImage = Nothing

+            Windowsxp2002damaged.desktopicons.Hide()

+        End If

+        If amount = 44 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.BackColor = Color.Black

+        End If

+        If amount = 43 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.startbutton.Image = My.Resources.windowsxpclosebutton

+        End If

+        If amount = 42 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.startbutton.Image = Nothing

+        End If

+        If amount = 41 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.startbutton.BackColor = Color.White

+        End If

+        If amount = 40 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.startbutton.BackColor = Color.Black

+            Windowsxp2002damaged.taskbar.BackgroundImage = My.Resources.windowsxpclosebutton

+        End If

+        If amount = 39 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.taskbar.BackgroundImage = Nothing

+            Windowsxp2002damaged.taskbar.BackColor = Color.White

+            Windowsxp2002damaged.startbutton.Hide()

+            Windowsxp2002damaged.taskbartime.Image = My.Resources.windowsxpclosebutton

+        End If

+        If amount = 38 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.taskbar.BackColor = Color.Black

+            Windowsxp2002damaged.Panel10.BackgroundImage = Nothing

+            Windowsxp2002damaged.Panel10.BackColor = Color.White

+        End If

+        If amount = 37 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+            Windowsxp2002damaged.Panel10.BackColor = Color.Black

+            Windowsxp2002damaged.taskbartime.Hide()

+        End If

+        If amount = 36 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+            Windowsxp2002damaged.Label1.Text = "Welcome To a World Without computers!"

+        End If

+        If amount = 35 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+        End If

+        If amount = 34 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+        End If

+        If amount = 33 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+        End If

+        If amount = 32 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+        End If

+        If amount = 31 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.Black

+        End If

+        If amount = 30 Then

+            Windowsxp2002damaged.Label1.ForeColor = Color.White

+        End If

+        If amount = 20 Then

+            Title_Screen.Close()

+        End If

+        amount = amount - 1

+    End Sub

+

+End Class
\ No newline at end of file