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/Windows2000.vb | 403 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 403 insertions(+) create mode 100755 windows 95/Windows2000.vb (limited to 'windows 95/Windows2000.vb') diff --git a/windows 95/Windows2000.vb b/windows 95/Windows2000.vb new file mode 100755 index 0000000..2788cae --- /dev/null +++ b/windows 95/Windows2000.vb @@ -0,0 +1,403 @@ +Public Class Windows2000 + Dim comn As Integer + Dim count As Integer + Dim txtcount As Integer + Dim usersave As String + + Private Sub windows95_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles desktopicons.Click + startmenu.Hide() + End Sub + + Private Sub windows95_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load + desktopicons.Show() + If My.Resources.windows_2000_boot_sound.CanRead Then + Dim bStr(My.Resources.windows_2000_boot_sound.Length) As Byte + My.Resources.windows_2000_boot_sound.Read(bStr, 0, My.Resources.windows_2000_boot_sound.Length) + My.Computer.Audio.Play(bStr, AudioPlayMode.Background) + End If + startmenu.Hide() + program.Hide() + Timer4.Start() + Timer1.Start() + exampleprogramtopbar.Show() + Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None + Me.WindowState = FormWindowState.Maximized + System.Windows.Forms.Application.VisualStyleState = VisualStyles.VisualStyleState.NoneEnabled + Me.desktopicons.BackgroundImage = My.Resources.Windows_2000_background + Dim w, h As Integer + w = Me.desktopicons.Width + h = Me.desktopicons.Height + Dim bmp As Bitmap = New Bitmap(w, h) + Using g As Graphics = Graphics.FromImage(bmp) + g.DrawImage(Me.desktopicons.BackgroundImage, 0, 0, bmp.Width, bmp.Height) + End Using + Me.BackgroundImage = bmp + Me.desktopicons.BackgroundImage = bmp + commandpromptstartup.Start() + comn = 100 + End Sub + + Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click + Dim opennotepad As New notepad2000 + opennotepad.Show() + startmenu.Hide() + End Sub + + Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click + Dim windowshelpopen As New formwindowshelp + windowshelpopen.Show() + startmenu.Hide() + End Sub + + Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + program.Hide() + End Sub + + Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click + Dim opencalc As New formcalculator + opencalc.Show() + startmenu.Hide() + End Sub + + + Private Sub desktopicons_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles desktopicons.DoubleClick + Dim objDrawingPoint As Drawing.Point + Dim objListViewItem As ListViewItem + + objDrawingPoint = desktopicons.PointToClient(Cursor.Position) + + If Not IsNothing(objDrawingPoint) Then + With objDrawingPoint + objListViewItem = desktopicons.GetItemAt(.X, .Y) + End With + + If Not IsNothing(objListViewItem) Then + If objListViewItem.Text = "Internet Explorer" Then + Dim openinternet As New Internet_Explorer_52001 + openinternet.Show() + End If + If objListViewItem.Text = "Guess The Number 2 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Guess The Number 2" + openinstall.installimage.Image = My.Resources.Guess_the_Number__install_ + openinstall.Show() + End If + If objListViewItem.Text = "Start Runner 2000 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Start Runner 2000" + openinstall.installimage.Image = My.Resources.start_run__install___white_with_programname_ + openinstall.Show() + End If + If objListViewItem.Text = "Error Blaster 2000 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Error Blaster 2000" + openinstall.installimage.Image = My.Resources.error_blast__big_ + openinstall.Show() + End If + If objListViewItem.Text = "Survive The Day Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Survive The Day" + openinstall.installimage.Image = My.Resources.survive_the_day_install_banner + openinstall.Show() + End If + If objListViewItem.Text = "Skindows 95 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Skindows 95" + openinstall.installimage.Image = My.Resources.skindows_95__install_ + openinstall.Show() + End If + If objListViewItem.Text = "Web Chat 2000 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Web Chat 2000" + openinstall.installimage.Image = My.Resources.chat__big_ + openinstall.Show() + End If + If objListViewItem.Text = "hwcv.exe" Then + Dim openhwcv As New hwcv + openhwcv.Show() + End If + If objListViewItem.Text = "Time Distorter 0.3 Setup" Then + + Dim openinstall As New installer2000 + openinstall.installname.Text = "Time Distorter 0.3" + openinstall.installimage.Image = My.Resources.time_distorter__install_Black_ + openinstall.Show() + End If + End If + End If + End Sub + + Private Sub Desktop_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles desktopicons.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + rightclickbackproperties.Show() + rightclickbackproperties.BringToFront() + rightclickbackproperties.Location = MousePosition + End If + If e.Button = Windows.Forms.MouseButtons.Left Then + End If + If e.Button = Windows.Forms.MouseButtons.Middle Then + End If + + End Sub + + Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimizebutton.Click + + End Sub + + Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click + + End Sub + + Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click + startmenu.Show() + startmenu.BringToFront() + End Sub + + Private Sub PropertiesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertiesToolStripMenuItem1.Click + Dim oform As New formDisplayproperties + oform.Show() + startmenu.Hide() + End Sub + + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + desktopicons.BackColor = Me.BackColor + taskbartime.Text = TimeOfDay + End Sub + + Private Sub PhoneDialerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneDialerToolStripMenuItem.Click + Dim openphonedialer As New phone_dialer + openphonedialer.Show() + startmenu.Hide() + End Sub + + Private Sub AddressBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressBookToolStripMenuItem.Click + Dim openaddressbook As New Address_Book + openaddressbook.Show() + startmenu.Hide() + End Sub + + Private Sub VolumeControlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Dim openvolumecontrol As New volume_control + openvolumecontrol.Show() + startmenu.Hide() + End Sub + + Private Sub RunToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunToolStripMenuItem.Click + Dim openrun As New run + openrun.Show() + startmenu.Hide() + End Sub + + Private Sub PaintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaintToolStripMenuItem.Click + Dim openpaint As New paint + openpaint.Show() + startmenu.Hide() + End Sub + + Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick + + End Sub + + Private Sub FolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderToolStripMenuItem.Click + desktopicons.Items.Add("New Folder") + End Sub + + Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desktopicons.MouseDown + startmenu.Hide() + + End Sub + + Private Sub GuessTheNumberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuessTheNumberToolStripMenuItem.Click + Dim openguessnumber As New guessthenumber2win2000() + openguessnumber.Show() + startmenu.Hide() + End Sub + + Private Sub StartRunnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartRunnerToolStripMenuItem.Click + Dim openstartrunner As New startrunner2000 + openstartrunner.Show() + startmenu.Hide() + End Sub + + Private Sub ErrorBlasterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ErrorBlasterToolStripMenuItem.Click + Dim openerror As New errorblaster2000 + openerror.Show() + startmenu.Hide() + End Sub + + Private Sub SkindowsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkindowsToolStripMenuItem.Click + Dim openskin As New Skindows_95 + openskin.Show() + startmenu.Hide() + End Sub + + Private Sub WebChatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebChatToolStripMenuItem.Click + Dim openchat As New webchat_2000 + openchat.Show() + startmenu.Hide() + End Sub + + Private Sub TimeDistorterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SurviveTheDayToolStripMenuItem.Click + Dim opensurvivetheday As New Survive_The_Day + opensurvivetheday.Show() + startmenu.Hide() + End Sub + + Private Sub taskbartime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles taskbartime.Click + Dim showmess As New windows2000messagebox + showmess.infomessage.Text = "Your save code is: fgsd7f6a" + showmess.Show() + End Sub + + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click + Title_Screen.Close() + End Sub + + + Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles desktopicons.MouseDown + + End Sub + + Private Sub commandpromptstartup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commandpromptstartup.Tick + + If comn = -43 Then + commandprompt2000.TextBox1.Text = "" + commandprompt2000.Close() + commandpromptstartup.Stop() + End If + If comn = -41 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: bye" & Environment.NewLine) + + End If + If comn = -37 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: We will see you after your done " & mainname & Environment.NewLine) + + End If + If comn = -32 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Stop it hidden hacker he needs a break..." & Environment.NewLine) + + End If + If comn = -26 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Don't be long " & mainname & " since I really wanna time travel now" & Environment.NewLine) + + End If + If comn = -20 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Ok bye " & mainname & ", and good luck :)" & Environment.NewLine) + + End If + If comn = -15 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Once you tell me the password you and The Hidden hacker will go on a time travel test together." & Environment.NewLine) + + End If + If comn = -8 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Then download webchat and tell me what the password is." & Environment.NewLine) + + End If + If comn = 3 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: When you beat it you will be given a password" & Environment.NewLine) + + End If + If comn = 7 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Go onto my website and download survive the day" & Environment.NewLine) + + End If + If comn = 14 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: " & mainname & " I will let you time travel again once you complete a game" & Environment.NewLine) + + End If + If comn = 20 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Please be patient... Not now becasue " & mainname & " has already time traveled recently" & Environment.NewLine) + + End If + If comn = 26 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Why not NOWWWWW!!!!!" & Environment.NewLine) + + End If + If comn = 33 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Don't worry you will both time travel... just not now" & Environment.NewLine) + + End If + If comn = 37 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Thats why you gave me time distorter 0.3 yesterday..." & Environment.NewLine) + + End If + If comn = 43 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: but you said when " & mainname & " gets back we get to time travel together..." & Environment.NewLine) + + End If + If comn = 47 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Well no where right now... " & mainname & " only just got back" & Environment.NewLine) + + End If + If comn = 51 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Well what do we do now where are we of to?" & Environment.NewLine) + + End If + If comn = 55 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams: Yes It did work... see I told you hidden hacker that it would work." & Environment.NewLine) + + End If + If comn = 60 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("12padams Connected" & Environment.NewLine) + + End If + If comn = 62 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("Ip 185.352.857.342 Connecting..." & Environment.NewLine) + + End If + If comn = 65 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Ok he's gunna come now..." & Environment.NewLine) + + End If + If comn = 78 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Just wait a sec while I message him." & Environment.NewLine) + + End If + If comn = 83 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Ok " & mainname & " I will get 12padams here and tell him the good news" & Environment.NewLine) + + End If + If comn = 91 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: The time travel from 1999 to 2000 worked without getting stuffed up by the y2k" & Environment.NewLine) + + End If + If comn = 95 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker: Yay it worked perfectly" & Environment.NewLine) + + End If + If comn = 98 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("The Hidden Hacker Connected" & Environment.NewLine) + + End If + If comn = 99 Then + commandprompt2000.TextBox1.Text = commandprompt2000.TextBox1.Text + ("IP 146.342.534.632 Connecting..." & Environment.NewLine) + + End If + If comn = 100 Then + commandprompt2000.Show() + + commandpromptstartup.Interval = 1000 + End If + commandprompt2000.TextBox1.SelectionStart = 999999 + commandprompt2000.TextBox1.ScrollToCaret() + comn = comn - 1 + End Sub + + Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click + Dim openinternet As New Internet_Explorer_52001 + openinternet.Show() + startmenu.Hide() + End Sub + + Private Sub TimeDistorter03ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDistorter03ToolStripMenuItem.Click + Dim opentime As New timedistorter0 + opentime.Show() + startmenu.Hide() + End Sub +End Class \ No newline at end of file -- cgit v1.2.3