Initial commit

1 files changed, 252 insertions, 0 deletions

diff --git a/Backup/windows 95/internet explorer 5.vb b/Backup/windows 95/internet explorer 5.vb
new file mode 100755
index 0000000..422afb6
--- /dev/null
+++ b/Backup/windows 95/internet explorer 5.vb
@@ -0,0 +1,252 @@
+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