Merge branch 'master' of https://github.com/Histacom/HistacomMac_OS_X_Tiger

1 files changed, 0 insertions, 73 deletions

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