shiftos-archive/Histacom
1
0
Fork 0
mirror of https://github.com/Histacom/Histacom.git synced 2025-01-22 09:02:00 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Jamie Mansfield 2015-03-07 12:22:39 +00:00
commit f32d9d9537
4 changed files with 1259 additions and 1704 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

881
windows 95/WebChat 1999.vb
View file

@ -3,22 +3,19 @@
Dim waiting2 As Boolean = False Dim waiting2 As Boolean = False
Dim con As Integer Dim con As Integer
Dim ran As New Random Dim ran As New Random
Dim abletoclose As String = "yes" Dim abletoclose As Boolean = True
Dim username As String Dim username As String
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
If abletoclose = "yes" Then If abletoclose Then
Me.Close() Me.Close()
End If End If
If abletoclose = "no" Then
End If
End Sub End Sub
Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
look.Start() look.Start()
Button5.Hide() Button5.Hide()
Label5.Hide() Label5.Hide()
abletoclose = "yes" abletoclose = True
End Sub End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
@ -26,21 +23,21 @@
login.Hide() login.Hide()
Chat.Start() Chat.Start()
ListBox1.Items.Add(username) ListBox1.Items.Add(username)
history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) history.Text += (username & " Has Logged On" & Environment.NewLine)
End Sub End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If waiting = True Then If waiting = True Then
mainname = typechat.Text mainname = typechat.Text
waiting = False waiting = False
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
typechat.Focus() typechat.Focus()
Else Else
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
typechat.Focus() typechat.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
@ -50,362 +47,226 @@
End Sub End Sub
Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick
Select Case con
If con = 67 Then Case 67
If waitfor02download = True Then If waitfor02download Then
Chat.Stop() Chat.Stop()
Else Else
Chat.Start() Chat.Start()
history.Text = history.Text + ("12padams: Ok I got a message that you just started the timer " & mainname & Environment.NewLine) history.Text += ("12padams: Ok I got a message that you just started the timer " & mainname & Environment.NewLine)
con = con + 1 End If
End If Case 66
End If history.Text += ("The Hidden Hacker: I Hope this works..." & Environment.NewLine)
If con = 66 Then Chat.Interval = 3000
history.Text = history.Text + ("The Hidden Hacker: I Hope this works..." & Environment.NewLine) count.Start()
Chat.Interval = 3000 waitfor02download = True
con = con + 1 Chat.Stop()
count.Start() Case 65
waitfor02download = True history.Text += ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine)
Chat.Stop() Chat.Interval = 4000
End If Case 64
If con = 65 Then Label5.Show()
history.Text = history.Text + ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine) Button5.Show()
Chat.Interval = 4000 Case 63
con = con + 1 history.Text += ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine)
End If Chat.Interval = 4000
If con = 64 Then Case 62
Label5.Show() history.Text += ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine)
Button5.Show() Chat.Interval = 6000
con = con + 1 Case 61
End If history.Text += ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine)
If con = 63 Then Chat.Interval = 4000
history.Text = history.Text + ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine) Case 60
Chat.Interval = 4000 history.Text += ("The Hidden Hacker: But what If something goes wrong and " & mainname & " doesn't get to the year 2000 properly?" & Environment.NewLine)
con = con + 1 Chat.Interval = 5000
End If Case 59
If con = 62 Then history.Text += ("12padams: Ok I want you to look out for " & mainname & " so that in 1 year you can tell me when he comes back" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine) Chat.Interval = 7000
Chat.Interval = 6000 Case 58
con = con + 1 history.Text += ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 61 Then Case 57
history.Text = history.Text + ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine) history.Text += ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con = con + 1 Case 56
End If history.Text += ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine)
If con = 60 Then Chat.Interval = 5000
history.Text = history.Text + ("The Hidden Hacker: But what If something goes wrong and " & mainname & " doesn't get to the year 2000 properly?" & Environment.NewLine) Case 55
Chat.Interval = 5000 history.Text += ("12padams: This could serriously impact my time travel software." & Environment.NewLine)
con = con + 1 Chat.Interval = 3000
End If Case 54
If con = 59 Then history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine)
history.Text = history.Text + ("12padams: Ok 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 = 5000
Chat.Interval = 7000 Case 53
con = con + 1 history.Text += ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine)
End If Chat.Interval = 4000
If con = 58 Then Case 52
history.Text = history.Text + ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine) history.Text += ("12padams: haha sorry I forgot about that" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 4000
con = con + 1 Case 51
End If history.Text += ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine)
If con = 57 Then Chat.Interval = 3000
history.Text = history.Text + ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine) Case 50
Chat.Interval = 4000 history.Text += ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine)
con = con + 1 Chat.Interval = 4000
End If Case 49
If con = 56 Then history.Text += ("The Hidden Hacker: Why does he need to try it out??? its gunna work just like 0.1 did" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine) Chat.Interval = 5000
Chat.Interval = 5000 Case 48
con = con + 1 history.Text += ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine)
End If Chat.Interval = 5000
If con = 55 Then Case 47
history.Text = history.Text + ("12padams: This could serriously impact my time travel software." & Environment.NewLine) history.Text += ("12padams: well not much different... it works the same except it works in all time periods and it takes you to 2000" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 4000
con = con + 1 Case 46
End If history.Text += ("12padams: 0.2 is much different however" & Environment.NewLine)
If con = 54 Then Chat.Interval = 5000
history.Text = history.Text + ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine) Case 45
Chat.Interval = 5000 history.Text += ("12padams: Well anyway... 0.1 is now useless since it only works if the year is 1998 and it will only take you to 1999" & Environment.NewLine)
con = con + 1 Chat.Interval = 7000
End If Case 44
If con = 53 Then history.Text += ("12padams: oh woops yea oh cause you would" & Environment.NewLine)
history.Text = history.Text + ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine) Chat.Interval = 8000
Chat.Interval = 4000 Case 43
con = con + 1 history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine)
End If Chat.Interval = 3000
If con = 52 Then Case 42
history.Text = history.Text + ("12padams: haha sorry I forgot about that" & Environment.NewLine) history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 3000
con = con + 1 Case 41
End If history.Text += ("12padams: Oh right I forgot to tell you both" & Environment.NewLine)
If con = 51 Then Chat.Interval = 4000
history.Text = history.Text + ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine) Case 40
Chat.Interval = 3000 history.Text += ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine)
con = con + 1 Chat.Interval = 5000
End If Case 39
If con = 50 Then history.Text += ("12padams: Ok I know... you can track the time travels so you can see when " & mainname & " gets to a new time period you say whats going on..." & Environment.NewLine)
history.Text = history.Text + ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine) Chat.Interval = 6000
Chat.Interval = 4000 Case 38
con = con + 1 history.Text += ("12padams: I am not really sure accually... um let me think" & Environment.NewLine)
End If Chat.Interval = 5000
If con = 49 Then Case 37
history.Text = history.Text + ("The Hidden Hacker: Why does he need to try it out??? its gunna work just like 0.1 did" & Environment.NewLine) history.Text += ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 4000
con = con + 1 Case 36
End If history.Text += ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine)
If con = 48 Then Chat.Interval = 3000
history.Text = history.Text + ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine) Case 35
Chat.Interval = 5000 history.Text += ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine)
con = con + 1 Chat.Interval = 4000
End If Case 34
If con = 47 Then history.Text += ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine)
history.Text = history.Text + ("12padams: well not much different... it works the same except it works in all time periods and it takes you to 2000" & Environment.NewLine) Chat.Interval = 7000
Chat.Interval = 4000 Case 33
con = con + 1 history.Text += ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine)
End If Chat.Interval = 5000
If con = 46 Then Case 32
history.Text = history.Text + ("12padams: 0.2 is much different however" & Environment.NewLine) history.Text += ("12padams: Look Since you both know about this whole time travel thing... I want us to be a team " & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con = con + 1 Case 31
End If history.Text += ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine)
If con = 45 Then Chat.Interval = 6000
history.Text = history.Text + ("12padams: Well anyway... 0.1 is now useless since it only works if the year is 1998 and it will only take you to 1999" & Environment.NewLine) Case 30
Chat.Interval = 7000 history.Text += ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine)
con = con + 1 Chat.Interval = 6000
End If Case 29
If con = 44 Then history.Text += ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine)
history.Text = history.Text + ("12padams: oh woops yea oh cause you would" & Environment.NewLine) Chat.Interval = 4000
Chat.Interval = 8000 Case 28
con = con + 1 if mainname == "" Then
End If con -= 1
If con = 43 Then End If
history.Text = history.Text + ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine) Chat.Interval = 3000
Chat.Interval = 3000 Case 27
con = con + 1 history.Text += ("12padams: Um whats your name 'windows 98 user' just type it in the chat now. I recommend less then 10 letters" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 42 Then waiting = True
history.Text = history.Text + ("12padams: Remember time distorter 0.1?" & Environment.NewLine) Case 26
Chat.Interval = 3000 history.Text += ("12padams: Ok just to let you know... the only thing thats getting me 'angrey' right now is not knowing what this windows 98 users name is " & Environment.NewLine)
con = con + 1 Chat.Interval = 9000
End If Case 25
If con = 41 Then history.Text += ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine)
history.Text = history.Text + ("12padams: Oh right I forgot to tell you both" & Environment.NewLine) Chat.Interval = 7000
Chat.Interval = 4000 Case 24
con = con + 1 history.Text += ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine)
End If Chat.Interval = 5000
If con = 40 Then Case 23
history.Text = history.Text + ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine) history.Text += ("12padams: Liston... If you had not hacked my emails and taken my software and tried it out I would never have tested my software. " & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 9000
con = con + 1 Case 22
End If history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine)
If con = 39 Then Chat.Interval = 6000
history.Text = history.Text + ("12padams: Ok I know... you can track the time travels so you can see when " & mainname & " gets to a new time period you say whats going on..." & Environment.NewLine) Case 21
Chat.Interval = 6000 history.Text += ("The Hidden Hacker: What???" & Environment.NewLine)
con = con + 1 Chat.Interval = 4000
End If Case 20
If con = 38 Then history.Text += ("12padams: Oh for goodness sake what's wrong with you 2... I am not angrey" & Environment.NewLine)
history.Text = history.Text + ("12padams: I am not really sure accually... um let me think" & Environment.NewLine) Chat.Interval = 4000
Chat.Interval = 5000 Case 19
con = con + 1 history.Text += ("The Hidden Hacker: Crap the close button is not working!!!" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 37 Then Case 18
history.Text = history.Text + ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine) history.Text += ("12padams: Come on guys..." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 5000
con = con + 1 Case 17
End If history.Text += ("The Hidden Hacker: Log off... um whatever your name is wh owns that windows 98 computer!!!!" & Environment.NewLine)
If con = 36 Then Chat.Interval = 5000
history.Text = history.Text + ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine) Case 16
Chat.Interval = 3000 history.Text += ("The Hidden Hacker: Oh CRAP!!!" & Environment.NewLine)
con = con + 1 Chat.Interval = 5000
End If Case 15
If con = 35 Then history.Text += ("12padams: Yea and you have not done a good job of hidding" & Environment.NewLine)
history.Text = history.Text + ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine) Chat.Interval = 4000
Chat.Interval = 4000 Case 14
con = con + 1 history.Text += ("12padams Has Logged On" & Environment.NewLine)
End If Chat.Interval = 2000
If con = 34 Then abletoclose = False
history.Text = history.Text + ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine) Case 13
Chat.Interval = 7000 history.Text += ("The Hidden Hacker: since then I have been hiding so 12padams could not get me" & Environment.NewLine)
con = con + 1 Chat.Interval = 4000
End If Case 12
If con = 33 Then history.Text += ("The Hidden Hacker: after you left 1998 12padams tried to attack and well..." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine) Chat.Interval = 7000
Chat.Interval = 5000 Case 11
con = con + 1 history.Text += ("The Hidden Hacker: Ok well heres what happened while you were gone." & Environment.NewLine)
End If Chat.Interval = 5000
If con = 32 Then Case 10
history.Text = history.Text + ("12padams: Look Since you both know about this whole time travel thing... I want us to be a team " & Environment.NewLine) history.Text += ("The Hidden Hacker: Finally your here." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con = con + 1 Case 9
End If history.Text += ("The Hidden Hacker: For 1 whole year I have been waiting to see if that time travel software worked" & Environment.NewLine)
If con = 31 Then Chat.Interval = 4000
history.Text = history.Text + ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine) Case 8
Chat.Interval = 6000 history.Text += ("[The Known Checker] has changed his display name to [The Hidden Hacker]" & Environment.NewLine)
con = con + 1 ListBox1.Items.Remove("The Known Checker")
End If ListBox1.Items.Add("The Hidden Hacker")
If con = 30 Then Chat.Interval = 6000
history.Text = history.Text + ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine) Case 7
Chat.Interval = 6000 history.Text += ("The Known Checker: Wait sorry i am using a fake name... Just wait a sec" & Environment.NewLine)
con = con + 1 Chat.Interval = 5000
End If Case 6
If con = 29 Then history.Text += ("The Known Checker: Yes!!! Its YOU!!!!!" & Environment.NewLine)
history.Text = history.Text + ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine) Chat.Interval = 3000
Chat.Interval = 4000 Case 5
con = con + 1 history.Text += ("Scan Complete!" & Environment.NewLine)
End If Chat.Interval = 4000
Case 4
If con = 28 Then history.Text += ("The Known Checker is: Scanning IP..." & Environment.NewLine)
If mainname = "" Then Chat.Interval = 3000
Chat.Interval = 3000 Case 3
Else history.Text += ("The Known Checker: Wait I'll quickly do an ip scan..." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 5000
con = con + 1 Case 2
End If 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)
End If Chat.Interval = 8000
If con = 27 Then Case 1
history.Text = history.Text + ("12padams: Um whats your name 'windows 98 user' just type it in the chat now. I recommend less then 10 letters" & Environment.NewLine) history.Text += ("The Known Checker: OMG I think I found you!!!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 5000
waiting = True Case 0
con = con + 1 ListBox1.Items.Add("The Known Checker")
End If Chat.Interval = 5000
If con = 26 Then End Select
history.Text = history.Text + ("12padams: Ok just to let you know... the only thing thats getting me 'angrey' right now is not knowing what this windows 98 users name is " & Environment.NewLine) con += 1
Chat.Interval = 9000
con = con + 1
End If
If con = 25 Then
history.Text = history.Text + ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine)
Chat.Interval = 7000
con = con + 1
End If
If con = 24 Then
history.Text = history.Text + ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 23 Then
history.Text = history.Text + ("12padams: Liston... If you had not hacked my emails and taken my software and tried it out I would never have tested my software. " & Environment.NewLine)
Chat.Interval = 9000
con = con + 1
End If
If con = 22 Then
history.Text = history.Text + ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine)
Chat.Interval = 6000
con = con + 1
End If
If con = 21 Then
history.Text = history.Text + ("The Hidden Hacker: What???" & Environment.NewLine)
Chat.Interval = 4000
con = con + 1
End If
If con = 20 Then
history.Text = history.Text + ("12padams: Oh for goodness sake what's wrong with you 2... I am not angrey" & Environment.NewLine)
Chat.Interval = 4000
con = con + 1
End If
If con = 19 Then
history.Text = history.Text + ("The Hidden Hacker: Crap the close button is not working!!!" & Environment.NewLine)
Chat.Interval = 6000
con = con + 1
End If
If con = 18 Then
history.Text = history.Text + ("12padams: Come on guys..." & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 17 Then
history.Text = history.Text + ("The Hidden Hacker: Log off... um whatever your name is wh owns that windows 98 computer!!!!" & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 16 Then
history.Text = history.Text + ("The Hidden Hacker: Oh CRAP!!!" & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 15 Then
history.Text = history.Text + ("12padams: Yea and you have not done a good job of hidding" & Environment.NewLine)
Chat.Interval = 4000
con = con + 1
End If
If con = 14 Then
history.Text = history.Text + ("12padams Has Logged On" & Environment.NewLine)
Chat.Interval = 2000
con = con + 1
abletoclose = "no"
End If
If con = 13 Then
history.Text = history.Text + ("The Hidden Hacker: since then I have been hiding so 12padams could not get me" & Environment.NewLine)
Chat.Interval = 4000
con = con + 1
End If
If con = 12 Then
history.Text = history.Text + ("The Hidden Hacker: after you left 1998 12padams tried to attack and well..." & Environment.NewLine)
Chat.Interval = 7000
con = con + 1
End If
If con = 11 Then
history.Text = history.Text + ("The Hidden Hacker: Ok well heres what happened while you were gone." & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 10 Then
history.Text = history.Text + ("The Hidden Hacker: Finally your here." & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 9 Then
history.Text = 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
con = con + 1
End If
If con = 8 Then
history.Text = 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
con = con + 1
End If
If con = 7 Then
history.Text = history.Text + ("The Known Checker: Wait sorry i am using a fake name... Just wait a sec" & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 6 Then
history.Text = history.Text + ("The Known Checker: Yes!!! Its YOU!!!!!" & Environment.NewLine)
Chat.Interval = 3000
con = con + 1
End If
If con = 5 Then
history.Text = history.Text + ("Scan Complete!" & Environment.NewLine)
Chat.Interval = 4000
con = con + 1
End If
If con = 4 Then
history.Text = history.Text + ("The Known Checker is: Scanning IP..." & Environment.NewLine)
Chat.Interval = 3000
con = con + 1
End If
If con = 3 Then
history.Text = history.Text + ("The Known Checker: Wait I'll quickly do an ip scan..." & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 2 Then
history.Text = 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
con = con + 1
End If
If con = 1 Then
history.Text = history.Text + ("The Known Checker: OMG I think I found you!!!" & Environment.NewLine)
Chat.Interval = 5000
con = con + 1
End If
If con = 0 Then
ListBox1.Items.Add("The Known Checker")
Chat.Interval = 5000
con = con + 1
End If
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
@ -423,7 +284,7 @@
Dim maximize As Boolean Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then If moveable Then
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
programtopbar.Capture = False programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -433,7 +294,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero) New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg) Me.DefWndProc(msg)
End If End If
Else
End If End If
End Sub End Sub
@ -475,7 +335,7 @@
End Sub End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If maximize = False Then If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width mewidth = Me.Width
@ -524,175 +384,132 @@
End Sub End Sub
Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick
If waitfor02download = False Then If Not waitfor02download Then
Chat.Start() Chat.Start()
waitingdownload.Stop() waitingdownload.Stop()
End If End If
End Sub End Sub
Private Sub count_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count.Tick Private Sub count_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count.Tick
If count2000 = -8 Then Select Case count2000
Me.BackColor = Color.Black Case -8
history.BackColor = Color.Black Me.BackColor = Color.Black
history.ForeColor = Color.White history.BackColor = Color.Black
Me.Close() history.ForeColor = Color.White
count.Stop() Me.Close()
End If count.Stop()
If count2000 = -7 Then Case -7
Me.BackColor = Color.Black Me.BackColor = Color.Black
history.BackColor = Color.White history.BackColor = Color.White
history.ForeColor = Color.Black history.ForeColor = Color.Black
End If Case -6
If count2000 = -6 Then Me.BackColor = Color.Black
Me.BackColor = Color.Black history.BackColor = Color.Black
history.BackColor = Color.Black history.ForeColor = Color.White
history.ForeColor = Color.White Case -5
End If Me.BackColor = Color.Black
If count2000 = -5 Then history.BackColor = Color.White
Me.BackColor = Color.Black history.ForeColor = Color.Black
history.BackColor = Color.White Case -4
history.ForeColor = Color.Black Me.BackColor = Color.Black
End If history.BackColor = Color.Black
If count2000 = -4 Then history.ForeColor = Color.White
Me.BackColor = Color.Black Case -3
history.BackColor = Color.Black Me.BackColor = Color.Black
history.ForeColor = Color.White history.BackColor = Color.White
End If history.ForeColor = Color.Black
If count2000 = -3 Then Case -2
Me.BackColor = Color.Black Me.BackColor = Color.Black
history.BackColor = Color.White history.BackColor = Color.Black
history.ForeColor = Color.Black history.ForeColor = Color.White
End If Case -1
If count2000 = -2 Then Me.BackColor = Color.Black
Me.BackColor = Color.Black history.BackColor = Color.White
history.BackColor = Color.Black history.ForeColor = Color.Black
history.ForeColor = Color.White count.Interval = 100
End If Me.Close()
If count2000 = -1 Then Case 4
Me.BackColor = Color.Black count.Interval = 100
history.BackColor = Color.White history.Text += ("12padams: Oh " & mainname & " just remember to watch the year incase something goes wrong... have a good trip :)" & Environment.NewLine)
history.ForeColor = Color.Black Case 8
count.Interval = 100 history.Text += ("The Hidden Hacker: Ok cool thanks for that" & Environment.NewLine)
Me.Close() Case 13
End If history.Text += ("12padams: well when " & mainname & " gets back ill let you go as well on the next one" & Environment.NewLine)
If count2000 = 4 Then Case 17
count.Interval = 100 history.Text += ("The Hidden Hacker: not really... I just wish I got to time travel myself" & Environment.NewLine)
history.Text = history.Text + ("12padams: Oh " & mainname & " just remember to watch the year incase something goes wrong... have a good trip :)" & Environment.NewLine) Case 22
End If history.Text += ("12padams: Is there anything you want to say to " & mainname & " now just before " & mainname & " is gone?" & Environment.NewLine)
If count2000 = 8 Then Case 27
history.Text = history.Text + ("The Hidden Hacker: Ok cool thanks for that" & Environment.NewLine) history.Text += ("12padams: yea me too but it needs to be done..." & Environment.NewLine)
End If Case 33
If count2000 = 13 Then history.Text += ("The Hidden Hacker: Yea... I just wish It didn't take so long :(" & Environment.NewLine)
history.Text = history.Text + ("12padams: well when " & mainname & " gets back ill let you go as well on the next one" & Environment.NewLine) Case 37
End If history.Text += ("12padams: Ok well here we go again... another test which will show interesting and powerful results" & Environment.NewLine)
If count2000 = 17 Then Case 42
history.Text = history.Text + ("The Hidden Hacker: not really... I just wish I got to time travel myself" & Environment.NewLine) history.Text += ("The Hidden Hacker: Don't worry I will tell you strait away I promise" & Environment.NewLine)
End If Case 48
If count2000 = 22 Then 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)
history.Text = history.Text + ("12padams: Is there anything you want to say to " & mainname & " now just before " & mainname & " is gone?" & Environment.NewLine) Case 53
End If history.Text += ("The Hidden Hacker: Well I guess I trust you then" & Environment.NewLine)
If count2000 = 27 Then Case 57
history.Text = history.Text + ("12padams: yea me too but it needs to be done..." & Environment.NewLine) history.Text += ("12padams: don't worry nothings gunna happen" & Environment.NewLine)
End If Case 62
If count2000 = 33 Then history.Text += ("The Hidden Hacker: Well I hope nothing goes wrong..." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Yea... I just wish It didn't take so long :(" & Environment.NewLine) Case 86
End If 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)
If count2000 = 37 Then Case 72
history.Text = history.Text + ("12padams: Ok well here we go again... another test which will show interesting and powerful results" & Environment.NewLine) history.Text += ("The Hidden Hacker: wait are you saying that this software can accually take someone back that far?" & Environment.NewLine)
End If Case 78
If count2000 = 42 Then history.Text += ("12padams: Well apon the numbers switching to 2000 it may instead switch to 1900" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Don't worry I will tell you strait away I promise" & Environment.NewLine) Case 82
End If history.Text += ("The Hidden Hacker: Ok but can you tell me what will happen?" & Environment.NewLine)
If count2000 = 48 Then Case 87
history.Text = 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) history.Text += ("12padams: Well I am just worried about when he goes past the year 2000 during travel..." & Environment.NewLine)
End If Case 91
If count2000 = 53 Then history.Text += ("The Hidden Hacker: I know that but what could happen?" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Well I guess I trust you then" & Environment.NewLine) Case 96
End If history.Text += ("12padams: Well There may be the slight chance of YK2 interference" & Environment.NewLine)
If count2000 = 57 Then Case 100
history.Text = history.Text + ("12padams: don't worry nothings gunna happen" & Environment.NewLine) history.Text += ("The Hidden Hacker: I need to know what could go wrong." & Environment.NewLine)
End If Case 104
If count2000 = 62 Then history.Text += ("12padams: What do you need to know?" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Well I hope nothing goes wrong..." & Environment.NewLine) Case 108
End If history.Text += ("The Hidden Hacker: I just have a few questions..." & Environment.NewLine)
If count2000 = 68 Then Case 111
history.Text = 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) history.Text += ("The Hidden Hacker: Don't Worry... I will" & Environment.NewLine)
End If Case 115
If count2000 = 72 Then history.Text += ("12padams: You just have to make sure you tell me ok..." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: wait are you saying that this software can accually take someone back that far?" & Environment.NewLine) Case 120
End If 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)
If count2000 = 78 Then Case 124
history.Text = history.Text + ("12padams: Well apon the numbers switching to 2000 it may instead switch to 1900" & Environment.NewLine) history.Text += ("12padams: wow good job... ok heres what we will do" & Environment.NewLine)
End If Case 130
If count2000 = 82 Then 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)
history.Text = history.Text + ("The Hidden Hacker: Ok but can you tell me what will happen?" & Environment.NewLine) Case 135
End If history.Text += ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine)
If count2000 = 87 Then Case 140
history.Text = history.Text + ("12padams: Well I am just worried about when he goes past the year 2000 during travel..." & Environment.NewLine) history.Text += ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine)
End If Case 144
If count2000 = 91 Then history.Text += ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: I know that but what could happen?" & Environment.NewLine) Case 149
End If history.Text += ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine)
If count2000 = 96 Then Case 155
history.Text = history.Text + ("12padams: Well There may be the slight chance of YK2 interference" & Environment.NewLine) 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)
End If Case 160
If count2000 = 100 Then history.Text += ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: I need to know what could go wrong." & Environment.NewLine) Case 166
End If history.Text += ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine)
If count2000 = 104 Then Case 170
history.Text = history.Text + ("12padams: What do you need to know?" & Environment.NewLine) history.Text += ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine)
End If Case 175
If count2000 = 108 Then history.Text += ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: I just have a few questions..." & Environment.NewLine) Case Else 'Probably a better way to do this
End If If count2000 < 175 Then
If count2000 = 111 Then history.Focus()
history.Text = history.Text + ("The Hidden Hacker: Don't Worry... I will" & Environment.NewLine) history.SelectionStart = 999999
End If history.ScrollToCaret()
If count2000 = 115 Then typechat.Focus()
history.Text = history.Text + ("12padams: You just have to make sure you tell me ok..." & Environment.NewLine) End If
End If End Select
If count2000 = 120 Then
history.Text = 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)
End If
If count2000 = 124 Then
history.Text = history.Text + ("12padams: wow good job... ok heres what we will do" & Environment.NewLine)
End If
If count2000 = 130 Then
history.Text = 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)
End If
If count2000 = 135 Then
history.Text = history.Text + ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine)
End If
If count2000 = 140 Then
history.Text = history.Text + ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine)
End If
If count2000 = 144 Then
history.Text = history.Text + ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine)
End If
If count2000 = 149 Then
history.Text = history.Text + ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine)
End If
If count2000 = 155 Then
history.Text = 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)
End If
If count2000 = 160 Then
history.Text = history.Text + ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine)
End If
If count2000 = 166 Then
history.Text = history.Text + ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine)
End If
If count2000 = 170 Then
history.Text = history.Text + ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine)
End If
If count2000 = 175 Then
history.Text = history.Text + ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine)
End If
If count2000 < 175 Then
history.Focus()
history.SelectionStart = 999999
history.ScrollToCaret()
typechat.Focus()
End If
End Sub End Sub
End Class End Class

1429
windows 95/Webchat1998.vb
View file

File diff suppressed because it is too large Load diff

309
windows 95/webchat 2000.vb
View file

@ -3,22 +3,15 @@
Dim waiting2 As Boolean = False Dim waiting2 As Boolean = False
Dim con As Integer = 1 Dim con As Integer = 1
Dim ran As New Random Dim ran As New Random
Dim abletoclose As String = "yes"
Dim username As String Dim username As String
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
If abletoclose = "yes" Then Me.Close()
Me.Close()
End If
If abletoclose = "no" Then
End If
End Sub End Sub
Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
look.Start() look.Start()
Button5.Hide() Button5.Hide()
Label5.Hide() Label5.Hide()
abletoclose = "yes"
ListBox1.Items.Add("12padams") ListBox1.Items.Add("12padams")
ListBox1.Items.Add("The Hidden Hacker") ListBox1.Items.Add("The Hidden Hacker")
End Sub End Sub
@ -28,7 +21,7 @@
login.Hide() login.Hide()
Chat.Start() Chat.Start()
ListBox1.Items.Add(username) ListBox1.Items.Add(username)
history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) history.Text += (username & " Has Logged On" & Environment.NewLine)
End Sub End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
@ -36,7 +29,7 @@
If typechat.Text = "star" Then If typechat.Text = "star" Then
Chat.Start() Chat.Start()
con = con + 1 con = con + 1
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
@ -44,8 +37,8 @@
typechat.Focus() typechat.Focus()
waiting = False waiting = False
Else Else
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) 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) 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 = "" typechat.Text = ""
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
@ -54,7 +47,7 @@
End If End If
Else Else
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
typechat.Focus() typechat.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
@ -64,179 +57,116 @@
End Sub End Sub
Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick
If con = 34 Then Select Case con
Me.Close() Case 34
Chat.Interval = 2000 Me.Close()
con = con + 1 Chat.Interval = 2000
End If Case 33
If con = 33 Then history.Text += ("12padams: Close any open programs now!!!" & Environment.NewLine)
history.Text = history.Text + ("12padams: Close any open programs now!!!" & Environment.NewLine) Chat.Interval = 3000
Chat.Interval = 3000 Case 32
con = con + 1 history.Text += ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine)
End If Chat.Interval = 3000
If con = 32 Then Case 31
history.Text = history.Text + ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) history.Text += ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con = con + 1 Case 30
End If history.Text += ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine)
If con = 31 Then Chat.Interval = 5000
history.Text = history.Text + ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) Case 29
Chat.Interval = 3000 history.Text += ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine)
con = con + 1 Chat.Interval = 7000
End If Case 28
If con = 30 Then history.Text += ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) Chat.Interval = 6000
Chat.Interval = 5000 Case 27
con = con + 1 history.Text += ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine)
End If Chat.Interval = 8000
If con = 29 Then Case 26
history.Text = history.Text + ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) history.Text += ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con = con + 1 Case 25
End If history.Text += ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine)
If con = 28 Then Chat.Interval = 6000
history.Text = history.Text + ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) Case 24
Chat.Interval = 6000 history.Text += ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine)
con = con + 1 Chat.Interval = 6000
End If Case 23
If con = 27 Then history.Text += ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine)
history.Text = history.Text + ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) Chat.Interval = 6000
Chat.Interval = 8000 Case 22
con = con + 1 Label5.Show()
End If Button5.Show()
If con = 26 Then Chat.Interval = 2000
history.Text = history.Text + ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) Chat.Stop()
Chat.Interval = 7000 waitingdownload.Start()
con = con + 1 con -= 1
End If Case 21
If con = 25 Then 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)
history.Text = history.Text + ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) Chat.Interval = 4000
Chat.Interval = 6000 waitfor02download = True
con = con + 1 Case 20
End If history.Text += ("12padams: So ready to get started?" & Environment.NewLine)
If con = 24 Then Chat.Interval = 5000
history.Text = history.Text + ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) Case 19
Chat.Interval = 6000 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)
con = con + 1 Chat.Interval = 7000
End If Case 18
If con = 23 Then history.Text += ("12padams: Thats corrent yes... " & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) Chat.Interval = 6000
Chat.Interval = 6000 Case 17
con = con + 1 history.Text += ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine)
End If Chat.Interval = 4000
If con = 22 Then Case 16
Label5.Show() history.Text += ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine)
Button5.Show() Chat.Interval = 5000
Chat.Interval = 2000 Case 15
Chat.Stop() history.Text += ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine)
waitingdownload.Start() Chat.Interval = 6000
End If Case 14
If con = 21 Then 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)
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 = 9000
Chat.Interval = 4000 Case 13
con = con + 1 history.Text += ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine)
waitfor02download = True Chat.Interval = 5000
End If Case 12
If con = 20 Then history.Text += ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine)
history.Text = history.Text + ("12padams: So ready to get started?" & Environment.NewLine) Chat.Interval = 5000
Chat.Interval = 5000 Case 11
con = con + 1 history.Text += ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine)
End If Chat.Interval = 6000
If con = 19 Then Case 10
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) history.Text += ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 6000
con = con + 1 Case 9
End If history.Text += ("12padams: Yes you do." & Environment.NewLine)
If con = 18 Then Chat.Interval = 4000
history.Text = history.Text + ("12padams: Thats corrent yes... " & Environment.NewLine) Case 8
Chat.Interval = 6000 history.Text += ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine)
con = con + 1 Chat.Interval = 3000
End If Case 7
If con = 17 Then history.Text += ("12padams: ok good that was the password." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) Chat.Interval = 5000
Chat.Interval = 4000 Case 6
con = con + 1 waiting = True
End If Chat.Stop()
If con = 16 Then Case 5
history.Text = history.Text + ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) history.Text += ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 1000
con = con + 1 Case 4
End If history.Text += ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine)
If con = 15 Then Chat.Interval = 3000
history.Text = history.Text + ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) Case 3
Chat.Interval = 6000 history.Text += ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine)
con = con + 1 Chat.Interval = 6000
End If Case 2
If con = 14 Then history.Text += ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine)
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 = 4000
Chat.Interval = 9000 Case 1
con = con + 1 history.Text += ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine)
End If Chat.Interval = 5000
If con = 13 Then End Select
history.Text = history.Text + ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) con += 1
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.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
@ -254,7 +184,7 @@
Dim maximize As Boolean Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable = True Then If moveable Then
If e.Button = MouseButtons.Left Then If e.Button = MouseButtons.Left Then
programtopbar.Capture = False programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S Const WM_NCLBUTTONDOWN As Integer = &HA1S
@ -264,7 +194,6 @@
New IntPtr(HTCAPTION), IntPtr.Zero) New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg) Me.DefWndProc(msg)
End If End If
Else
End If End If
End Sub End Sub
@ -351,10 +280,10 @@
End Sub End Sub
Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick
If waitfor02download = False Then If Not waitfor02download Then
Chat.Start() Chat.Start()
waitingdownload.Stop() waitingdownload.Stop()
con = con + 1 con += 1
End If End If
End Sub End Sub

344
windows 95/webchat 2001.vb
View file

@ -3,22 +3,15 @@
Dim waiting2 As Boolean = False Dim waiting2 As Boolean = False
Dim con As Integer = 1 Dim con As Integer = 1
Dim ran As New Random Dim ran As New Random
Dim abletoclose As String = "yes"
Dim username As String Dim username As String
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
If abletoclose = "yes" Then Me.Close()
Me.Close()
End If
If abletoclose = "no" Then
End If
End Sub End Sub
Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
look.Start() look.Start()
Button5.Hide() Button5.Hide()
Label5.Hide() Label5.Hide()
abletoclose = "yes"
ListBox1.Items.Add("12padams") ListBox1.Items.Add("12padams")
ListBox1.Items.Add("The Hidden Hacker") ListBox1.Items.Add("The Hidden Hacker")
End Sub End Sub
@ -28,15 +21,15 @@
login.Hide() login.Hide()
Chat.Start() Chat.Start()
ListBox1.Items.Add(username) ListBox1.Items.Add(username)
history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) history.Text += (username & " Has Logged On" & Environment.NewLine)
End Sub End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If waiting = True Then If waiting Then
If typechat.Text = "star" Then If typechat.Text = "star" Then
Chat.Start() Chat.Start()
con = con + 1 con += 1
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
@ -44,199 +37,164 @@
typechat.Focus() typechat.Focus()
waiting = False waiting = False
Else Else
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) 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) 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 = "" typechat.Text = ""
history.Focus() history.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
typechat.Focus() typechat.Focus()
End If End If
Else Else
history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) history.Text += (username & ": " & typechat.Text & Environment.NewLine)
typechat.Text = "" typechat.Text = ""
typechat.Focus() typechat.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
End If End If
End Sub End Sub
Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick
If con = 34 Then Select Case con
Me.Close() Case 34
Chat.Interval = 2000 Me.Close()
con = con + 1 Chat.Interval = 2000
End If con += 1
If con = 33 Then Case 33
history.Text = history.Text + ("12padams: Close any open programs now!!!" & Environment.NewLine) history.Text += ("12padams: Close any open programs now!!!" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con = con + 1 con += 1
End If Case 32
If con = 32 Then history.Text += ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine)
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
Chat.Interval = 3000 con += 1
con = con + 1 Case 31
End If history.Text += ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine)
If con = 31 Then Chat.Interval = 3000
history.Text = history.Text + ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) con += 1
Chat.Interval = 3000 Case 30
con = con + 1 history.Text += ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine)
End If Chat.Interval = 5000
If con = 30 Then con += 1
history.Text = history.Text + ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) Case 29
Chat.Interval = 5000 history.Text += ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine)
con = con + 1 Chat.Interval = 7000
End If con += 1
If con = 29 Then Case 28
history.Text = history.Text + ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) history.Text += ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 6000
con = con + 1 con += 1
End If Case 27
If con = 28 Then history.Text += ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) Chat.Interval = 8000
Chat.Interval = 6000 con += 1
con = con + 1 Case 26
End If history.Text += ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine)
If con = 27 Then Chat.Interval = 7000
history.Text = history.Text + ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) con += 1
Chat.Interval = 8000 Case 25
con = con + 1 history.Text += ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 26 Then con += 1
history.Text = history.Text + ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) Case 24
Chat.Interval = 7000 history.Text += ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine)
con = con + 1 Chat.Interval = 6000
End If con += 1
If con = 25 Then Case 23
history.Text = history.Text + ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) history.Text += ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con = con + 1 con += 1
End If Case 22
If con = 24 Then Label5.Show()
history.Text = history.Text + ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) Button5.Show()
Chat.Interval = 6000 Chat.Interval = 2000
con = con + 1 Chat.Stop()
End If waitingdownload.Start()
If con = 23 Then Case 21
history.Text = history.Text + ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) 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 = 6000 Chat.Interval = 4000
con = con + 1 con += 1
End If waitfor02download = True
If con = 22 Then Case 20
Label5.Show() history.Text += ("12padams: So ready to get started?" & Environment.NewLine)
Button5.Show() Chat.Interval = 5000
Chat.Interval = 2000 con += 1
Chat.Stop() Case 19
waitingdownload.Start() 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)
End If Chat.Interval = 7000
If con = 21 Then con += 1
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) Case 18
Chat.Interval = 4000 history.Text += ("12padams: Thats corrent yes... " & Environment.NewLine)
con = con + 1 Chat.Interval = 6000
waitfor02download = True con += 1
End If Case 17
If con = 20 Then history.Text += ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine)
history.Text = history.Text + ("12padams: So ready to get started?" & Environment.NewLine) Chat.Interval = 4000
Chat.Interval = 5000 con += 1
con = con + 1 Case 16
End If history.Text += ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine)
If con = 19 Then Chat.Interval = 5000
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) con += 1
Chat.Interval = 7000 Case 15
con = con + 1 history.Text += ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 18 Then con += 1
history.Text = history.Text + ("12padams: Thats corrent yes... " & Environment.NewLine) Case 14
Chat.Interval = 6000 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)
con = con + 1 Chat.Interval = 9000
End If con += 1
If con = 17 Then Case 13
history.Text = history.Text + ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) history.Text += ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 5000
con = con + 1 con += 1
End If Case 12
If con = 16 Then history.Text += ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine)
history.Text = history.Text + ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) Chat.Interval = 5000
Chat.Interval = 5000 con += 1
con = con + 1 Case 11
End If history.Text += ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine)
If con = 15 Then Chat.Interval = 6000
history.Text = history.Text + ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) con += 1
Chat.Interval = 6000 Case 10
con = con + 1 history.Text += ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine)
End If Chat.Interval = 6000
If con = 14 Then con += 1
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) Case 9
Chat.Interval = 9000 history.Text += ("12padams: Yes you do." & Environment.NewLine)
con = con + 1 Chat.Interval = 4000
End If con += 1
If con = 13 Then Case 8
history.Text = history.Text + ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) history.Text += ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 3000
con = con + 1 con += 1
End If Case 7
If con = 12 Then history.Text += ("12padams: ok good that was the password." & Environment.NewLine)
history.Text = history.Text + ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) Chat.Interval = 5000
Chat.Interval = 5000 con += 1
con = con + 1 Case 6
End If waiting = True
If con = 11 Then Chat.Stop()
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) Case 5
Chat.Interval = 6000 history.Text += ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine)
con = con + 1 Chat.Interval = 1000
End If con += 1
If con = 10 Then Case 4
history.Text = history.Text + ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) 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 = 6000 Chat.Interval = 3000
con = con + 1 con += 1
End If Case 3
If con = 9 Then history.Text += ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine)
history.Text = history.Text + ("12padams: Yes you do." & Environment.NewLine) Chat.Interval = 6000
Chat.Interval = 4000 con += 1
con = con + 1 Case 2
End If history.Text += ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine)
If con = 8 Then Chat.Interval = 4000
history.Text = history.Text + ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) con += 1
Chat.Interval = 3000 Case 1
con = con + 1 history.Text += ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine)
End If Chat.Interval = 5000
If con = 7 Then con += 1
history.Text = history.Text + ("12padams: ok good that was the password." & Environment.NewLine) End Select
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.Focus()
history.SelectionStart = 999999 history.SelectionStart = 999999
history.ScrollToCaret() history.ScrollToCaret()
@ -351,12 +309,10 @@
End Sub End Sub
Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick
If waitfor02download = False Then If Not waitfor02download Then
Chat.Start() Chat.Start()
waitingdownload.Stop() waitingdownload.Stop()
con = con + 1 con += 1
End If End If
End Sub End Sub
End Class End Class