1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
|
Public Class time_distorter_0
Dim moveable As Boolean = True
Dim mexlocation, meylocation As Integer
Dim mewidth, meheight As Integer
Dim count As Integer
Dim year As Integer
Dim maximize As Boolean
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If moveable Then
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End If
End Sub
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
End Sub
Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
Me.Width = Cursor.Position.X - Me.Location.X
End Sub
Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
Me.Height = Cursor.Position.Y - Me.Location.Y
End Sub
Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
Me.Width = Cursor.Position.X - Me.Location.X
Me.Height = Cursor.Position.Y - Me.Location.Y
End Sub
Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown
pullside.Start()
End Sub
Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp
pullside.Stop()
End Sub
Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown
pullbottom.Start()
End Sub
Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp
pullbottom.Stop()
End Sub
Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown
pullbs.Start()
End Sub
Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp
pullbs.Stop()
End Sub
Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
If Not maximize Then
meylocation = Windows95.desktopicons.Height - Me.Height
mexlocation = Windows95.desktopicons.Width - Me.Width
mewidth = Me.Width
meheight = Me.Height
toprightcorner.Hide()
topleftcorner.Hide()
bottomrightcorner.Hide()
bottomleftcorner.Hide()
left.Hide()
top.Hide()
bottom.Hide()
right.Hide()
Dim w, h As Integer
w = Windows95.desktopicons.Width
h = Windows95.desktopicons.Height
Me.Location = New Point(0, 0)
Me.Size = New Size(w, h)
moveable = False
maximizebutton.Image = My.Resources.unmaximizebutton
maximize = True
Else
toprightcorner.Show()
topleftcorner.Show()
bottomrightcorner.Show()
bottomleftcorner.Show()
left.Show()
top.Show()
bottom.Show()
right.Show()
Me.Location = New Point(mexlocation, meylocation)
Me.Size = New Size(mewidth, meheight)
moveable = True
maximizebutton.Image = My.Resources.Maximize
maximize = False
End If
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
End Sub
Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimizebutton.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
waitfor02download = False
Label3.Show()
If Label3.Text = "Preparing travel: 180 Seconds" Then
countdown.Start()
count2000 = 180
Button1.Hide()
End If
End Sub
Private Sub labelcurrentyear_Click(sender As Object, e As EventArgs) Handles labelcurrentyear.Click
End Sub
Private Sub countdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countdown.Tick
If count = 145 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine)
End If
If count = 149 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine)
End If
If count = 153 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine)
End If
If count = 157 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine)
End If
If count = 161 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("The Hidden Hacker: Ok... " & mainname & " you should feel happy that you don't have to wait a whole year for results " & Environment.NewLine)
End If
If count = 166 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine)
End If
If count = 171 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine)
End If
If count = 174 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine)
End If
If count = 178 Then
WebChat_1999.history.Text = WebChat_1999.history.Text + ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine)
End If
count2000 = count2000 - 1
Label3.Text = "Preparing travel: " & count2000 & " Seconds"
If count2000 = 0 Then
Label3.Hide()
End If
If count2000 = -1 Then
Label2.Hide()
End If
If count2000 = -2 Then Label1.Hide()
If count2000 = -3 Then
countdown.Interval = 200
Windows98.startbutton.Hide()
End If
If count2000 = -4 Then Windows98.desktopicons.Hide()
If count2000 = -5 Then Windows98.taskbar.Hide()
If count2000 = -6 Then Me.Location = New Point(400, 600)
If count2000 = -7 Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
End If
If count2000 = -8 Then Me.programtopbar.Hide()
If count2000 = -9 Then Windows98.Hide()
If count2000 = -10 Then top.Hide()
If count2000 = -11 Then left.Hide()
If count2000 = -12 Then bottom.Hide()
If count2000 = -13 Then right.Hide()
If count2000 = -14 Then
toprightcorner.Hide()
bottomleftcorner.Hide()
bottomrightcorner.Hide()
topleftcorner.Hide()
End If
If count2000 = -15 Then
program.BackColor = Color.Black
labelcurrentyear.ForeColor = Color.Lime
End If
If count2000 = -16 Then
labelcurrentyear.Text = "1999"
countdown.Interval = 100
End If
If count2000 = -17 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -18 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -19 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -20 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -21 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -22 Then
labelcurrentyear.Text = "1999"
End If
If count2000 = -23 Then
labelcurrentyear.Text = "2000"
End If
If count2000 = -24 Then
labelcurrentyear.Text = "2000"
End If
If count2000 = -25 Then
labelcurrentyear.Text = "2000"
End If
If count2000 = -26 Then
labelcurrentyear.Text = "1900"
End If
If count2000 = -27 Then
labelcurrentyear.Hide()
End If
If count2000 = -28 Then
labelcurrentyear.Show()
End If
If count2000 = -29 Then
labelcurrentyear.Text = "2000"
End If
If count2000 = -30 Then
labelcurrentyear.Text = "1900"
year = labelcurrentyear.Text
End If
If count2000 < -30 And count2000 > -130 Then
countdown.Interval = 80
year = year + 1
labelcurrentyear.Text = year
End If
If count2000 = -131 Then labelcurrentyear.Hide()
If count2000 = -132 Then labelcurrentyear.Show()
If count2000 = -133 Then labelcurrentyear.Hide()
If count2000 = -134 Then labelcurrentyear.Show()
If count2000 = -135 Then
labelcurrentyear.Text = "2000"
End If
If count2000 = -136 Then labelcurrentyear.Hide()
If count2000 = -137 Then labelcurrentyear.Show()
If count2000 = -138 Then labelcurrentyear.Hide()
If count2000 = -139 Then labelcurrentyear.Show()
If count2000 = -140 Then labelcurrentyear.Text = "2001"
If count2000 = -141 Then labelcurrentyear.Hide()
If count2000 = -142 Then labelcurrentyear.Show()
If count2000 = -143 Then labelcurrentyear.Hide()
If count2000 = -144 Then labelcurrentyear.Show()
If count2000 = -145 Then labelcurrentyear.Text = "2002"
If count2000 = -146 Then labelcurrentyear.Hide()
If count2000 = -147 Then labelcurrentyear.Show()
If count2000 = -148 Then labelcurrentyear.Hide()
If count2000 = -149 Then labelcurrentyear.Show()
If count2000 = -169 Then Windowsxp2002damaged.Show()
If count2000 = -170 Then Me.Hide()
End Sub
Private Sub time_distorter_0_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label3.Hide()
End Sub
End Class
|
