mirror of
https://github.com/Histacom/Histacom.git
synced 2025-01-22 09:02:00 -05:00
Web Chat 1998 modified (not the interface, but the storyline)
This commit is contained in:
jakeypearce
parent
5a66fa33aa
commit
636946ca54
21 changed files with 2127 additions and 1855 deletions
3
windows 95/Command prompt.Designer.vb
generated
3
windows 95/Command prompt.Designer.vb
generated
|
|
@ -61,6 +61,9 @@ Partial Class Command_prompt
|
|||
Me.TextBox1.Size = New System.Drawing.Size(405, 189)
|
||||
Me.TextBox1.TabIndex = 6
|
||||
'
|
||||
'look
|
||||
'
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
|
|
|
|||
|
|
@ -103,6 +103,10 @@
|
|||
End If
|
||||
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
|
||||
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
|
||||
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
|
||||
|
|
|
|||
5
windows 95/Guess The Number app.Designer.vb
generated
5
windows 95/Guess The Number app.Designer.vb
generated
|
|
@ -101,7 +101,7 @@ Partial Class Guess_The_Number_app
|
|||
'txtGuessedNumber
|
||||
'
|
||||
Me.txtGuessedNumber.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtGuessedNumber.Location = New System.Drawing.Point(136, 65)
|
||||
Me.txtGuessedNumber.Name = "txtGuessedNumber"
|
||||
Me.txtGuessedNumber.Size = New System.Drawing.Size(43, 20)
|
||||
|
|
@ -133,6 +133,9 @@ Partial Class Guess_The_Number_app
|
|||
'
|
||||
Me.selector.Interval = 1000
|
||||
'
|
||||
'look
|
||||
'
|
||||
'
|
||||
'pullbs
|
||||
'
|
||||
Me.pullbs.Interval = 1
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@
|
|||
Dim randnumb As New Random
|
||||
|
||||
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()
|
||||
End Sub
|
||||
|
||||
|
|
@ -200,6 +200,10 @@
|
|||
End If
|
||||
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
|
||||
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
|
||||
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
|
||||
|
|
|
|||
29
windows 95/InternetExplorer7test.Designer.vb
generated
Normal file
29
windows 95/InternetExplorer7test.Designer.vb
generated
Normal 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
3
windows 95/InternetExplorer7test.vb
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
Public Class InternetExplorer7test
|
||||
|
||||
End Class
|
||||
124
windows 95/My Project/Resources.Designer.vb
generated
124
windows 95/My Project/Resources.Designer.vb
generated
|
|
@ -1,7 +1,7 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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
|
||||
' the code is regenerated.
|
||||
|
|
@ -190,6 +190,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
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>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -690,6 +700,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
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>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -740,6 +760,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
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>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -1200,15 +1230,6 @@ Namespace My.Resources
|
|||
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_2000_boot_sound() As System.IO.UnmanagedMemoryStream
|
||||
Get
|
||||
Return ResourceManager.GetStream("windows_2000_boot_sound", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -1229,6 +1250,15 @@ Namespace My.Resources
|
|||
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_2000_Shutdown() As System.IO.UnmanagedMemoryStream
|
||||
Get
|
||||
Return ResourceManager.GetStream("Windows_2000_Shutdown", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -1239,6 +1269,15 @@ Namespace My.Resources
|
|||
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_2000_Startup() As System.IO.UnmanagedMemoryStream
|
||||
Get
|
||||
Return ResourceManager.GetStream("Windows_2000_Startup", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -1259,6 +1298,15 @@ Namespace My.Resources
|
|||
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_95_Shutdown() As System.IO.UnmanagedMemoryStream
|
||||
Get
|
||||
Return ResourceManager.GetStream("Windows_95_Shutdown", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
@ -1284,7 +1332,16 @@ Namespace My.Resources
|
|||
'''</summary>
|
||||
Friend ReadOnly Property windows_98_error_sound() As System.IO.UnmanagedMemoryStream
|
||||
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 Property
|
||||
|
||||
|
|
@ -1308,6 +1365,51 @@ Namespace My.Resources
|
|||
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_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>
|
||||
''' Looks up a localized resource of type System.IO.UnmanagedMemoryStream similar to System.IO.MemoryStream.
|
||||
'''</summary>
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
BIN
windows 95/Resources/Command-Prompt-icon.png
Normal file
BIN
windows 95/Resources/Command-Prompt-icon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 12 KiB |
BIN
windows 95/Resources/money.gif
Normal file
BIN
windows 95/Resources/money.gif
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 67 KiB |
BIN
windows 95/Resources/other-fire-143887964479415.gif
Normal file
BIN
windows 95/Resources/other-fire-143887964479415.gif
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 67 KiB |
1735
windows 95/Skindows 95.Designer.vb
generated
1735
windows 95/Skindows 95.Designer.vb
generated
File diff suppressed because it is too large
Load diff
|
|
@ -1323,6 +1323,14 @@
|
|||
End If
|
||||
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
|
||||
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
|
||||
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
|
||||
|
|
|
|||
|
|
@ -53,80 +53,80 @@
|
|||
Chat.Stop()
|
||||
Else
|
||||
Chat.Start()
|
||||
history.Text += ("12padams: Ok I got a message that you just started the timer " & mainname & Environment.NewLine)
|
||||
End If
|
||||
history.Text += ("12padams: Ok, I got a message that says that you just started the timer." & mainname & Environment.NewLine)
|
||||
End If
|
||||
Case 66
|
||||
history.Text += ("The Hidden Hacker: I Hope this works..." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
history.Text += ("The Hidden Hacker: I hope this works..." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
count.Start()
|
||||
waitfor02download = True
|
||||
Chat.Stop()
|
||||
Case 65
|
||||
history.Text += ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: OK " & mainname & " download it now and we will wait for you." & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 64
|
||||
Label5.Show()
|
||||
Button5.Show()
|
||||
Case 63
|
||||
history.Text += ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
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
|
||||
Case 62
|
||||
history.Text += ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("The Hidden Hacker: Ok then. When do we start?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
Case 61
|
||||
history.Text += ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: Nothing will go wrong. I think I got this." & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
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)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("The Hidden Hacker: What if something goes wrong and " & mainname & " doesn't get to the year 2000?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 59
|
||||
history.Text += ("12padams: 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 = 7000
|
||||
history.Text += ("12padams: I want you to look out for " & mainname & " so that in 1 year you can tell me when he comes back." & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
Case 58
|
||||
history.Text += ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("The Hidden Hacker: What do you want me to do?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
Case 57
|
||||
history.Text += ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: It has to be done... you need to help me, guys... please!" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 56
|
||||
history.Text += ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("The Hidden Hacker: That is too risky, don't you think so?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 55
|
||||
history.Text += ("12padams: This could serriously impact my time travel software." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
history.Text += ("12padams: This could seriously impact my time travel software." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
Case 54
|
||||
history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000." & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 53
|
||||
history.Text += ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: Simply put, I wrote an article on the Year 2000 bug." & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 52
|
||||
history.Text += ("12padams: haha sorry I forgot about that" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: Sorry, I forgot about that!" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 51
|
||||
history.Text += ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
history.Text += ("The Hidden Hacker: I am blocked from using your website, remember?" & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
Case 50
|
||||
history.Text += ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: It will, but did you not read the article on my website of the Y2K bug?" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 49
|
||||
history.Text += ("The Hidden Hacker: Why does he need to try it out??? its gunna work just like 0.1 did" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("The Hidden Hacker: Why does he need to try it out? Won't it work like 0.1 did?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 48
|
||||
history.Text += ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: " & mainname & "... I will need you to try this out again." & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
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)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: Well OK, that was a hyperbole; it's not that much different in terms of functionality. It works the same way but now it works in all time periods and it takes you to 2000!" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 46
|
||||
history.Text += ("12padams: 0.2 is much different however" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: 0.2 is much different however!" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
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)
|
||||
Chat.Interval = 7000
|
||||
history.Text += ("12padams: Anyway, 0.1 is useless because it only worked if the year was 1998 and it will only take you to 1999." & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
Case 44
|
||||
history.Text += ("12padams: oh woops yea oh cause you would" & Environment.NewLine)
|
||||
Chat.Interval = 8000
|
||||
history.Text += ("12padams: Of course you would! Why did I ask that?" & Environment.NewLine)
|
||||
Chat.Interval = 8000
|
||||
Case 43
|
||||
history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
|
|
@ -134,65 +134,65 @@
|
|||
history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
Case 41
|
||||
history.Text += ("12padams: Oh right I forgot to tell you both" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: I forgot to tell you both!" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 40
|
||||
history.Text += ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("The Hidden Hacker: Wait a sec... you mean we are going to time travel again?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 39
|
||||
history.Text += ("12padams: Ok 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)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("12padams: Ok, you can track the time travels so you can see when " & mainname & " gets to a new time period. This will allow you to say what is going on..." & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
Case 38
|
||||
history.Text += ("12padams: I am not really sure accually... um let me think" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: I am not really sure actually... let me think this through!" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 37
|
||||
history.Text += ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("The Hidden Hacker: What do you mean by guider?" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 36
|
||||
history.Text += ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
history.Text += ("12padams: As for you, The Hidden Hacker... you can be the... guider." & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
Case 35
|
||||
history.Text += ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: " & mainname & " can be the tester for my time travel software." & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 34
|
||||
history.Text += ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
history.Text += ("12padams: I am the coder who will be working on the time travel software." & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
Case 33
|
||||
history.Text += ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("The Hidden Hacker: What do you mean by that?" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
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)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: Since you both know about this whole time travel thing... I want us to be a team." & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
Case 31
|
||||
history.Text += ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("12padams: Let's not go off-topic here! I have something very important I now have to say to you both" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
Case 30
|
||||
history.Text += ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("The Hidden Hacker: OK. I think that it's good you now have a name we can call you as" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
Case 29
|
||||
history.Text += ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
history.Text += ("12padams: From now on we will call this user " & mainname & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
Case 28
|
||||
if mainname == "" Then
|
||||
con -= 1
|
||||
End If
|
||||
Chat.Interval = 3000
|
||||
If mainname = "" Then
|
||||
con -= 1
|
||||
End If
|
||||
Chat.Interval = 3000
|
||||
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)
|
||||
Chat.Interval = 6000
|
||||
history.Text += ("12padams: I don't want to disturb you, but what is your name? What you type in the chat now, is what we will refer you as. I suggest less then 10 letters for better flow!" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
waiting = True
|
||||
Case 26
|
||||
history.Text += ("12padams: Ok 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)
|
||||
Chat.Interval = 9000
|
||||
history.Text += ("12padams: OK, what's making me annoyed now is not knowing what this Windows 98 name is!" & Environment.NewLine)
|
||||
Chat.Interval = 9000
|
||||
Case 25
|
||||
history.Text += ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
history.Text += ("The Hidden Hacker: Well that is a relief, isn't it? Hey what's your name again?" & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
Case 24
|
||||
history.Text += ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
history.Text += ("12padams: So I just wanted to say thanks to both of you... " & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
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)
|
||||
Chat.Interval = 9000
|
||||
history.Text += ("12padams: Listen, if you had not hacked my emails and taken my software, followed by trying it out, I would never have done so. " & Environment.NewLine)
|
||||
Chat.Interval = 9000
|
||||
Case 22
|
||||
history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
|
|
|
|||
25
windows 95/Webchat.Designer.vb
generated
25
windows 95/Webchat.Designer.vb
generated
|
|
@ -75,13 +75,14 @@ Partial Class Webchat1998
|
|||
'Label7
|
||||
'
|
||||
Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(22, 33)
|
||||
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.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
|
||||
'
|
||||
|
|
@ -174,9 +175,9 @@ Partial Class Webchat1998
|
|||
Me.TextBox2.ReadOnly = True
|
||||
Me.TextBox2.Size = New System.Drawing.Size(151, 86)
|
||||
Me.TextBox2.TabIndex = 6
|
||||
Me.TextBox2.Text = "A screen name is a tempary name which will be displayed in place of your real nam" & _
|
||||
"e. To keep your identity safe please do not enter your real name in this chatroo" & _
|
||||
"m" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
Me.TextBox2.Text = "A screen name is a temporary name which will be displayed in place of your real n" &
|
||||
"ame. To keep your identity safe please do not enter your real name in this chatr" &
|
||||
"oom" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
|
|
@ -226,14 +227,14 @@ Partial Class Webchat1998
|
|||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(328, 161)
|
||||
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.Text = "Please Type in a Screen Name"
|
||||
Me.Label2.Text = "Please Type in a screen name"
|
||||
'
|
||||
'typechat
|
||||
'
|
||||
Me.typechat.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.typechat.Location = New System.Drawing.Point(20, 435)
|
||||
Me.typechat.Name = "typechat"
|
||||
Me.typechat.Size = New System.Drawing.Size(395, 20)
|
||||
|
|
@ -242,8 +243,8 @@ Partial Class Webchat1998
|
|||
'history
|
||||
'
|
||||
Me.history.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.history.Location = New System.Drawing.Point(22, 52)
|
||||
Me.history.Multiline = True
|
||||
Me.history.Name = "history"
|
||||
|
|
@ -265,7 +266,7 @@ Partial Class Webchat1998
|
|||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Location = New System.Drawing.Point(504, 52)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
|
|
|
|||
|
|
@ -37,10 +37,90 @@
|
|||
|
||||
Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick
|
||||
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
|
||||
Title_Screen.Close()
|
||||
history.Text = ("Connected!" & Environment.NewLine)
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 142
|
||||
|
|
@ -61,55 +141,55 @@
|
|||
history.ReadOnly = True
|
||||
con += 1
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
Case 137
|
||||
history.ForeColor = Color.Silver
|
||||
history.ForeColor = Color.Gray
|
||||
Chat.Interval = 2000
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con = con + 2
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con = con + 2
|
||||
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
|
||||
history.ReadOnly = False
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 126
|
||||
|
|
@ -126,15 +206,15 @@
|
|||
Chat.Interval = 3000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 123
|
||||
history.Text += ("12padams: mouse removed..." & Environment.NewLine)
|
||||
history.Text += ("12padams: Mouse removed!" & Environment.NewLine)
|
||||
Chat.Interval = 5000
|
||||
con += 1
|
||||
Cursor.Hide()
|
||||
|
|
@ -175,23 +255,23 @@
|
|||
Chat.Interval = 1000
|
||||
con += 1
|
||||
Case 113
|
||||
history.Text += ("12padams: Ok removing in 10..." & Environment.NewLine)
|
||||
history.Text += ("12padams: OK removing in 10..." & Environment.NewLine)
|
||||
Chat.Interval = 1000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 108
|
||||
|
|
@ -199,19 +279,19 @@
|
|||
Chat.Interval = 4000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 103
|
||||
|
|
@ -219,11 +299,11 @@
|
|||
Chat.Interval = 3000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 100
|
||||
|
|
@ -236,15 +316,15 @@
|
|||
Chat.Interval = 5000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 95
|
||||
|
|
@ -254,7 +334,7 @@
|
|||
Label1.Hide()
|
||||
Label7.Hide()
|
||||
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
|
||||
con += 1
|
||||
Case 93
|
||||
|
|
@ -262,7 +342,7 @@
|
|||
Chat.Interval = 5000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 91
|
||||
|
|
@ -270,29 +350,29 @@
|
|||
Chat.Interval = 4000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
typechat.Hide()
|
||||
Button2.Hide()
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 84
|
||||
|
|
@ -301,44 +381,44 @@
|
|||
Chat.Interval = 5000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 82
|
||||
history.Text += ("SkyHigh: But I can't!!!" & Environment.NewLine)
|
||||
history.Text += ("SkyHigh: But I can't!" & Environment.NewLine)
|
||||
Chat.Interval = 4000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 80
|
||||
history.Text += ("SkyHigh: Please Stop!!!" & Environment.NewLine)
|
||||
history.Text += ("SkyHigh: Please stop!" & Environment.NewLine)
|
||||
Chat.Interval = 8000
|
||||
con += 1
|
||||
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
|
||||
Panel1.Hide()
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 73
|
||||
|
|
@ -346,11 +426,11 @@
|
|||
Chat.Interval = 3000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 70
|
||||
|
|
@ -359,7 +439,7 @@
|
|||
Windows95.Hide()
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
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
|
||||
con += 1
|
||||
Dim FontName As String = "Arial"
|
||||
|
|
@ -367,98 +447,98 @@
|
|||
Dim FS As New Font(FontName, FontSize, FontStyle.Regular)
|
||||
history.Font = FS
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 66
|
||||
history.Text += ("SkyHigh: Please Stop!!!!" & Environment.NewLine)
|
||||
history.Text += ("SkyHigh: Please stop!" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
con += 1
|
||||
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
|
||||
Windows95.desktopicons.Hide()
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Windows95.taskbar.Hide()
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 55
|
||||
history.Text += ("SkyHigh: Whats the virus do?" & Environment.NewLine)
|
||||
history.Text += ("SkyHigh: What does the virus do?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
Windows95.Enabled = False
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 47
|
||||
history.Text += ("12padams: anyway... where were we?" & Environment.NewLine)
|
||||
history.Text += ("12padams: Anyway... where were we?" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 45
|
||||
|
|
@ -467,15 +547,15 @@
|
|||
Chat.Interval = 7000
|
||||
con += 1
|
||||
Case 44
|
||||
history.Text += ("rain49: Oh yea... just watch" & Environment.NewLine)
|
||||
history.Text += ("rain49: Oh yeah? Just watch!" & Environment.NewLine)
|
||||
Chat.Interval = 1000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 41
|
||||
|
|
@ -483,40 +563,40 @@
|
|||
Chat.Interval = 5000
|
||||
con += 1
|
||||
Case 40
|
||||
history.Text += ("rain49: Omg 12padams disabled it..." & Environment.NewLine)
|
||||
history.Text += ("rain49: 12padams disabled it... CRAP!" & Environment.NewLine)
|
||||
Chat.Interval = 6000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Windows95.startbutton.Hide()
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 34
|
||||
history.Text += ("12padams: I Have Caught you!!!" & Environment.NewLine)
|
||||
history.Text += ("12padams: I have caught you!!!" & Environment.NewLine)
|
||||
Chat.Interval = 3000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 31
|
||||
|
|
@ -530,27 +610,28 @@
|
|||
Chat.Interval = 8000
|
||||
con += 1
|
||||
Case 29
|
||||
history.Text += ("rain49: ok have fun then..." & Environment.NewLine)
|
||||
history.Text += ("rain49: OK, have fun then..." & Environment.NewLine)
|
||||
Chat.Interval = 8000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
Label5.Show()
|
||||
Button5.Show()
|
||||
con += 1
|
||||
abletoclose = False
|
||||
Case 24
|
||||
history.Text += ("rain49: Ok just wait a sec..." & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
|
|
@ -600,7 +681,7 @@
|
|||
Chat.Interval = 6000
|
||||
con += 1
|
||||
Case 12
|
||||
history.Text += ("rain49: Hey Who's " & username & Environment.NewLine)
|
||||
history.Text += ("rain49: Hey Who's " & username & "?" & Environment.NewLine)
|
||||
Chat.Interval = 7000
|
||||
con += 1
|
||||
Case 11
|
||||
|
|
@ -622,20 +703,20 @@
|
|||
con += 1
|
||||
Case 7
|
||||
If correct Then
|
||||
history.Text += ("SkyHigh: Yay You got it :)" & Environment.NewLine)
|
||||
history.Text += ("SkyHigh: Yay you got it :)" & Environment.NewLine)
|
||||
Button4.Hide()
|
||||
Button3.Hide()
|
||||
typechat.Show()
|
||||
con += 1
|
||||
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()
|
||||
Button3.Hide()
|
||||
typechat.Show()
|
||||
con += 1
|
||||
End If
|
||||
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
|
||||
con += 1
|
||||
Button3.Show()
|
||||
|
|
@ -643,11 +724,11 @@
|
|||
typechat.Hide()
|
||||
Chat.Stop()
|
||||
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
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 3
|
||||
|
|
@ -655,7 +736,7 @@
|
|||
Chat.Interval = 5000
|
||||
con += 1
|
||||
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
|
||||
con += 1
|
||||
Case 1
|
||||
|
|
|
|||
8
windows 95/commandpromptxp.Designer.vb
generated
8
windows 95/commandpromptxp.Designer.vb
generated
|
|
@ -1,9 +1,9 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class commandpromptxp
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
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
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
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.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.Location = New System.Drawing.Point(5, 8)
|
||||
Me.programname.Location = New System.Drawing.Point(8, 9)
|
||||
Me.programname.Name = "programname"
|
||||
Me.programname.Size = New System.Drawing.Size(104, 13)
|
||||
Me.programname.TabIndex = 3
|
||||
|
|
|
|||
195
windows 95/formcalculator.Designer.vb
generated
195
windows 95/formcalculator.Designer.vb
generated
|
|
@ -51,16 +51,6 @@ Partial Class formcalculator
|
|||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = 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.pullbs = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pullbottom = New System.Windows.Forms.Timer(Me.components)
|
||||
|
|
@ -79,18 +69,28 @@ Partial Class formcalculator
|
|||
Me.bottom = New System.Windows.Forms.Panel()
|
||||
Me.right = 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.programtopbar.SuspendLayout()
|
||||
CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.closebutton, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.MenuStrip2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(18, 53)
|
||||
Me.TextBox1.Multiline = True
|
||||
|
|
@ -424,79 +424,8 @@ Partial Class formcalculator
|
|||
Me.Button1.Text = "MR"
|
||||
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
|
||||
'
|
||||
|
|
@ -685,6 +614,80 @@ Partial Class formcalculator
|
|||
Me.top.Size = New System.Drawing.Size(308, 4)
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
|
@ -695,8 +698,6 @@ Partial Class formcalculator
|
|||
Me.Name = "formcalculator"
|
||||
Me.Text = "formcalculator"
|
||||
Me.TopMost = True
|
||||
Me.MenuStrip2.ResumeLayout(False)
|
||||
Me.MenuStrip2.PerformLayout()
|
||||
Me.program.ResumeLayout(False)
|
||||
Me.program.PerformLayout()
|
||||
Me.programtopbar.ResumeLayout(False)
|
||||
|
|
@ -704,6 +705,8 @@ Partial Class formcalculator
|
|||
CType(Me.maximizebutton, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.minimizebutton, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.closebutton, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.MenuStrip2.ResumeLayout(False)
|
||||
Me.MenuStrip2.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
|
@ -735,16 +738,6 @@ Partial Class formcalculator
|
|||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 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 pullbs 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 right 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
|
||||
|
|
|
|||
|
|
@ -117,9 +117,6 @@
|
|||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</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">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
|
|
@ -132,4 +129,7 @@
|
|||
<metadata name="pullside.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>509, 17</value>
|
||||
</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>
|
||||
|
|
@ -103,6 +103,10 @@
|
|||
End If
|
||||
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
|
||||
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
|
||||
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
|
||||
|
|
|
|||
Binary file not shown.
|
Before Width: | Height: | Size: 60 KiB After Width: | Height: | Size: 97 KiB |
Loading…
Reference in a new issue