From bb6492c6085f10570ae5087b667aaaa1e8fa3d01 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 19:10:16 +0000 Subject: Make .gitignore work. Fixes #15 Thanks to @kenzierocks and http://stackoverflow.com/questions/19663093/apply-gitignore-on-an-existing-repository-already-tracking-large-number-of-files --- Backup/windows 95/errorblaster.vb | 73 --------------------------------------- 1 file changed, 73 deletions(-) delete mode 100755 Backup/windows 95/errorblaster.vb (limited to 'Backup/windows 95/errorblaster.vb') diff --git a/Backup/windows 95/errorblaster.vb b/Backup/windows 95/errorblaster.vb deleted file mode 100755 index 75a4481..0000000 --- a/Backup/windows 95/errorblaster.vb +++ /dev/null @@ -1,73 +0,0 @@ -Public Class errorblaster - Dim ran As New Random - Dim chosenerror As Integer - Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - Me.Close() - End Sub - - Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown - If e.Button = MouseButtons.Left Then - programtopbar.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 - End Sub - - - Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick - Dim openerror As New windows95messagebox - chosenerror = ran.Next(1, 9) - If chosenerror = 1 Then - openerror.infomessage.Text = "Your Computer Is Infected" - End If - If chosenerror = 2 Then - openerror.infomessage.Text = "Virus Detected" - End If - If chosenerror = 3 Then - openerror.infomessage.Text = "You need to uninfect your computer" - End If - If chosenerror = 4 Then - openerror.infomessage.Text = "your computer is at risk download some program now to fix your comptuer" - End If - If chosenerror = 5 Then - openerror.infomessage.Text = "Your computer is going to explode you need to save all changed now and then take it apart" - End If - If chosenerror = 6 Then - openerror.infomessage.Text = "download an antivirus program now to save your computer" - End If - If chosenerror = 7 Then - openerror.infomessage.Text = "Windows has detected a virus" - End If - If chosenerror = 8 Then - openerror.infomessage.Text = "Your computer is going to be completly taken over if you do not right now downlaod antivirus software" - End If - openerror.Show() - End Sub - - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - Timer1.Start() - End Sub - - Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - Timer1.Stop() - End Sub - - Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click - Me.Close() - End Sub - - Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick - Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor - Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage - Me.programname.BackColor = Windows95.exampleprogramtext.BackColor - End Sub - - Private Sub errorblaster_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load - look.Start() - - End Sub -End Class \ No newline at end of file -- cgit v1.2.3