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
|
Public Class internet_explorer_5
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
Me.Close()
End Sub
Private Sub internet_explorer_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
removewebsites()
welcomeinternetscreen.Show()
welcomeinternetscreen.Dock = DockStyle.Fill
look.Start()
Button26.Hide()
Label57.Hide()
End Sub
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
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 Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
removewebsites()
padamsbackgrounds.Dock = DockStyle.None
hotmailmain.Dock = DockStyle.None
padamsmain.Dock = DockStyle.None
googlealpha.Dock = DockStyle.None
googlemain.Dock = DockStyle.None
googleprototype.Dock = DockStyle.None
welcomeinternetscreen.Dock = DockStyle.None
If addressbar.Text = "www.google.com" Then
googlemain.Dock = DockStyle.Fill
googlemain.Show()
End If
If addressbar.Text = "www.microsoft.com/internetexplorer5/welcome" Then
welcomeinternetscreen.Dock = DockStyle.Fill
welcomeinternetscreen.Show()
End If
If addressbar.Text = "www.google.stanford.edu" Then
googleprototype.Dock = DockStyle.Fill
googleprototype.Show()
End If
If addressbar.Text = "www.alpha.google.com" Then
googlealpha.Dock = DockStyle.Fill
googlealpha.Show()
End If
If addressbar.Text = "www.12padams.com" Then
padamsmain.Dock = DockStyle.Fill
padamsmain.Show()
End If
If addressbar.Text = "www.hotmail.com" Then
hotmailmain.Dock = DockStyle.Fill
hotmailmain.Show()
End If
If addressbar.Text = "www.12padams.com/backgrounds" Then
padamsbackgrounds.Dock = DockStyle.Fill
padamsbackgrounds.Show()
End If
If addressbar.Text = "www.12padams.com/skindows" Then
skindows95advertisment.Dock = DockStyle.Fill
skindows95advertisment.Show()
End If
End Sub
Private Sub googleprototypelink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles googleprototypelink.LinkClicked
removewebsites()
googleprototype.Dock = DockStyle.Fill
googleprototype.Show()
addressbar.Text = "www.google.stanford.edu"
End Sub
Private Sub googlebetalink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles googlebetalink.LinkClicked
removewebsites()
googlealpha.Dock = DockStyle.Fill
googlealpha.Show()
addressbar.Text = "www.alpha.google.com"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
removewebsites()
addressbar.Text = "www.microsoft.com/internetexplorer5/welcome"
welcomeinternetscreen.Dock = DockStyle.Fill
welcomeinternetscreen.Show()
End Sub
Private Sub LinkLabel15_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel15.LinkClicked
removewebsites()
addressbar.Text = "www.google.com"
googlemain.Dock = DockStyle.Fill
googlemain.Show()
End Sub
Private Sub LinkLabel16_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel16.LinkClicked
removewebsites()
addressbar.Text = "www.12padams.com"
padamsmain.Dock = DockStyle.Fill
padamsmain.Show()
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: Guess The Number"
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: Start Runner"
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: Error Blaster"
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Previewimage.Image = win95background.Image
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
Previewimage.Image = mclarinflimage.Image
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Windows95.desktopbackground.Image = win95background.Image
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Windows95.desktopbackground.Image = mclarinflimage.Image
End Sub
Private Sub LinkLabel17_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel17.LinkClicked
removewebsites()
addressbar.Text = "www.hotmail.com"
hotmailmain.Dock = DockStyle.Fill
hotmailmain.Show()
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
removewebsites()
addressbar.Text = "www.12padams.com/backgrounds"
padamsbackgrounds.Dock = DockStyle.Fill
padamsbackgrounds.Show()
End Sub
Private Sub removewebsites()
googlemain.Hide()
welcomeinternetscreen.Hide()
googleprototype.Show()
googlealpha.Hide()
padamsmain.Hide()
hotmailmain.Hide()
padamsbackgrounds.Hide()
skindows95advertisment.Hide()
secretwebsite.Hide()
padamshidden.Hide()
email1.Hide()
email2.Hide()
email3.Hide()
hotmailpadams.Hide()
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
If close_everything_.timesoftware = "yes" Then
Button26.Show()
Label57.Show()
End If
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
removewebsites()
addressbar.Text = "www.12padams.com/skindows"
skindows95advertisment.Dock = DockStyle.Fill
skindows95advertisment.Show()
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: Web Chat"
End Sub
Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label20.Click
removewebsites()
addressbar.Text = "www.12padams.com/???"
padamshidden.Dock = DockStyle.Fill
padamshidden.Show()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
removewebsites()
addressbar.Text = "www.???.com"
secretwebsite.Dock = DockStyle.Fill
secretwebsite.Show()
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If txtloginname.Text = "[email protected]" And txtpassword.Text = "projectdeath" Then
removewebsites()
addressbar.Text = "www.hotmail.com/seculink/145624987903246EGS4HFO954325UPWEM5N8BSSA5634S"
hotmailpadams.Show()
hotmailpadams.Dock = DockStyle.Fill
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem = "12padams.com datalog 1998" Then
email1.Show()
email2.Hide()
email3.hide()
End If
If ListBox1.SelectedItem = "What's the secret to your website?" Then
email1.Hide()
email2.Hide()
email3.Show()
End If
If ListBox1.SelectedItem = "RE: What's the secrect to your website?" Then
email1.Hide()
email3.Hide()
email2.Show()
End If
End Sub
Private Sub LinkLabel18_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel18.LinkClicked
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: hwcv.exe"
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Dim opendownload As New Downloader
opendownload.Show()
opendownload.Label2.Text = "Downloading: Time Distorter"
End Sub
End Class
|
