From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sun, 1 Mar 2015 10:50:24 +0000 Subject: Initial commit --- windows 95/windowsvista.vb | 191 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 191 insertions(+) create mode 100755 windows 95/windowsvista.vb (limited to 'windows 95/windowsvista.vb') diff --git a/windows 95/windowsvista.vb b/windows 95/windowsvista.vb new file mode 100755 index 0000000..34dc3d8 --- /dev/null +++ b/windows 95/windowsvista.vb @@ -0,0 +1,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 \ No newline at end of file -- cgit v1.2.3