Public Class WebChat_1999 Dim waiting As Boolean Dim waiting2 As Boolean = False Dim con As Integer Dim ran As New Random Dim abletoclose As Boolean = True Dim username As String Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click If abletoclose Then Me.Close() 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 = True 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 += (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 mainname = typechat.Text waiting = False history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() typechat.Focus() Else 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 Select Case con Case 67 If waitfor02download Then Chat.Stop() Else Chat.Start() history.Text += ("12padams: Ok, I got a message that says that you just started the timer." & mainname & Environment.NewLine) End If Case 66 history.Text += ("The Hidden Hacker: I hope this works..." & Environment.NewLine) Chat.Interval = 3000 count.Start() waitfor02download = True Chat.Stop() Case 65 history.Text += ("12padams: OK " & mainname & " download it now and we will wait for you." & Environment.NewLine) Chat.Interval = 4000 Case 64 Label5.Show() Button5.Show() Case 63 history.Text += ("12padams: We will start now. I'll send 0.2 of time distorter and " & mainname & " can download it!" & Environment.NewLine) Chat.Interval = 4000 Case 62 history.Text += ("The Hidden Hacker: Ok then. When do we start?" & Environment.NewLine) Chat.Interval = 6000 Case 61 history.Text += ("12padams: Nothing will go wrong. I think I got this." & Environment.NewLine) Chat.Interval = 4000 Case 60 history.Text += ("The Hidden Hacker: What if something goes wrong and " & mainname & " doesn't get to the year 2000?" & Environment.NewLine) Chat.Interval = 5000 Case 59 history.Text += ("12padams: I want you to look out for " & mainname & " so that in 1 year you can tell me when he comes back." & Environment.NewLine) Chat.Interval = 7000 Case 58 history.Text += ("The Hidden Hacker: What do you want me to do?" & Environment.NewLine) Chat.Interval = 6000 Case 57 history.Text += ("12padams: It has to be done... you need to help me, guys... please!" & Environment.NewLine) Chat.Interval = 4000 Case 56 history.Text += ("The Hidden Hacker: That is too risky, don't you think so?" & Environment.NewLine) Chat.Interval = 5000 Case 55 history.Text += ("12padams: This could seriously impact my time travel software." & Environment.NewLine) Chat.Interval = 3000 Case 54 history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000." & Environment.NewLine) Chat.Interval = 5000 Case 53 history.Text += ("12padams: Simply put, I wrote an article on the Year 2000 bug." & Environment.NewLine) Chat.Interval = 4000 Case 52 history.Text += ("12padams: Sorry, I forgot about that!" & Environment.NewLine) Chat.Interval = 4000 Case 51 history.Text += ("The Hidden Hacker: I am blocked from using your website, remember?" & Environment.NewLine) Chat.Interval = 3000 Case 50 history.Text += ("12padams: It will, but did you not read the article on my website of the Y2K bug?" & Environment.NewLine) Chat.Interval = 4000 Case 49 history.Text += ("The Hidden Hacker: Why does he need to try it out? Won't it work like 0.1 did?" & Environment.NewLine) Chat.Interval = 5000 Case 48 history.Text += ("12padams: " & mainname & "... I will need you to try this out again." & Environment.NewLine) Chat.Interval = 5000 Case 47 history.Text += ("12padams: Well OK, that was a hyperbole; it's not that much different in terms of functionality. It works the same way but now it works in all time periods and it takes you to 2000!" & Environment.NewLine) Chat.Interval = 4000 Case 46 history.Text += ("12padams: 0.2 is much different however!" & Environment.NewLine) Chat.Interval = 5000 Case 45 history.Text += ("12padams: Anyway, 0.1 is useless because it only worked if the year was 1998 and it will only take you to 1999." & Environment.NewLine) Chat.Interval = 7000 Case 44 history.Text += ("12padams: Of course you would! Why did I ask that?" & Environment.NewLine) Chat.Interval = 8000 Case 43 history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine) Chat.Interval = 3000 Case 42 history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine) Chat.Interval = 3000 Case 41 history.Text += ("12padams: I forgot to tell you both!" & Environment.NewLine) Chat.Interval = 4000 Case 40 history.Text += ("The Hidden Hacker: Wait a sec... you mean we are going to time travel again?" & Environment.NewLine) Chat.Interval = 5000 Case 39 history.Text += ("12padams: Ok, you can track the time travels so you can see when " & mainname & " gets to a new time period. This will allow you to say what is going on..." & Environment.NewLine) Chat.Interval = 6000 Case 38 history.Text += ("12padams: I am not really sure actually... let me think this through!" & Environment.NewLine) Chat.Interval = 5000 Case 37 history.Text += ("The Hidden Hacker: What do you mean by guider?" & Environment.NewLine) Chat.Interval = 4000 Case 36 history.Text += ("12padams: As for you, The Hidden Hacker... you can be the... guider." & Environment.NewLine) Chat.Interval = 3000 Case 35 history.Text += ("12padams: " & mainname & " can be the tester for my time travel software." & Environment.NewLine) Chat.Interval = 4000 Case 34 history.Text += ("12padams: I am the coder who will be working on the time travel software." & Environment.NewLine) Chat.Interval = 7000 Case 33 history.Text += ("The Hidden Hacker: What do you mean by that?" & Environment.NewLine) Chat.Interval = 5000 Case 32 history.Text += ("12padams: Since you both know about this whole time travel thing... I want us to be a team." & Environment.NewLine) Chat.Interval = 5000 Case 31 history.Text += ("12padams: Let's not go off-topic here! I have something very important I now have to say to you both" & Environment.NewLine) Chat.Interval = 6000 Case 30 history.Text += ("The Hidden Hacker: OK. I think that it's good you now have a name we can call you as" & Environment.NewLine) Chat.Interval = 6000 Case 29 history.Text += ("12padams: From now on we will call this user " & mainname & Environment.NewLine) Chat.Interval = 4000 Case 28 If mainname = "" Then con -= 1 End If Chat.Interval = 3000 Case 27 history.Text += ("12padams: I don't want to disturb you, but what is your name? What you type in the chat now, is what we will refer you as. I suggest less then 10 letters for better flow!" & Environment.NewLine) Chat.Interval = 6000 waiting = True Case 26 history.Text += ("12padams: OK, what's making me annoyed now is not knowing what this Windows 98 name is!" & Environment.NewLine) Chat.Interval = 9000 Case 25 history.Text += ("The Hidden Hacker: Well that is a relief, isn't it? Hey what's your name again?" & Environment.NewLine) Chat.Interval = 7000 Case 24 history.Text += ("12padams: So I just wanted to say thanks to both of you... " & Environment.NewLine) Chat.Interval = 5000 Case 23 history.Text += ("12padams: Listen, if you had not hacked my emails and taken my software, followed by trying it out, I would never have done so. " & Environment.NewLine) Chat.Interval = 9000 Case 22 history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine) Chat.Interval = 6000 Case 21 history.Text += ("The Hidden Hacker: What?!" & Environment.NewLine) Chat.Interval = 4000 Case 20 history.Text += ("12padams: Oh for goodness sake what's wrong with you two... I am not angry!" & Environment.NewLine) Chat.Interval = 4000 Case 19 history.Text += ("The Hidden Hacker: Crap the close button is not working!!!" & Environment.NewLine) Chat.Interval = 6000 Case 18 history.Text += ("12padams: Come on guys..." & Environment.NewLine) Chat.Interval = 5000 Case 17 history.Text += ("The Hidden Hacker: Log off... um whatever your name is, who owns that windows 98 computer!" & Environment.NewLine) Chat.Interval = 5000 Case 16 history.Text += ("The Hidden Hacker: Oh CRAP!!!" & Environment.NewLine) Chat.Interval = 5000 Case 15 history.Text += ("12padams: Yea and you have not done a good job of hidding" & Environment.NewLine) Chat.Interval = 4000 Case 14 history.Text += ("12padams Has Logged On" & Environment.NewLine) Chat.Interval = 2000 abletoclose = False Case 13 history.Text += ("The Hidden Hacker: since then I have been hiding so 12padams could not get me" & Environment.NewLine) Chat.Interval = 4000 Case 12 history.Text += ("The Hidden Hacker: after you left 1998 12padams tried to attack and well..." & Environment.NewLine) Chat.Interval = 7000 Case 11 history.Text += ("The Hidden Hacker: Ok well heres what happened while you were gone." & Environment.NewLine) Chat.Interval = 5000 Case 10 history.Text += ("The Hidden Hacker: Finally your here." & Environment.NewLine) Chat.Interval = 5000 Case 9 history.Text += ("The Hidden Hacker: For 1 whole year I have been waiting to see if that time travel software worked" & Environment.NewLine) Chat.Interval = 4000 Case 8 history.Text += ("[The Known Checker] has changed his display name to [The Hidden Hacker]" & Environment.NewLine) ListBox1.Items.Remove("The Known Checker") ListBox1.Items.Add("The Hidden Hacker") Chat.Interval = 6000 Case 7 history.Text += ("The Known Checker: Wait sorry i am using a fake name... Just wait a sec" & Environment.NewLine) Chat.Interval = 5000 Case 6 history.Text += ("The Known Checker: Yes!!! Its YOU!!!!!" & Environment.NewLine) Chat.Interval = 3000 Case 5 history.Text += ("Scan Complete!" & Environment.NewLine) Chat.Interval = 4000 Case 4 history.Text += ("The Known Checker is: Scanning IP..." & Environment.NewLine) Chat.Interval = 3000 Case 3 history.Text += ("The Known Checker: Wait I'll quickly do an ip scan..." & Environment.NewLine) Chat.Interval = 5000 Case 2 history.Text += ("The Known Checker: Hi um I know this is going to sound weird but do you know about some software called time distorter?" & Environment.NewLine) Chat.Interval = 8000 Case 1 history.Text += ("The Known Checker: OMG I think I found you!!!" & Environment.NewLine) Chat.Interval = 5000 Case 0 ListBox1.Items.Add("The Known Checker") Chat.Interval = 5000 End Select con += 1 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 Downloader98 opendownload.Show() opendownload.Label2.Text = "Downloading: Time Distorter 0.2" 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 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 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 Not maximize Then meylocation = Windows95.desktopicons.Height - Me.Height mexlocation = Windows95.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 = Windows95.desktopicons.Width h = Windows95.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 = Windows95.exampleprogramtopbar.BackColor Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage Me.programname.BackColor = Windows95.exampleprogramtext.BackColor End Sub Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimizebutton.Click End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged End Sub Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick If Not waitfor02download Then Chat.Start() waitingdownload.Stop() End If End Sub Private Sub count_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count.Tick Select Case count2000 Case -8 Me.BackColor = Color.Black history.BackColor = Color.Black history.ForeColor = Color.White Me.Close() count.Stop() Case -7 Me.BackColor = Color.Black history.BackColor = Color.White history.ForeColor = Color.Black Case -6 Me.BackColor = Color.Black history.BackColor = Color.Black history.ForeColor = Color.White Case -5 Me.BackColor = Color.Black history.BackColor = Color.White history.ForeColor = Color.Black Case -4 Me.BackColor = Color.Black history.BackColor = Color.Black history.ForeColor = Color.White Case -3 Me.BackColor = Color.Black history.BackColor = Color.White history.ForeColor = Color.Black Case -2 Me.BackColor = Color.Black history.BackColor = Color.Black history.ForeColor = Color.White Case -1 Me.BackColor = Color.Black history.BackColor = Color.White history.ForeColor = Color.Black count.Interval = 100 Me.Close() Case 4 count.Interval = 100 history.Text += ("12padams: Oh " & mainname & " just remember to watch the year incase something goes wrong... have a good trip :)" & Environment.NewLine) Case 8 history.Text += ("The Hidden Hacker: Ok cool thanks for that" & Environment.NewLine) Case 13 history.Text += ("12padams: well when " & mainname & " gets back ill let you go as well on the next one" & Environment.NewLine) Case 17 history.Text += ("The Hidden Hacker: not really... I just wish I got to time travel myself" & Environment.NewLine) Case 22 history.Text += ("12padams: Is there anything you want to say to " & mainname & " now just before " & mainname & " is gone?" & Environment.NewLine) Case 27 history.Text += ("12padams: yea me too but it needs to be done..." & Environment.NewLine) Case 33 history.Text += ("The Hidden Hacker: Yea... I just wish It didn't take so long :(" & Environment.NewLine) Case 37 history.Text += ("12padams: Ok well here we go again... another test which will show interesting and powerful results" & Environment.NewLine) Case 42 history.Text += ("The Hidden Hacker: Don't worry I will tell you strait away I promise" & Environment.NewLine) Case 48 history.Text += ("12padams: Ok get just remeber as soon as " & mainname & " gets the the year 2000 you need to tell me strait away" & Environment.NewLine) Case 53 history.Text += ("The Hidden Hacker: Well I guess I trust you then" & Environment.NewLine) Case 57 history.Text += ("12padams: don't worry nothings gunna happen" & Environment.NewLine) Case 62 history.Text += ("The Hidden Hacker: Well I hope nothing goes wrong..." & Environment.NewLine) Case 86 history.Text += ("12padams: No it can't thats why i have coded it so if it does show 1900 it will jump forward in time back the the year 2000" & Environment.NewLine) Case 72 history.Text += ("The Hidden Hacker: wait are you saying that this software can accually take someone back that far?" & Environment.NewLine) Case 78 history.Text += ("12padams: Well apon the numbers switching to 2000 it may instead switch to 1900" & Environment.NewLine) Case 82 history.Text += ("The Hidden Hacker: Ok but can you tell me what will happen?" & Environment.NewLine) Case 87 history.Text += ("12padams: Well I am just worried about when he goes past the year 2000 during travel..." & Environment.NewLine) Case 91 history.Text += ("The Hidden Hacker: I know that but what could happen?" & Environment.NewLine) Case 96 history.Text += ("12padams: Well There may be the slight chance of YK2 interference" & Environment.NewLine) Case 100 history.Text += ("The Hidden Hacker: I need to know what could go wrong." & Environment.NewLine) Case 104 history.Text += ("12padams: What do you need to know?" & Environment.NewLine) Case 108 history.Text += ("The Hidden Hacker: I just have a few questions..." & Environment.NewLine) Case 111 history.Text += ("The Hidden Hacker: Don't Worry... I will" & Environment.NewLine) Case 115 history.Text += ("12padams: You just have to make sure you tell me ok..." & Environment.NewLine) Case 120 history.Text += ("12padams: I want you to tell me as soon as he ges the the year 2000 then we will start another chat." & Environment.NewLine) Case 124 history.Text += ("12padams: wow good job... ok heres what we will do" & Environment.NewLine) Case 130 history.Text += ("The Hidden Hacker: Hey I got tracking software which will alert me as soon as the time travel is over... I developed it after a year of waiting." & Environment.NewLine) Case 135 history.Text += ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine) Case 140 history.Text += ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine) Case 144 history.Text += ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine) Case 149 history.Text += ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine) Case 155 history.Text += ("The Hidden Hacker: Ok... " & mainname & " you should feel happy that you don't have to wait a whole year for results " & Environment.NewLine) Case 160 history.Text += ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine) Case 166 history.Text += ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine) Case 170 history.Text += ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine) Case 175 history.Text += ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine) Case Else 'Probably a better way to do this If count2000 < 175 Then history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() typechat.Focus() End If End Select End Sub End Class