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

1 files changed, 0 insertions, 252 deletions

diff --git a/Backup/windows 95/internet explorer 5.vb b/Backup/windows 95/internet explorer 5.vb
deleted file mode 100755
index 422afb6..0000000
--- a/Backup/windows 95/internet explorer 5.vb
+++ /dev/null
@@ -1,252 +0,0 @@
-Public Class internet_explorer_5

-

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

-        Me.Close()

-    End Sub

-

-    Private Sub internet_explorer_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

-        programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor

-        removewebsites()

-        welcomeinternetscreen.Show()

-        welcomeinternetscreen.Dock = DockStyle.Fill

-        look.Start()

-        Button26.Hide()

-        Label57.Hide()

-    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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

-        removewebsites()

-        padamsbackgrounds.Dock = DockStyle.None

-        hotmailmain.Dock = DockStyle.None

-        padamsmain.Dock = DockStyle.None

-        googlealpha.Dock = DockStyle.None

-        googlemain.Dock = DockStyle.None

-        googleprototype.Dock = DockStyle.None

-        welcomeinternetscreen.Dock = DockStyle.None

-

-        If addressbar.Text = "www.google.com" Then

-            googlemain.Dock = DockStyle.Fill

-            googlemain.Show()

-        End If

-        If addressbar.Text = "www.microsoft.com/internetexplorer5/welcome" Then

-            welcomeinternetscreen.Dock = DockStyle.Fill

-            welcomeinternetscreen.Show()

-        End If

-        If addressbar.Text = "www.google.stanford.edu" Then

-            googleprototype.Dock = DockStyle.Fill

-            googleprototype.Show()

-        End If

-        If addressbar.Text = "www.alpha.google.com" Then

-            googlealpha.Dock = DockStyle.Fill

-            googlealpha.Show()

-        End If

-        If addressbar.Text = "www.12padams.com" Then

-            padamsmain.Dock = DockStyle.Fill

-            padamsmain.Show()

-        End If

-        If addressbar.Text = "www.hotmail.com" Then

-            hotmailmain.Dock = DockStyle.Fill

-            hotmailmain.Show()

-        End If

-        If addressbar.Text = "www.12padams.com/backgrounds" Then

-            padamsbackgrounds.Dock = DockStyle.Fill

-            padamsbackgrounds.Show()

-        End If

-

-        If addressbar.Text = "www.12padams.com/skindows" Then

-            skindows95advertisment.Dock = DockStyle.Fill

-            skindows95advertisment.Show()

-        End If

-

-    End Sub

-

-    Private Sub googleprototypelink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles googleprototypelink.LinkClicked

-        removewebsites()

-        googleprototype.Dock = DockStyle.Fill

-        googleprototype.Show()

-        addressbar.Text = "www.google.stanford.edu"

-    End Sub

-

-

-    Private Sub googlebetalink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles googlebetalink.LinkClicked

-        removewebsites()

-        googlealpha.Dock = DockStyle.Fill

-        googlealpha.Show()

-        addressbar.Text = "www.alpha.google.com"

-    End Sub

-

-    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

-        removewebsites()

-        addressbar.Text = "www.microsoft.com/internetexplorer5/welcome"

-        welcomeinternetscreen.Dock = DockStyle.Fill

-        welcomeinternetscreen.Show()

-    End Sub

-

-    Private Sub LinkLabel15_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel15.LinkClicked

-        removewebsites()

-        addressbar.Text = "www.google.com"

-        googlemain.Dock = DockStyle.Fill

-        googlemain.Show()

-    End Sub

-

-    Private Sub LinkLabel16_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel16.LinkClicked

-        removewebsites()

-        addressbar.Text = "www.12padams.com"

-        padamsmain.Dock = DockStyle.Fill

-        padamsmain.Show()

-    End Sub

-

-    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: Guess The Number"

-    End Sub

-

-    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: Start Runner"

-    End Sub

-

-    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: Error Blaster"

-    End Sub

-

-    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

-        Previewimage.Image = win95background.Image

-    End Sub

-

-    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

-        Previewimage.Image = mclarinflimage.Image

-    End Sub

-

-    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

-        Windows95.desktopbackground.Image = win95background.Image

-    End Sub

-

-    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

-        Windows95.desktopbackground.Image = mclarinflimage.Image

-    End Sub

-

-    Private Sub LinkLabel17_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel17.LinkClicked

-        removewebsites()

-        addressbar.Text = "www.hotmail.com"

-        hotmailmain.Dock = DockStyle.Fill

-        hotmailmain.Show()

-    End Sub

-

-    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

-        removewebsites()

-        addressbar.Text = "www.12padams.com/backgrounds"

-        padamsbackgrounds.Dock = DockStyle.Fill

-        padamsbackgrounds.Show()

-    End Sub

-    Private Sub removewebsites()

-        googlemain.Hide()

-        welcomeinternetscreen.Hide()

-        googleprototype.Show()

-        googlealpha.Hide()

-        padamsmain.Hide()

-        hotmailmain.Hide()

-        padamsbackgrounds.Hide()

-        skindows95advertisment.Hide()

-        secretwebsite.Hide()

-        padamshidden.Hide()

-        email1.Hide()

-        email2.Hide()

-        email3.Hide()

-        hotmailpadams.Hide()

-    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

-        If close_everything_.timesoftware = "yes" Then

-            Button26.Show()

-            Label57.Show()

-        End If

-    End Sub

-

-    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

-        removewebsites()

-        addressbar.Text = "www.12padams.com/skindows"

-        skindows95advertisment.Dock = DockStyle.Fill

-        skindows95advertisment.Show()

-    End Sub

-

-    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: Web Chat"

-    End Sub

-

-    Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label20.Click

-        removewebsites()

-        addressbar.Text = "www.12padams.com/???"

-        padamshidden.Dock = DockStyle.Fill

-        padamshidden.Show()

-    End Sub

-

-    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

-        removewebsites()

-        addressbar.Text = "www.???.com"

-        secretwebsite.Dock = DockStyle.Fill

-        secretwebsite.Show()

-    End Sub

-

-    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

-        If txtloginname.Text = "[email protected]" And txtpassword.Text = "projectdeath" Then

-            removewebsites()

-            addressbar.Text = "www.hotmail.com/seculink/145624987903246EGS4HFO954325UPWEM5N8BSSA5634S"

-            hotmailpadams.Show()

-            hotmailpadams.Dock = DockStyle.Fill

-        End If

-    End Sub

-

-    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

-        If ListBox1.SelectedItem = "12padams.com datalog 1998" Then

-            email1.Show()

-            email2.Hide()

-            email3.hide()

-        End If

-        If ListBox1.SelectedItem = "What's the secret to your website?" Then

-            email1.Hide()

-            email2.Hide()

-            email3.Show()

-        End If

-        If ListBox1.SelectedItem = "RE: What's the secrect to your website?" Then

-            email1.Hide()

-            email3.Hide()

-            email2.Show()

-        End If

-

-    End Sub

-

-    Private Sub LinkLabel18_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel18.LinkClicked

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: hwcv.exe"

-    End Sub

-

-    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

-        Dim opendownload As New Downloader

-        opendownload.Show()

-        opendownload.Label2.Text = "Downloading: Time Distorter"

-    End Sub

-End Class
\ No newline at end of file