From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sun, 1 Mar 2015 10:50:24 +0000 Subject: Initial commit --- windows 95/Internetexplorer62002damaged.vb | 382 +++++++++++++++++++++++++++++ 1 file changed, 382 insertions(+) create mode 100755 windows 95/Internetexplorer62002damaged.vb (limited to 'windows 95/Internetexplorer62002damaged.vb') 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 -- cgit v1.2.3