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

Web Chat 1998 modified (not the interface, but the storyline)

Browse source
This commit is contained in:
jakeypearce 2015-08-07 16:12:38 +01:00
parent 5a66fa33aa
commit 636946ca54
21 changed files with 2127 additions and 1855 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
windows 95/Command prompt.Designer.vb generated
View file

@ -61,6 +61,9 @@ Partial Class Command_prompt
Me.TextBox1.Size = New System.Drawing.Size(405, 189) Me.TextBox1.Size = New System.Drawing.Size(405, 189)
Me.TextBox1.TabIndex = 6 Me.TextBox1.TabIndex = 6
' '
'look
'
'
'pullbs 'pullbs
' '
Me.pullbs.Interval = 1 Me.pullbs.Interval = 1

4
windows 95/Command prompt.vb
View file

@ -103,6 +103,10 @@
End If End If
End Sub End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick 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.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage

3
windows 95/Guess The Number app.Designer.vb generated
View file

@ -133,6 +133,9 @@ Partial Class Guess_The_Number_app
' '
Me.selector.Interval = 1000 Me.selector.Interval = 1000
' '
'look
'
'
'pullbs 'pullbs
' '
Me.pullbs.Interval = 1 Me.pullbs.Interval = 1

6
windows 95/Guess The Number app.vb
View file

@ -10,7 +10,7 @@
Dim randnumb As New Random Dim randnumb As New Random
Private Sub Guess_The_Number_app_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub Guess_The_Number_app_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
thenumber = randnumb.Next(1, 101) thenumber = randnumb.Next(1, 100)
look.Start() look.Start()
End Sub End Sub
@ -200,6 +200,10 @@
End If End If
End Sub End Sub
Private Sub program_Paint(sender As Object, e As PaintEventArgs) Handles program.Paint
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick 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.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage

29
windows 95/InternetExplorer7test.Designer.vb generated Normal file
View file

@ -0,0 +1,29 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class InternetExplorer7test
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Text = "InternetExplorer7test"
End Sub
End Class

3
windows 95/InternetExplorer7test.vb Normal file
View file

@ -0,0 +1,3 @@
Public Class InternetExplorer7test
End Class

124
windows 95/My Project/Resources.Designer.vb generated
View file

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' This code was generated by a tool.
' Runtime Version:4.0.30319.0 ' Runtime Version:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated. ' the code is regenerated.
@ -190,6 +190,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Command_Prompt_icon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Command-Prompt-icon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -690,6 +700,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property money() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("money", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -740,6 +760,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property other_fire_143887964479415() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("other_fire_143887964479415", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -1200,15 +1230,6 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property windows_2000_boot_sound() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("windows_2000_boot_sound", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -1229,6 +1250,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_2000_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_2000_Shutdown", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -1239,6 +1269,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_2000_Startup() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_2000_Startup", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -1259,6 +1298,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_95_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_95_Shutdown", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap. ''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -1284,7 +1332,16 @@ Namespace My.Resources
'''</summary> '''</summary>
Friend ReadOnly Property windows_98_error_sound() As System.IO.UnmanagedMemoryStream Friend ReadOnly Property windows_98_error_sound() As System.IO.UnmanagedMemoryStream
Get Get
Return ResourceManager.GetStream("windows 98 error sound", resourceCulture) Return ResourceManager.GetStream("windows_98_error_sound", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_98_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_98_Shutdown", resourceCulture)
End Get End Get
End Property End Property
@ -1308,6 +1365,51 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property windows_ME_boot_sound() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("windows_ME_boot_sound", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_ME_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_ME_Shutdown", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_ME_Startup() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_ME_Startup", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_Vista_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_Vista_Shutdown", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary>
Friend ReadOnly Property Windows_XP_Shutdown() As System.IO.UnmanagedMemoryStream
Get
Return ResourceManager.GetStream("Windows_XP_Shutdown", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream. ''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
'''</summary> '''</summary>

1378
windows 95/My Project/Resources.resx
View file

File diff suppressed because it is too large Load diff

BIN
windows 95/Resources/Command-Prompt-icon.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
windows 95/Resources/money.gif Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 67 KiB

BIN
windows 95/Resources/other-fire-143887964479415.gif Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 67 KiB

1433
windows 95/Skindows 95.Designer.vb generated
View file

File diff suppressed because it is too large Load diff

8
windows 95/Skindows 95.vb
View file

@ -1323,6 +1323,14 @@
End If End If
End Sub End Sub
Private Sub taskbar_Paint(sender As Object, e As PaintEventArgs) Handles taskbar.Paint
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs)
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick 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.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage

84
windows 95/WebChat 1999.vb
View file

@ -53,79 +53,79 @@
Chat.Stop() Chat.Stop()
Else Else
Chat.Start() Chat.Start()
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 says that you just started the timer." & mainname & Environment.NewLine)
End If End If
Case 66 Case 66
history.Text += ("The Hidden Hacker: I Hope this works..." & Environment.NewLine) history.Text += ("The Hidden Hacker: I hope this works..." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
count.Start() count.Start()
waitfor02download = True waitfor02download = True
Chat.Stop() Chat.Stop()
Case 65 Case 65
history.Text += ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine) history.Text += ("12padams: OK " & mainname & " download it now and we will wait for you." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 64 Case 64
Label5.Show() Label5.Show()
Button5.Show() Button5.Show()
Case 63 Case 63
history.Text += ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine) history.Text += ("12padams: We will start now. Il'l send 0.2 of time distorter and " & mainname & " can download it!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 62 Case 62
history.Text += ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine) history.Text += ("The Hidden Hacker: Ok then. When do we start?" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
Case 61 Case 61
history.Text += ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine) history.Text += ("12padams: Nothing will go wrong. I think I got this." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 60 Case 60
history.Text += ("The Hidden Hacker: But what If something goes wrong and " & mainname & " doesn't get to the year 2000 properly?" & Environment.NewLine) history.Text += ("The Hidden Hacker: What if something goes wrong and " & mainname & " doesn't get to the year 2000?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 59 Case 59
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 += ("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 Chat.Interval = 7000
Case 58 Case 58
history.Text += ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine) history.Text += ("The Hidden Hacker: What do you want me to do?" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
Case 57 Case 57
history.Text += ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine) history.Text += ("12padams: It has to be done... you need to help me, guys... please!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 56 Case 56
history.Text += ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine) history.Text += ("The Hidden Hacker: That is too risky, don't you think so?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 55 Case 55
history.Text += ("12padams: This could serriously impact my time travel software." & Environment.NewLine) history.Text += ("12padams: This could seriously impact my time travel software." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
Case 54 Case 54
history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine) history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 53 Case 53
history.Text += ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine) history.Text += ("12padams: Simply put, I wrote an article on the Year 2000 bug." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 52 Case 52
history.Text += ("12padams: haha sorry I forgot about that" & Environment.NewLine) history.Text += ("12padams: Sorry, I forgot about that!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 51 Case 51
history.Text += ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine) history.Text += ("The Hidden Hacker: I am blocked from using your website, remember?" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
Case 50 Case 50
history.Text += ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine) history.Text += ("12padams: It will, but did you not read the article on my website of the Y2K bug?" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 49 Case 49
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: Why does he need to try it out? Won't it work like 0.1 did?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 48 Case 48
history.Text += ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine) history.Text += ("12padams: " & mainname & "... I will need you to try this out again." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 47 Case 47
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) 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 Chat.Interval = 4000
Case 46 Case 46
history.Text += ("12padams: 0.2 is much different however" & Environment.NewLine) history.Text += ("12padams: 0.2 is much different however!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 45 Case 45
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) 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 Chat.Interval = 7000
Case 44 Case 44
history.Text += ("12padams: oh woops yea oh cause you would" & Environment.NewLine) history.Text += ("12padams: Of course you would! Why did I ask that?" & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
Case 43 Case 43
history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine) history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine)
@ -134,64 +134,64 @@
history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine) history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
Case 41 Case 41
history.Text += ("12padams: Oh right I forgot to tell you both" & Environment.NewLine) history.Text += ("12padams: I forgot to tell you both!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 40 Case 40
history.Text += ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine) history.Text += ("The Hidden Hacker: Wait a sec... you mean we are going to time travel again?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 39 Case 39
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 += ("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 Chat.Interval = 6000
Case 38 Case 38
history.Text += ("12padams: I am not really sure accually... um let me think" & Environment.NewLine) history.Text += ("12padams: I am not really sure actually... let me think this through!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 37 Case 37
history.Text += ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine) history.Text += ("The Hidden Hacker: What do you mean by guider?" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 36 Case 36
history.Text += ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine) history.Text += ("12padams: As for you, The Hidden Hacker... you can be the... guider." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
Case 35 Case 35
history.Text += ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine) history.Text += ("12padams: " & mainname & " can be the tester for my time travel software." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 34 Case 34
history.Text += ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine) history.Text += ("12padams: I am the coder who will be working on the time travel software." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
Case 33 Case 33
history.Text += ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine) history.Text += ("The Hidden Hacker: What do you mean by that?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 32 Case 32
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 += ("12padams: 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
Case 31 Case 31
history.Text += ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine) 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 Chat.Interval = 6000
Case 30 Case 30
history.Text += ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine) 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 Chat.Interval = 6000
Case 29 Case 29
history.Text += ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine) history.Text += ("12padams: From now on we will call this user " & mainname & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Case 28 Case 28
if mainname == "" Then If mainname = "" Then
con -= 1 con -= 1
End If End If
Chat.Interval = 3000 Chat.Interval = 3000
Case 27 Case 27
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 += ("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 Chat.Interval = 6000
waiting = True waiting = True
Case 26 Case 26
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) history.Text += ("12padams: OK, what's making me annoyed now is not knowing what this Windows 98 name is!" & Environment.NewLine)
Chat.Interval = 9000 Chat.Interval = 9000
Case 25 Case 25
history.Text += ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine) history.Text += ("The Hidden Hacker: Well that is a relief, isn't it? Hey what's your name again?" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
Case 24 Case 24
history.Text += ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine) history.Text += ("12padams: So I just wanted to say thanks to both of you... " & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Case 23 Case 23
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) 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 Chat.Interval = 9000
Case 22 Case 22
history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine) history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine)

15
windows 95/Webchat.Designer.vb generated
View file

@ -79,9 +79,10 @@ Partial Class Webchat1998
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(22, 33) Me.Label7.Location = New System.Drawing.Point(22, 33)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(389, 13) Me.Label7.Size = New System.Drawing.Size(454, 13)
Me.Label7.TabIndex = 18 Me.Label7.TabIndex = 18
Me.Label7.Text = "To Speak Just type a message in the bottom textbox then press the speak button" Me.Label7.Text = "To speak, just type a message in the bottom textbox then press the speak button o" &
"r press enter"
' '
'Label6 'Label6
' '
@ -174,9 +175,9 @@ Partial Class Webchat1998
Me.TextBox2.ReadOnly = True Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(151, 86) Me.TextBox2.Size = New System.Drawing.Size(151, 86)
Me.TextBox2.TabIndex = 6 Me.TextBox2.TabIndex = 6
Me.TextBox2.Text = "A screen name is a tempary name which will be displayed in place of your real nam" & _ Me.TextBox2.Text = "A screen name is a temporary name which will be displayed in place of your real n" &
"e. To keep your identity safe please do not enter your real name in this chatroo" & _ "ame. To keep your identity safe please do not enter your real name in this chatr" &
"m" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) "oom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
' '
'TextBox1 'TextBox1
' '
@ -226,9 +227,9 @@ Partial Class Webchat1998
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(328, 161) Me.Label2.Location = New System.Drawing.Point(328, 161)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(154, 13) Me.Label2.Size = New System.Drawing.Size(150, 13)
Me.Label2.TabIndex = 0 Me.Label2.TabIndex = 0
Me.Label2.Text = "Please Type in a Screen Name" Me.Label2.Text = "Please Type in a screen name"
' '
'typechat 'typechat
' '

277
windows 95/Webchat1998.vb
View file

@ -37,10 +37,90 @@
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 Select Case con
Case 163
history.Text = ("RESTORING BORDER" & Environment.NewLine)
program.BorderStyle = BorderStyle.FixedSingle
history.BorderStyle = BorderStyle.FixedSingle
top.Show()
left.Show()
bottom.Show()
right.Show()
toprightcorner.Show()
topleftcorner.Show()
bottomrightcorner.Show()
bottomleftcorner.Show()
history.Text = ("BORDER RESTORE COMPLETE" & Environment.NewLine)
Case 162
history.Text = Environment.NewLine("RESTORING CHANGES..." & Environment.NewLine)
Chat.Interval = 3000
con += 1
Case 161
history.Text = ("The Hidden Hacker: Download complete" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 160
history.Text = ("1" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 159
history.Text = ("2" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 158
history.Text = ("3" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 157
history.Text = ("4" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 156
history.Text = ("5" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 155
history.Text = ("6" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 154
history.Text = ("7" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 153
history.Text = ("8" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 152
history.Text = ("9" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 151
history.Text = ("The Hidden Hacker: Downloading in 10" & Environment.NewLine)
Chat.Interval = 1000
con += 1
Case 150
history.Text = ("The Hidden Hacker: I have a copy of, not Time Distorter, but a software to remove 12padams' changes he made to your system." & Environment.NewLine)
con += 1
Case 149
history.Text = ("The Hidden Hacker: It is rumoured that this piece of software enables time travel. I know that you probably don't believe me but just trust me." & Environment.NewLine)
con += 1
Case 148
history.Text = ("The Hidden Hacker: Allow me to introduce myself. I go by the name 'The Hidden Hacker' and I needed to stop 12padams. The reason why is because he is using a hidden piece of software called Time Distorter." & Environment.NewLine)
con += 1
Case 147
history.Text = ("???: Oh, hello " & username & ", it seems that you got trapped here by a user called 12padams who made your Windows 95 computer into DOS!" & Environment.NewLine)
history.Text = ("1 IP address found! It is 102.58.72.128. This address belongs to " & username & Environment.NewLine)
con += 1
Case 146
history.Text = ("??? is scanning IP address!" & Environment.NewLine)
Case 145
history.Text = ("???: Hello?! Anyone here?" & Environment.NewLine)
con += 1
Case 144 Case 144
Title_Screen.Close() history.Text = ("Connected!" & Environment.NewLine)
con += 1
Case 143 Case 143
history.Text = (Environment.NewLine & "Game Over... You lose because you are using MS-DOS from the early 1980's and its 1998... Serriously what were you thinking??" & Environment.NewLine) history.Text = ("IP 192.68.142.78 connecting..." & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 142 Case 142
@ -61,55 +141,55 @@
history.ReadOnly = True history.ReadOnly = True
con += 1 con += 1
Case 139 Case 139
history.Text += ("12padams: Oh last of all here is one hint... DOS IS USLESS... ITS JUST TEXT. NEXTTIME DON'T PIRATE SOFTWARE" & Environment.NewLine) history.Text += ("12padams: Oh and last of all, here is one hint... DOS IS USELESS! IT IS JUST TEXT! NEXT TIME DON'T PIRATE SOFTWARE!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 138 Case 138
history.Text += ("12padams: Ok see ya... You have learned two leasons today... 1. don't pirtae software, 2. you learnt about old operating systems." & Environment.NewLine) history.Text += ("12padams: You have learnt two leasons today... 1. don't pirate software and 2. you learnt about old operating systems." & Environment.NewLine)
Chat.Interval = 10000 Chat.Interval = 10000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 137 Case 137
history.ForeColor = Color.Silver history.ForeColor = Color.Gray
Chat.Interval = 2000 Chat.Interval = 2000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 136 Case 136
history.Text += ("12padams: In DOS the computer had grey text not white text i just gotta modify it first." & Environment.NewLine) history.Text += ("12padams: In DOS the computer had grey text, not white text. I just need to modify it first." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 135 Case 135
history.Text += ("12padams: Ok I just need to do one last setup for DOS" & Environment.NewLine) history.Text += ("12padams: I just need to do one last setup for DOS." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 133 Case 133
history.Text += ("12padams: Your computer now needs MS-DOS this will disconnect you from the convasation." & Environment.NewLine) history.Text += ("12padams: Your computer is running MS-DOS which is incompatible with this version of Chat! This will disconnect you from the conversation." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
history.ReadOnly = False history.ReadOnly = False
con = con + 2 con = con + 2
Case 131 Case 131
history.Text += ("12padams: Hmm i am being to kind.... I think i gotta go now." & Environment.NewLine) history.Text += ("12padams: I'm being too kind... I think I got to go now." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
history.ReadOnly = False history.ReadOnly = False
con = con + 2 con = con + 2
Case 130 Case 130
history.Text += ("12padams: Ok there you go you can now type... Happy now?" & Environment.NewLine) history.Text += ("12padams: There you go. You can type now. Happy?!" & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
history.ReadOnly = False history.ReadOnly = False
con += 1 con += 1
Case 129 Case 129
history.Text += ("12padams: Lol for once i am giving you a feature..." & Environment.NewLine) history.Text += ("12padams: For once I am giving you a feature..." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 128 Case 128
history.Text += ("12padams: Ok Well lol woops you can't type... thats a big mistake!!!!" & Environment.NewLine) history.Text += ("12padams: You can't type. That's a big mistake!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 127 Case 127
history.Text += ("12padams: Good now thats gone. I really gotta think for a little while at what to do next." & Environment.NewLine) history.Text += ("12padams: Good! Now that's gone, I really got to think for a little while at what to do next." & Environment.NewLine)
Chat.Interval = 10000 Chat.Interval = 10000
con += 1 con += 1
Case 126 Case 126
@ -126,15 +206,15 @@
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 125 Case 125
history.Text += ("12padams: Ok ill remove it now." & Environment.NewLine) history.Text += ("12padams: OK I'll remove it now." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 124 Case 124
history.Text += ("12padams: Oh and the the white border around your screen i can't forget to remove that..." & Environment.NewLine) history.Text += ("12padams: The white border around your screen; I can't forget to remove that!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 123 Case 123
history.Text += ("12padams: mouse removed..." & Environment.NewLine) history.Text += ("12padams: Mouse removed!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Cursor.Hide() Cursor.Hide()
@ -175,23 +255,23 @@
Chat.Interval = 1000 Chat.Interval = 1000
con += 1 con += 1
Case 113 Case 113
history.Text += ("12padams: Ok removing in 10..." & Environment.NewLine) history.Text += ("12padams: OK removing in 10..." & Environment.NewLine)
Chat.Interval = 1000 Chat.Interval = 1000
con += 1 con += 1
Case 112 Case 112
history.Text += ("12padams: Ok enjoy the mouse while you can because I am just about to remove it..." & Environment.NewLine) history.Text += ("12padams: Enjoy the mouse while you can! I'm about to remove it..." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 111 Case 111
history.Text += ("12padams: How could i forget to remove then mouse..." & Environment.NewLine) history.Text += ("12padams: How could I forget to remove the mouse?" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 110 Case 110
history.Text += ("12padams: Ok this is imbarrissing... I forgot to remove something thats really noticable that didn't exist." & Environment.NewLine) history.Text += ("12padams: OK, this is embarrissing... I forgot to remove something that's really noticable that didn't exist." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 109 Case 109
history.Text += ("12padams: Hmm... I seem to be making quite a good theme... I really should add this to skindows..." & Environment.NewLine) history.Text += ("12padams: It appears that I seem to be making quite a good theme... I really should add this to Skindows 98..." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 108 Case 108
@ -199,19 +279,19 @@
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 107 Case 107
history.Text += ("12padams: Ill just remove it now..." & Environment.NewLine) history.Text += ("12padams: I'll just remove it now..." & Environment.NewLine)
Chat.Interval = 2000 Chat.Interval = 2000
con += 1 con += 1
Case 106 Case 106
history.Text += ("12padams: I see the scroll bar at the side of the screen... that didn't exist early 1980's" & Environment.NewLine) history.Text += ("12padams: I see the scroll bar at the side of the screen which never existed early 1980s" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 105 Case 105
history.Text += ("12padams: hmm theres still something missing..." & Environment.NewLine) history.Text += ("12padams: There is something wrong though..." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 104 Case 104
history.Text += ("12padams: Wow your computers looking good... I should be a programmer since i did such a godo job..." & Environment.NewLine) history.Text += ("12padams: Wow! You're computer is looking good... I should be a programmer since I did such an excellent job..." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 103 Case 103
@ -219,11 +299,11 @@
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 102 Case 102
history.Text += ("12padams: Hmm yes Thats whats missing I gotta make the text full screen..." & Environment.NewLine) history.Text += ("12padams: That's whats missing; I gotta make the text full screen..." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 101 Case 101
history.Text += ("12padams: I Think I almost got your computer converted... early 1980's should be enough of a punishment..." & Environment.NewLine) history.Text += ("12padams: I think I almost got your computer converted... early 1980s should be enough of a punishment..." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 100 Case 100
@ -236,15 +316,15 @@
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 98 Case 98
history.Text += ("12padams: Ok I hope Your not Scared Of the dark!" & Environment.NewLine) history.Text += ("12padams: OK, I hope you're not scared of the dark!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 97 Case 97
history.Text += ("12padams: Hmm ok this is gunna be tricky..." & Environment.NewLine) history.Text += ("12padams: OK, this is going to be tricky..." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 96 Case 96
history.Text += ("12padams: Oh and we didn't have backgrounds... or even color for the matter..." & Environment.NewLine) history.Text += ("12padams: We didn't have backgrounds either... or even color for the matter..." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 95 Case 95
@ -254,7 +334,7 @@
Label1.Hide() Label1.Hide()
Label7.Hide() Label7.Hide()
Case 94 Case 94
history.Text += ("12padams: First of all we didn't have labels... so ill remove labels now" & Environment.NewLine) history.Text += ("12padams: First of all we didn't have labels... so I'll remove the labels now." & Environment.NewLine)
Chat.Interval = 2000 Chat.Interval = 2000
con += 1 con += 1
Case 93 Case 93
@ -262,7 +342,7 @@
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 92 Case 92
history.Text += ("12padams: This is good now i can teach you and punish you at the same time lol :) " & Environment.NewLine) history.Text += ("12padams: This is good! Now i can teach you and punish you at the same time lol :) " & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 91 Case 91
@ -270,29 +350,29 @@
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 90 Case 90
history.Text += ("12padams: Hmm your new... Infact I have scanned your system and your using windwos 95 which you just got very recenty... " & Environment.NewLine) history.Text += ("12padams: You must be new. I've scanned your system and you're using Windwos 95 OSR 2 which you just got very recently... " & Environment.NewLine)
Chat.Interval = 10000 Chat.Interval = 10000
con += 1 con += 1
Case 89 Case 89
history.Text += ("12padams: Oh thats Right you dont even talk so your problably don't even know its gone... " & Environment.NewLine) history.Text += ("12padams: Oh yeah! You dont even talk so you problably don't even know it's gone... " & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 88 Case 88
history.Text += ("12padams: Lol your problably saying WHY CAN'T I TALK... " & Environment.NewLine) history.Text += ("12padams: You're problably saying ""WHY CAN'T I TALK?!"" " & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
typechat.Hide() typechat.Hide()
Button2.Hide() Button2.Hide()
con += 1 con += 1
Case 87 Case 87
history.Text += ("12padams: Since you never talk i guess you won't be needing this..." & Environment.NewLine) history.Text += ("12padams: Since you never talk, I guess you won't be needing this..." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 86 Case 86
history.Text += ("12padams: " & username & "? I don't remeber you... Oh right your the silent one... " & Environment.NewLine) history.Text += ("12padams: " & username & "? I don't remeber you... Oh right you're the silent one... " & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 85 Case 85
history.Text += ("12padams: Now We are just left with... um wait who was it again..." & Environment.NewLine) history.Text += ("12padams: Now We are just left with... um wait who was it again?" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 84 Case 84
@ -301,44 +381,44 @@
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 83 Case 83
history.Text += ("12padams: Oh Don't you know how to? here ill do it for you..." & Environment.NewLine) history.Text += ("12padams: Oh don't you know how to? Here, I'll do it for you..." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 82 Case 82
history.Text += ("SkyHigh: But I can't!!!" & Environment.NewLine) history.Text += ("SkyHigh: But I can't!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 81 Case 81
history.Text += ("12padams: Stop? you both have been able to stop this the whole time... just turn off your computer..." & Environment.NewLine) history.Text += ("12padams: Stop? You both have been able to stop this the whole time... just turn off your computer!" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 80 Case 80
history.Text += ("SkyHigh: Please Stop!!!" & Environment.NewLine) history.Text += ("SkyHigh: Please stop!" & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 79 Case 79
history.Text += ("12padams: Ok now that thats removed i Can deal with your punishments" & Environment.NewLine) history.Text += ("12padams: OK, now that that's removed I can deal with your punishments." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
Panel1.Hide() Panel1.Hide()
con += 1 con += 1
Case 78 Case 78
history.Text += ("12padams: No because i got rid of him... oh woops and talking about getting rid of things lol i forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine) history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 77 Case 77
history.Text += ("12padams: Exactly and rain49 uploaded the skindows and do you see him now?" & Environment.NewLine) history.Text += ("12padams: Exactly and rain49 uploaded Skindows 95. Do you see him now?" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 76 Case 76
history.Text += ("SkyHigh: I thought its only illegal to upload stuff..." & Environment.NewLine) history.Text += ("SkyHigh: I thought it was only illegal to upload stuff..." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 75 Case 75
history.Text += ("SkyHigh: Please Thats It!!! STOP. Me and " & username & " didn't accually do the uploading..." & Environment.NewLine) history.Text += ("SkyHigh: Please that's it! STOP. me and " & username & " didn't actually do the uploading..." & Environment.NewLine)
Chat.Interval = 9000 Chat.Interval = 9000
con += 1 con += 1
Case 74 Case 74
history.Text += ("SkyHigh: Damn IT!!! what are we supposed to do now " & username & "... he got rid of the top bar with the close button and maximize and all the..." & Environment.NewLine) history.Text += ("SkyHigh: Damn it! What are we supposed to do now " & username & "... he got rid of the top bar with the close button and maximize and all the..." & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 73 Case 73
@ -346,11 +426,11 @@
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 72 Case 72
history.Text += ("12padams: What I have done everything...? What about this?" & Environment.NewLine) history.Text += ("12padams: I've done everything...? No! What about this?" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 71 Case 71
history.Text += ("SkyHigh: NOOOOOOO please this is enough you have done everything. I won't illegally download your software again" & Environment.NewLine) history.Text += ("SkyHigh: Please this is enough! You have done everything to convince me that I won't illegally download your software again." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 70 Case 70
@ -359,7 +439,7 @@
Windows95.Hide() Windows95.Hide()
Me.WindowState = FormWindowState.Maximized Me.WindowState = FormWindowState.Maximized
Case 69 Case 69
history.Text += ("12padams: Well first I need your full attention..." & Environment.NewLine) history.Text += ("12padams: Well first, I need your full attention." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Dim FontName As String = "Arial" Dim FontName As String = "Arial"
@ -367,98 +447,98 @@
Dim FS As New Font(FontName, FontSize, FontStyle.Regular) Dim FS As New Font(FontName, FontSize, FontStyle.Regular)
history.Font = FS history.Font = FS
Case 68 Case 68
history.Text += ("SkyHigh: Please Let Me and " & username & " go and just forget this happened!!!!" & Environment.NewLine) history.Text += ("SkyHigh: Please let me and " & username & " go and just forget this happened!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 67 Case 67
history.Text += ("12padams: You wanna Know how to Stop this?!!!!" & Environment.NewLine) history.Text += ("12padams: You want to know how to stop this?!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 66 Case 66
history.Text += ("SkyHigh: Please Stop!!!!" & Environment.NewLine) history.Text += ("SkyHigh: Please stop!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 65 Case 65
history.Text += ("12padams: Oh yea and your icons are infected so you don't need them" & Environment.NewLine) history.Text += ("12padams: Oh yeah, and your icons are infected so you don't need them." & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
Windows95.desktopicons.Hide() Windows95.desktopicons.Hide()
con += 1 con += 1
Case 64 Case 64
history.Text += ("12padams: Oh but you said to the remove viruses and your taskbar was infected... it had no start button" & Environment.NewLine) history.Text += ("12padams: Did you not say to the remove viruses? Your taskbar was infected since it had no start button." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 63 Case 63
history.Text += ("SkyHigh: Hey What the hell give me back my taskbar!!!" & Environment.NewLine) history.Text += ("SkyHigh: Hey! What the hell? Give me back my taskbar!" & Environment.NewLine)
Chat.Interval = 9000 Chat.Interval = 9000
con += 1 con += 1
Case 62 Case 62
history.Text += ("12padams: Hmm the taskbar was made by microsoft for windows 95...." & Environment.NewLine) history.Text += ("12padams: The taskbar was made by Microsoft making its debut in Windows 95..." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Windows95.taskbar.Hide() Windows95.taskbar.Hide()
Case 61 Case 61
history.Text += ("12padams: Hmm I see a Taskbar at the bottom of the screen..." & Environment.NewLine) history.Text += ("12padams: I see a taskbar at the bottom of the screen." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 60 Case 60
history.Text += ("12padams: Well the whole of windows 95 is a virus so hmm where do we begin..." & Environment.NewLine) history.Text += ("12padams: Well the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 59 Case 59
history.Text += ("12padams: Get Rid of the viruses did you say???" & Environment.NewLine) history.Text += ("12padams: Get rid of the viruses did you type?" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 58 Case 58
history.Text += ("SkyHigh: What the Hell??? just get rid of these viruses now!!!" & Environment.NewLine) history.Text += ("SkyHigh: What the hell?! Just get rid of these viruses now!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 57 Case 57
history.Text += ("12padams: Anyway SkyHigh you are asking to many questions... Its time I unleash my next virus" & Environment.NewLine) history.Text += ("12padams: Anyway SkyHigh you are asking too many questions... It's time I unleash my next virus!" & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 56 Case 56
history.Text += ("12padams: Well It causes your computer to have all its funtions disabled" & Environment.NewLine) history.Text += ("12padams: Well, it causes your computer to have all its functions disabled thus slowly killing the computer!" & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 55 Case 55
history.Text += ("SkyHigh: Whats the virus do?" & Environment.NewLine) history.Text += ("SkyHigh: What does the virus do?" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 54 Case 54
history.Text += ("12padams: Your both experienceing a lethal virus which i like to call (death)" & Environment.NewLine) history.Text += ("12padams: You're both experienceing a lethal virus which i like to call ""death" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 53 Case 53
history.Text += ("12padams: I told you that you were gunna be punished...." & Environment.NewLine) history.Text += ("12padams: I told you that you were going to be punished." & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 52 Case 52
history.Text += ("SkyHigh: Hey what i can't open anything?" & Environment.NewLine) history.Text += ("SkyHigh: Hey! Why can't I open anything?" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 51 Case 51
history.Text += ("SkyHigh: Don't worry " & username & " ill look online for help" & Environment.NewLine) history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Windows95.Enabled = False Windows95.Enabled = False
con += 1 con += 1
Case 50 Case 50
history.Text += ("12padams: Hey trying to fight back are we...? well ill punish you both!" & Environment.NewLine) history.Text += ("12padams: Trying to fight back are we...? Well I'll punish you both!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 49 Case 49
history.Text += ("SkyHigh: Stop it!!! Let me and " & username & " go!" & Environment.NewLine) history.Text += ("SkyHigh: Stop it! Let me and " & username & " go!" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 48 Case 48
history.Text += ("12padams: Oh yea thats right... Now we had two left. We have SkyHigh and " & username & Environment.NewLine) history.Text += ("12padams: Oh yeah that's right... Now we have two left - SkyHigh and " & username & "." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 47 Case 47
history.Text += ("12padams: anyway... where were we?" & Environment.NewLine) history.Text += ("12padams: Anyway... where were we?" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 46 Case 46
history.Text += ("12padams: lol All your Computers are infected with a virus which makes them unable to boot." & Environment.NewLine) history.Text += ("12padams: All your computers are infected with a virus which makes them unable to boot." & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 45 Case 45
@ -467,15 +547,15 @@
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 44 Case 44
history.Text += ("rain49: Oh yea... just watch" & Environment.NewLine) history.Text += ("rain49: Oh yeah? Just watch!" & Environment.NewLine)
Chat.Interval = 1000 Chat.Interval = 1000
con += 1 con += 1
Case 43 Case 43
history.Text += ("12padams: I would not do that if i were you..." & Environment.NewLine) history.Text += ("12padams: I would not do that if I were you..." & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 42 Case 42
history.Text += ("rain49: No... because i can just turn my computer off at the powerpoint... " & Environment.NewLine) history.Text += ("rain49: No... because I can just turn my computer off at the power... " & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 41 Case 41
@ -483,40 +563,40 @@
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 40 Case 40
history.Text += ("rain49: Omg 12padams disabled it..." & Environment.NewLine) history.Text += ("rain49: 12padams disabled it... CRAP!" & Environment.NewLine)
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 39 Case 39
history.Text += ("SkyHigh: What the Hell!!!! wheres my startbutton." & Environment.NewLine) history.Text += ("SkyHigh: What the hell?! Where is my start button?!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 38 Case 38
history.Text += ("12padams: Ha Ha Ha... nobodys turning off their computer???" & Environment.NewLine) history.Text += ("12padams: Ha! Nobody is turning off their computer?" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 37 Case 37
history.Text += ("12padams: Yea Guys I Will definatly unban you if you do that..." & Environment.NewLine) history.Text += ("12padams: Yeah guys, I will definetely unban you if you do that..." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Windows95.startbutton.Hide() Windows95.startbutton.Hide()
Case 36 Case 36
history.Text += ("rain49: Guys Quickly go to start and turn off your computer!!!" & Environment.NewLine) history.Text += ("rain49: Guys, quickly go to Start and turn off your computer!" & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 35 Case 35
history.Text += ("12padams: Now that I Have you... We are gunna have a bit of fun..." & Environment.NewLine) history.Text += ("12padams: Now that I have you, we are going to have a bit of fun..." & Environment.NewLine)
Chat.Interval = 10000 Chat.Interval = 10000
con += 1 con += 1
Case 34 Case 34
history.Text += ("12padams: I Have Caught you!!!" & Environment.NewLine) history.Text += ("12padams: I have caught you!!!" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 33 Case 33
history.Text += ("SkyHigh: I can't the x button is not working!!!!" & Environment.NewLine) history.Text += ("SkyHigh: I can't! The X button is not working!!!!" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 32 Case 32
history.Text += ("rain49: CRAP 12padams logged on... Quickly SkyHigh and " & username & " LOGOUT!!!" & Environment.NewLine) history.Text += ("rain49: Ah crap! 12padams has logged on... Quickly SkyHigh and " & username & " LOG OUT!!!" & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 31 Case 31
@ -530,27 +610,28 @@
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 29 Case 29
history.Text += ("rain49: ok have fun then..." & Environment.NewLine) history.Text += ("rain49: OK, have fun then..." & Environment.NewLine)
Chat.Interval = 8000 Chat.Interval = 8000
con += 1 con += 1
Case 28 Case 28
history.Text += ("SkyHigh: YAY! Download Finished... Ill install it now :)" & Environment.NewLine) history.Text += ("SkyHigh: YAY! Download Finished... I'll install it now :)" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 27 Case 27
history.Text += ("rain49: lol ok... hey " & username & " you can download it as well :)" & Environment.NewLine) history.Text += ("rain49: OK... hey " & username & ", you can download it as well :)" & Environment.NewLine)
Chat.Interval = 9000 Chat.Interval = 9000
con += 1 con += 1
Case 26 Case 26
history.Text += ("SkyHigh: Yay Thanks rain49!!! Ill download it now" & Environment.NewLine) history.Text += ("SkyHigh: Thanks rain49!!! I'll download it now." & Environment.NewLine)
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 25 Case 25
history.Text += ("rain49: Its now added to the file sharing section at the bottom right of the screen" & Environment.NewLine) history.Text += ("rain49: It's now added to the file sharing section at the bottom right of the screen." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
Label5.Show() Label5.Show()
Button5.Show() Button5.Show()
con += 1 con += 1
abletoclose = False
Case 24 Case 24
history.Text += ("rain49: Ok just wait a sec..." & Environment.NewLine) history.Text += ("rain49: Ok just wait a sec..." & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
@ -600,7 +681,7 @@
Chat.Interval = 6000 Chat.Interval = 6000
con += 1 con += 1
Case 12 Case 12
history.Text += ("rain49: Hey Who's " & username & Environment.NewLine) history.Text += ("rain49: Hey Who's " & username & "?" & Environment.NewLine)
Chat.Interval = 7000 Chat.Interval = 7000
con += 1 con += 1
Case 11 Case 11
@ -622,20 +703,20 @@
con += 1 con += 1
Case 7 Case 7
If correct Then If correct Then
history.Text += ("SkyHigh: Yay You got it :)" & Environment.NewLine) history.Text += ("SkyHigh: Yay you got it :)" & Environment.NewLine)
Button4.Hide() Button4.Hide()
Button3.Hide() Button3.Hide()
typechat.Show() typechat.Show()
con += 1 con += 1
ElseIf Not correct Then ElseIf Not correct Then
history.Text += ("SkyHigh: Sorry My Name was Bill :(" & Environment.NewLine) history.Text += ("SkyHigh: Sorry my name was Bill" & Environment.NewLine)
Button4.Hide() Button4.Hide()
Button3.Hide() Button3.Hide()
typechat.Show() typechat.Show()
con += 1 con += 1
End If End If
Case 6 Case 6
history.Text += ("SkyHigh: Ill make 2 buttons appear at the bottom of your screen and you click to guess" & Environment.NewLine) history.Text += ("SkyHigh: I'll make 2 buttons appear at the bottom of your screen and you click to guess." & Environment.NewLine)
Chat.Interval = 500 Chat.Interval = 500
con += 1 con += 1
Button3.Show() Button3.Show()
@ -643,11 +724,11 @@
typechat.Hide() typechat.Hide()
Chat.Stop() Chat.Stop()
Case 5 Case 5
history.Text += ("SkyHigh: Ok Guess What my Name is" & Environment.NewLine) history.Text += ("SkyHigh: OK, guess What my name is" & Environment.NewLine)
Chat.Interval = 3000 Chat.Interval = 3000
con += 1 con += 1
Case 4 Case 4
history.Text += ("SkyHigh: " & username & " We can play a game while we wait for rain49 to login" & Environment.NewLine) history.Text += ("SkyHigh: " & username & " we can play a game while we wait for rain49 to log on." & Environment.NewLine)
Chat.Interval = 4000 Chat.Interval = 4000
con += 1 con += 1
Case 3 Case 3
@ -655,7 +736,7 @@
Chat.Interval = 5000 Chat.Interval = 5000
con += 1 con += 1
Case 2 Case 2
history.Text += ("SkyHigh: Sorry I thought my friend rain49 was gunna be on..." & Environment.NewLine) history.Text += ("SkyHigh: Sorry, I thought my friend rain49 was going to be on..." & Environment.NewLine)
Chat.Interval = 1000 Chat.Interval = 1000
con += 1 con += 1
Case 1 Case 1

8
windows 95/commandpromptxp.Designer.vb generated
View file

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class commandpromptxp Partial Class commandpromptxp
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list. 'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class commandpromptxp
'NOTE: The following procedure is required by the Windows Form Designer 'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer. 'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor. 'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(commandpromptxp)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(commandpromptxp))
@ -135,7 +135,7 @@ Partial Class commandpromptxp
Me.programname.BackColor = System.Drawing.Color.Transparent Me.programname.BackColor = System.Drawing.Color.Transparent
Me.programname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.programname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.programname.ForeColor = System.Drawing.Color.White Me.programname.ForeColor = System.Drawing.Color.White
Me.programname.Location = New System.Drawing.Point(5, 8) Me.programname.Location = New System.Drawing.Point(8, 9)
Me.programname.Name = "programname" Me.programname.Name = "programname"
Me.programname.Size = New System.Drawing.Size(104, 13) Me.programname.Size = New System.Drawing.Size(104, 13)
Me.programname.TabIndex = 3 Me.programname.TabIndex = 3

193
windows 95/formcalculator.Designer.vb generated
View file

@ -51,16 +51,6 @@ Partial Class formcalculator
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
Me.EditToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.CopyCtrlCToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PasteCtrlVToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ScientificToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandardToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpTopicsToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutCalculatorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.look = New System.Windows.Forms.Timer(Me.components) Me.look = New System.Windows.Forms.Timer(Me.components)
Me.pullbs = New System.Windows.Forms.Timer(Me.components) Me.pullbs = New System.Windows.Forms.Timer(Me.components)
Me.pullbottom = New System.Windows.Forms.Timer(Me.components) Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
@ -79,12 +69,22 @@ Partial Class formcalculator
Me.bottom = New System.Windows.Forms.Panel() Me.bottom = New System.Windows.Forms.Panel()
Me.right = New System.Windows.Forms.Panel() Me.right = New System.Windows.Forms.Panel()
Me.top = New System.Windows.Forms.Panel() Me.top = New System.Windows.Forms.Panel()
Me.MenuStrip2.SuspendLayout() Me.EditToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.CopyCtrlCToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PasteCtrlVToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ScientificToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandardToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.HelpTopicsToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.AboutCalculatorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
Me.program.SuspendLayout() Me.program.SuspendLayout()
Me.programtopbar.SuspendLayout() Me.programtopbar.SuspendLayout()
CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'TextBox1 'TextBox1
@ -424,79 +424,8 @@ Partial Class formcalculator
Me.Button1.Text = "MR" Me.Button1.Text = "MR"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'MenuStrip2 'look
' '
Me.MenuStrip2.BackColor = System.Drawing.Color.Silver
Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EditToolStripMenuItem1, Me.HelpToolStripMenuItem2, Me.HelpToolStripMenuItem3})
Me.MenuStrip2.Location = New System.Drawing.Point(4, 22)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Size = New System.Drawing.Size(300, 24)
Me.MenuStrip2.TabIndex = 28
Me.MenuStrip2.Text = "MenuStrip2"
'
'EditToolStripMenuItem1
'
Me.EditToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.EditToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CopyCtrlCToolStripMenuItem1, Me.PasteCtrlVToolStripMenuItem1})
Me.EditToolStripMenuItem1.Name = "EditToolStripMenuItem1"
Me.EditToolStripMenuItem1.Size = New System.Drawing.Size(39, 20)
Me.EditToolStripMenuItem1.Text = "Edit"
'
'CopyCtrlCToolStripMenuItem1
'
Me.CopyCtrlCToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.CopyCtrlCToolStripMenuItem1.Name = "CopyCtrlCToolStripMenuItem1"
Me.CopyCtrlCToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
Me.CopyCtrlCToolStripMenuItem1.Text = "Copy Ctrl+C"
'
'PasteCtrlVToolStripMenuItem1
'
Me.PasteCtrlVToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.PasteCtrlVToolStripMenuItem1.Name = "PasteCtrlVToolStripMenuItem1"
Me.PasteCtrlVToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
Me.PasteCtrlVToolStripMenuItem1.Text = "Paste Ctrl+V"
'
'HelpToolStripMenuItem2
'
Me.HelpToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ScientificToolStripMenuItem, Me.StandardToolStripMenuItem})
Me.HelpToolStripMenuItem2.Name = "HelpToolStripMenuItem2"
Me.HelpToolStripMenuItem2.Size = New System.Drawing.Size(44, 20)
Me.HelpToolStripMenuItem2.Text = "Veiw"
'
'ScientificToolStripMenuItem
'
Me.ScientificToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.ScientificToolStripMenuItem.Name = "ScientificToolStripMenuItem"
Me.ScientificToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.ScientificToolStripMenuItem.Text = "Scientific"
'
'StandardToolStripMenuItem
'
Me.StandardToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.StandardToolStripMenuItem.Name = "StandardToolStripMenuItem"
Me.StandardToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.StandardToolStripMenuItem.Text = "Standard"
'
'HelpToolStripMenuItem3
'
Me.HelpToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HelpTopicsToolStripMenuItem1, Me.AboutCalculatorToolStripMenuItem})
Me.HelpToolStripMenuItem3.Name = "HelpToolStripMenuItem3"
Me.HelpToolStripMenuItem3.Size = New System.Drawing.Size(44, 20)
Me.HelpToolStripMenuItem3.Text = "Help"
'
'HelpTopicsToolStripMenuItem1
'
Me.HelpTopicsToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.HelpTopicsToolStripMenuItem1.Name = "HelpTopicsToolStripMenuItem1"
Me.HelpTopicsToolStripMenuItem1.Size = New System.Drawing.Size(164, 22)
Me.HelpTopicsToolStripMenuItem1.Text = "Help Topics"
'
'AboutCalculatorToolStripMenuItem
'
Me.AboutCalculatorToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.AboutCalculatorToolStripMenuItem.Name = "AboutCalculatorToolStripMenuItem"
Me.AboutCalculatorToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.AboutCalculatorToolStripMenuItem.Text = "About Calculator"
' '
'pullbs 'pullbs
' '
@ -685,6 +614,80 @@ Partial Class formcalculator
Me.top.Size = New System.Drawing.Size(308, 4) Me.top.Size = New System.Drawing.Size(308, 4)
Me.top.TabIndex = 8 Me.top.TabIndex = 8
' '
'EditToolStripMenuItem1
'
Me.EditToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.EditToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CopyCtrlCToolStripMenuItem1, Me.PasteCtrlVToolStripMenuItem1})
Me.EditToolStripMenuItem1.Name = "EditToolStripMenuItem1"
Me.EditToolStripMenuItem1.Size = New System.Drawing.Size(39, 20)
Me.EditToolStripMenuItem1.Text = "Edit"
'
'CopyCtrlCToolStripMenuItem1
'
Me.CopyCtrlCToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.CopyCtrlCToolStripMenuItem1.Name = "CopyCtrlCToolStripMenuItem1"
Me.CopyCtrlCToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
Me.CopyCtrlCToolStripMenuItem1.Text = "Copy Ctrl+C"
'
'PasteCtrlVToolStripMenuItem1
'
Me.PasteCtrlVToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.PasteCtrlVToolStripMenuItem1.Name = "PasteCtrlVToolStripMenuItem1"
Me.PasteCtrlVToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
Me.PasteCtrlVToolStripMenuItem1.Text = "Paste Ctrl+V"
'
'HelpToolStripMenuItem2
'
Me.HelpToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ScientificToolStripMenuItem, Me.StandardToolStripMenuItem})
Me.HelpToolStripMenuItem2.Name = "HelpToolStripMenuItem2"
Me.HelpToolStripMenuItem2.Size = New System.Drawing.Size(44, 20)
Me.HelpToolStripMenuItem2.Text = "Veiw"
'
'ScientificToolStripMenuItem
'
Me.ScientificToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.ScientificToolStripMenuItem.Name = "ScientificToolStripMenuItem"
Me.ScientificToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.ScientificToolStripMenuItem.Text = "Scientific"
'
'StandardToolStripMenuItem
'
Me.StandardToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.StandardToolStripMenuItem.Name = "StandardToolStripMenuItem"
Me.StandardToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
Me.StandardToolStripMenuItem.Text = "Standard"
'
'HelpToolStripMenuItem3
'
Me.HelpToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HelpTopicsToolStripMenuItem1, Me.AboutCalculatorToolStripMenuItem})
Me.HelpToolStripMenuItem3.Name = "HelpToolStripMenuItem3"
Me.HelpToolStripMenuItem3.Size = New System.Drawing.Size(44, 20)
Me.HelpToolStripMenuItem3.Text = "Help"
'
'HelpTopicsToolStripMenuItem1
'
Me.HelpTopicsToolStripMenuItem1.BackColor = System.Drawing.Color.Silver
Me.HelpTopicsToolStripMenuItem1.Name = "HelpTopicsToolStripMenuItem1"
Me.HelpTopicsToolStripMenuItem1.Size = New System.Drawing.Size(164, 22)
Me.HelpTopicsToolStripMenuItem1.Text = "Help Topics"
'
'AboutCalculatorToolStripMenuItem
'
Me.AboutCalculatorToolStripMenuItem.BackColor = System.Drawing.Color.Silver
Me.AboutCalculatorToolStripMenuItem.Name = "AboutCalculatorToolStripMenuItem"
Me.AboutCalculatorToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
Me.AboutCalculatorToolStripMenuItem.Text = "About Calculator"
'
'MenuStrip2
'
Me.MenuStrip2.BackColor = System.Drawing.Color.Silver
Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EditToolStripMenuItem1, Me.HelpToolStripMenuItem2, Me.HelpToolStripMenuItem3})
Me.MenuStrip2.Location = New System.Drawing.Point(4, 22)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Size = New System.Drawing.Size(300, 24)
Me.MenuStrip2.TabIndex = 28
Me.MenuStrip2.Text = "MenuStrip2"
'
'formcalculator 'formcalculator
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -695,8 +698,6 @@ Partial Class formcalculator
Me.Name = "formcalculator" Me.Name = "formcalculator"
Me.Text = "formcalculator" Me.Text = "formcalculator"
Me.TopMost = True Me.TopMost = True
Me.MenuStrip2.ResumeLayout(False)
Me.MenuStrip2.PerformLayout()
Me.program.ResumeLayout(False) Me.program.ResumeLayout(False)
Me.program.PerformLayout() Me.program.PerformLayout()
Me.programtopbar.ResumeLayout(False) Me.programtopbar.ResumeLayout(False)
@ -704,6 +705,8 @@ Partial Class formcalculator
CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip2.ResumeLayout(False)
Me.MenuStrip2.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -735,16 +738,6 @@ Partial Class formcalculator
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents MenuStrip2 As System.Windows.Forms.MenuStrip
Friend WithEvents EditToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents CopyCtrlCToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents PasteCtrlVToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ScientificToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StandardToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HelpTopicsToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AboutCalculatorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents look As System.Windows.Forms.Timer Friend WithEvents look As System.Windows.Forms.Timer
Friend WithEvents pullbs As System.Windows.Forms.Timer Friend WithEvents pullbs As System.Windows.Forms.Timer
Friend WithEvents pullbottom As System.Windows.Forms.Timer Friend WithEvents pullbottom As System.Windows.Forms.Timer
@ -763,4 +756,14 @@ Partial Class formcalculator
Friend WithEvents bottom As System.Windows.Forms.Panel Friend WithEvents bottom As System.Windows.Forms.Panel
Friend WithEvents right As System.Windows.Forms.Panel Friend WithEvents right As System.Windows.Forms.Panel
Friend WithEvents top As System.Windows.Forms.Panel Friend WithEvents top As System.Windows.Forms.Panel
Friend WithEvents MenuStrip2 As MenuStrip
Friend WithEvents EditToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents CopyCtrlCToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents PasteCtrlVToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents ScientificToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StandardToolStripMenuItem As ToolStripMenuItem
Friend WithEvents HelpToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents HelpTopicsToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents AboutCalculatorToolStripMenuItem As ToolStripMenuItem
End Class End Class

6
windows 95/formcalculator.resx
View file

@ -117,9 +117,6 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="MenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="look.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="look.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value> <value>132, 17</value>
</metadata> </metadata>
@ -132,4 +129,7 @@
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>509, 17</value> <value>509, 17</value>
</metadata> </metadata>
<metadata name="MenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root> </root>

4
windows 95/formcalculator.vb
View file

@ -103,6 +103,10 @@
End If End If
End Sub End Sub
Private Sub QuitToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick 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.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage

BIN
windows 95/histacom icon.ico
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 60 KiB

After

Width:  |  Height:  |  Size: 97 KiB