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
|
Public Class windowsvista
Dim countdown As Integer
Dim ampm As String
Dim count As Integer
Dim txtcount As Integer
Dim usersave As String
Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
startmenu.Show()
End Sub
Private Sub windows98_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
startmenu.Hide()
End Sub
Private Sub windows98Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
If My.Resources.Windows_XP_Startup.CanRead Then
Dim bStr(My.Resources.Windows_XP_Startup.Length) As Byte
My.Resources.Windows_XP_Startup.Read(bStr, 0, My.Resources.Windows_XP_Startup.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.Background)
End If
startmenu.Hide()
Timer1.Start()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
Dim w, h As Integer
w = Me.desktopicons.Width
h = Me.desktopicons.Height
Dim bmp As Bitmap = New Bitmap(w, h)
Using g As Graphics = Graphics.FromImage(bmp)
g.DrawImage(Me.BackgroundImage, 0, 0, bmp.Width, bmp.Height)
End Using
Me.BackgroundImage = bmp
Me.desktopicons.BackgroundImage = bmp
System.Windows.Forms.Application.VisualStyleState = VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled
System.Windows.Forms.Application.EnableVisualStyles()
End Sub
Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim opennotepad As New formnotepad
opennotepad.Show()
startmenu.Hide()
End Sub
Private Sub desktopicons_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles desktopicons.DoubleClick
Dim objDrawingPoint As Drawing.Point
Dim objListViewItem As ListViewItem
objDrawingPoint = desktopicons.PointToClient(Cursor.Position)
If Not IsNothing(objDrawingPoint) Then
With objDrawingPoint
objListViewItem = desktopicons.GetItemAt(.X, .Y)
End With
If Not IsNothing(objListViewItem) Then
If objListViewItem.Text = "Internet Explorer" Then
Dim openinternet As New internet_explorer_5
openinternet.Show()
End If
If objListViewItem.Text = "Guess The Number 2 Setup" Then
Dim openinstall As New Installer98
openinstall.installname.Text = "Guess The Number 2"
openinstall.installimage.Image = My.Resources.Guess_the_Number__install_
openinstall.Show()
End If
If objListViewItem.Text = "Start Runner 98 Setup" Then
Dim openinstall As New Installer98
openinstall.installname.Text = "Start Runner 98"
openinstall.installimage.Image = My.Resources.start_run__install___white_with_programname_
openinstall.Show()
End If
If objListViewItem.Text = "Error Blaster 98 Setup" Then
Dim openinstall As New Installer98
openinstall.installname.Text = "Error Blaster 98"
openinstall.installimage.Image = My.Resources.error_blast__big_
openinstall.Show()
End If
If objListViewItem.Text = "Skindows 95 Setup" Then
Dim openinstall As New Installer98
openinstall.installname.Text = "Skindows 95"
openinstall.installimage.Image = My.Resources.skindows_95__install_
openinstall.Show()
End If
If objListViewItem.Text = "Web Chat Setup" Then
Dim openinstall As New Installer98
openinstall.installname.Text = "Web Chat"
openinstall.installimage.Image = My.Resources.chat__big_
openinstall.Show()
End If
If objListViewItem.Text = "hwcv.exe" Then
Dim openhwcv As New hwcv
openhwcv.Show()
End If
If objListViewItem.Text = "Time Distorter 0.3 Setup" Then
Dim openinstall As New installerxp
openinstall.installname.Text = "Time Distorter 0.3"
openinstall.installimage.Image = My.Resources.time_distorter__install_Black_
openinstall.Show()
End If
End If
End If
End Sub
Private Sub Desktop_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles desktopicons.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
rightclickbackproperties.Show()
rightclickbackproperties.BringToFront()
rightclickbackproperties.Location = MousePosition
End If
If e.Button = Windows.Forms.MouseButtons.Left Then
End If
If e.Button = Windows.Forms.MouseButtons.Middle Then
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click
startmenu.Show()
usernamestart.Text = mainname
templetevista.Show()
End Sub
Private Sub PropertiesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertiesToolStripMenuItem1.Click
Dim oform As New formDisplayproperties
oform.Show()
startmenu.Hide()
End Sub
Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim openinternetexplorer As New internet_explorer_5
openinternetexplorer.Show()
startmenu.Hide()
End Sub
Private Sub FolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderToolStripMenuItem.Click
desktopicons.Items.Add("New Folder")
End Sub
Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desktopicons.MouseDown
startmenu.Hide()
End Sub
Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles desktopicons.MouseDown
End Sub
Private Sub turnoffcomputerbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles turnoffcomputerbutton.Click
Title_Screen.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Hour(Now) > 12 Then
ampm = "PM"
Else
ampm = "AM"
End If
taskbartime.Text = Format(Now, "hh:mm") & " " & ampm
End Sub
Private Sub NotepadToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotepadToolStripMenuItem.Click
Dim opennotepad As New notepadxp
opennotepad.Show()
startmenu.Hide()
End Sub
Private Sub InternetExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InternetExplorerToolStripMenuItem.Click
Dim openinternet As New Internetexplorer62002damaged
openinternet.Show()
startmenu.Hide()
End Sub
Private Sub TimeDistorter03ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDistorter03ToolStripMenuItem.Click
Dim timedistorter03 As New timedistorter032002xp
timedistorter03.Show()
startmenu.Hide()
End Sub
Private Sub taskbartime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles taskbartime.Click
Dim showmess As New Windows_Xp_messagebox
showmess.errormessage.Text = "your save code is: bsdn98e5"
showmess.Show()
End Sub
End Class
|
