diff options
Diffstat (limited to 'windows 95/webchat 2001.vb')
| -rw-r--r-- | windows 95/webchat 2001.vb | 362 |
1 files changed, 362 insertions, 0 deletions
diff --git a/windows 95/webchat 2001.vb b/windows 95/webchat 2001.vb new file mode 100644 index 0000000..bfb84ba --- /dev/null +++ b/windows 95/webchat 2001.vb @@ -0,0 +1,362 @@ +Public Class webchat_2001 + Dim waiting As Boolean = False + Dim waiting2 As Boolean = False + Dim con As Integer = 1 + Dim ran As New Random + Dim abletoclose As String = "yes" + Dim username As String + Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click + If abletoclose = "yes" Then + Me.Close() + End If + If abletoclose = "no" Then + + End If + End Sub + + Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + look.Start() + Button5.Hide() + Label5.Hide() + abletoclose = "yes" + ListBox1.Items.Add("12padams") + ListBox1.Items.Add("The Hidden Hacker") + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + username = txtscreenname.Text + login.Hide() + Chat.Start() + ListBox1.Items.Add(username) + history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + If waiting = True Then + If typechat.Text = "star" Then + Chat.Start() + con = con + 1 + history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + typechat.Text = "" + history.Focus() + history.SelectionStart = 999999 + history.ScrollToCaret() + typechat.Focus() + waiting = False + Else + history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text = history.Text + ("12padams: sorry that was the wrong password... remember that you should only type the 4 letter password and nothing else." & Environment.NewLine) + typechat.Text = "" + history.Focus() + history.SelectionStart = 999999 + history.ScrollToCaret() + typechat.Focus() + End If + + Else + history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + typechat.Text = "" + typechat.Focus() + history.SelectionStart = 999999 + history.ScrollToCaret() + End If + + End Sub + + Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick + If con = 34 Then + Me.Close() + Chat.Interval = 2000 + con = con + 1 + End If + If con = 33 Then + history.Text = history.Text + ("12padams: Close any open programs now!!!" & Environment.NewLine) + Chat.Interval = 3000 + con = con + 1 + End If + If con = 32 Then + history.Text = history.Text + ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) + Chat.Interval = 3000 + con = con + 1 + End If + If con = 31 Then + history.Text = history.Text + ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) + Chat.Interval = 3000 + con = con + 1 + End If + If con = 30 Then + history.Text = history.Text + ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 29 Then + history.Text = history.Text + ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) + Chat.Interval = 7000 + con = con + 1 + End If + If con = 28 Then + history.Text = history.Text + ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 27 Then + history.Text = history.Text + ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) + Chat.Interval = 8000 + con = con + 1 + End If + If con = 26 Then + history.Text = history.Text + ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) + Chat.Interval = 7000 + con = con + 1 + End If + If con = 25 Then + history.Text = history.Text + ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 24 Then + history.Text = history.Text + ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 23 Then + history.Text = history.Text + ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 22 Then + Label5.Show() + Button5.Show() + Chat.Interval = 2000 + Chat.Stop() + waitingdownload.Start() + End If + If con = 21 Then + history.Text = history.Text + ("12padams: Ok then ill send " & mainname & " the new version of time distorter then you can both go off on your journey" & Environment.NewLine) + Chat.Interval = 4000 + con = con + 1 + waitfor02download = True + End If + If con = 20 Then + history.Text = history.Text + ("12padams: So ready to get started?" & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 19 Then + history.Text = history.Text + ("12padams: I just need to make sure that when 2 people both time travel at the same time nothing goes wrong" & Environment.NewLine) + Chat.Interval = 7000 + con = con + 1 + End If + If con = 18 Then + history.Text = history.Text + ("12padams: Thats corrent yes... " & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 17 Then + history.Text = history.Text + ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) + Chat.Interval = 4000 + con = con + 1 + End If + If con = 16 Then + history.Text = history.Text + ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 15 Then + history.Text = history.Text + ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 14 Then + history.Text = history.Text + ("12padams: Ok Hidden Hacker I am glad your happy but lets accually start talking about what the aim of this time travel is..." & Environment.NewLine) + Chat.Interval = 9000 + con = con + 1 + End If + If con = 13 Then + history.Text = history.Text + ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 12 Then + history.Text = history.Text + ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 11 Then + history.Text = history.Text + ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 10 Then + history.Text = history.Text + ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 9 Then + history.Text = history.Text + ("12padams: Yes you do." & Environment.NewLine) + Chat.Interval = 4000 + con = con + 1 + End If + If con = 8 Then + history.Text = history.Text + ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) + Chat.Interval = 3000 + con = con + 1 + End If + If con = 7 Then + history.Text = history.Text + ("12padams: ok good that was the password." & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + If con = 6 Then + waiting = True + Chat.Stop() + + End If + If con = 5 Then + history.Text = history.Text + ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine) + Chat.Interval = 1000 + con = con + 1 + End If + If con = 4 Then + history.Text = history.Text + ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine) + Chat.Interval = 3000 + con = con + 1 + End If + If con = 3 Then + history.Text = history.Text + ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine) + Chat.Interval = 6000 + con = con + 1 + End If + If con = 2 Then + history.Text = history.Text + ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine) + Chat.Interval = 4000 + con = con + 1 + End If + If con = 1 Then + history.Text = history.Text + ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine) + Chat.Interval = 5000 + con = con + 1 + End If + history.Focus() + history.SelectionStart = 999999 + history.ScrollToCaret() + typechat.Focus() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + Dim opendownload As New downloader2000 + opendownload.Show() + opendownload.Label2.Text = "Downloading: Time Distorter 0.3" + End Sub + Dim moveable As Boolean = True + Dim mexlocation, meylocation As Integer + Dim mewidth, meheight As Integer + Dim maximize As Boolean + + Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown + If moveable = True Then + 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 + Else + End If + End Sub + + Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick + Me.Width = Cursor.Position.X - Me.Location.X + End Sub + + Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick + Me.Height = Cursor.Position.Y - Me.Location.Y + End Sub + + Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick + Me.Width = Cursor.Position.X - Me.Location.X + Me.Height = Cursor.Position.Y - Me.Location.Y + End Sub + + Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown + pullside.Start() + End Sub + + Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp + pullside.Stop() + End Sub + + Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown + pullbottom.Start() + End Sub + + Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp + pullbottom.Stop() + End Sub + + Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown + pullbs.Start() + End Sub + + Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp + pullbs.Stop() + End Sub + + Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click + If maximize = False Then + meylocation = Windows2000.desktopicons.Height - Me.Height + mexlocation = Windows2000.desktopicons.Width - Me.Width + mewidth = Me.Width + meheight = Me.Height + toprightcorner.Hide() + topleftcorner.Hide() + bottomrightcorner.Hide() + bottomleftcorner.Hide() + left.Hide() + top.Hide() + bottom.Hide() + right.Hide() + Dim w, h As Integer + w = Windows2000.desktopicons.Width + h = Windows2000.desktopicons.Height + Me.Location = New Point(0, 0) + Me.Size = New Size(w, h) + moveable = False + maximizebutton.Image = My.Resources.unmaximizebutton + maximize = True + Else + toprightcorner.Show() + topleftcorner.Show() + bottomrightcorner.Show() + bottomleftcorner.Show() + left.Show() + top.Show() + bottom.Show() + right.Show() + Me.Location = New Point(mexlocation, meylocation) + Me.Size = New Size(mewidth, meheight) + moveable = True + maximizebutton.Image = My.Resources.Maximize + maximize = False + End If + End Sub + + Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick + Me.programtopbar.BackColor = Windows2000.exampleprogramtopbar.BackColor + Me.programtopbar.BackgroundImage = Windows2000.exampleprogramtopbar.BackgroundImage + Me.programname.BackColor = Windows2000.exampleprogramtext.BackColor + End Sub + + Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick + If waitfor02download = False Then + Chat.Start() + waitingdownload.Stop() + con = con + 1 + End If + + End Sub + +End Class
\ No newline at end of file |