From 70be68814244c074e26916979f0aae1833719d93 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 2 Mar 2015 15:48:34 -0500 Subject: Bug fixing, mainly for the Internet Explorer icon on Windows ME's desktop, as well as adding a shutdown sound to both ME and 2000. --- windows 95/Resources/Windows ME Shutdown.wav | Bin 0 -> 682744 bytes windows 95/Windows2000.vb | 10 +++++++++- windows 95/windows me.vb | 18 +++++++++++++++--- 3 files changed, 24 insertions(+), 4 deletions(-) create mode 100644 windows 95/Resources/Windows ME Shutdown.wav diff --git a/windows 95/Resources/Windows ME Shutdown.wav b/windows 95/Resources/Windows ME Shutdown.wav new file mode 100644 index 0000000..e662edd Binary files /dev/null and b/windows 95/Resources/Windows ME Shutdown.wav differ diff --git a/windows 95/Windows2000.vb b/windows 95/Windows2000.vb index 6929fa4..ab92355 100755 --- a/windows 95/Windows2000.vb +++ b/windows 95/Windows2000.vb @@ -258,7 +258,15 @@ End Sub Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click - Title_Screen.Close() + startmenu.Hide() + desktopicons.Hide() + taskbar.Hide() + startbutton.Hide() + + Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte + My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length) + My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete) + Me.Close() End Sub diff --git a/windows 95/windows me.vb b/windows 95/windows me.vb index ceffb41..658c903 100755 --- a/windows 95/windows me.vb +++ b/windows 95/windows me.vb @@ -72,8 +72,8 @@ If Not IsNothing(objListViewItem) Then If objListViewItem.Text = "Internet Explorer" Then - Dim openerror As New windows2000messagebox - openerror.infomessage.Text = "You have reached the End of Histcom 1.9, Please save your game now by clicking on the time in the start menu so that you can continue your game from here when the next version of histacom comes out." + Dim IE As New Internet_Explorer_52001 + IE.Show() End If If objListViewItem.Text = "Guess The Number 2 Setup" Then @@ -255,7 +255,19 @@ End Sub Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click - Title_Screen.Close() + startmenu.Hide() + desktopicons.Hide() + taskbar.Hide() + startbutton.Hide() + + Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte + My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length) + My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete) + Me.Close() + End Sub + + Private Sub Form_IsClosing(sender As Object, e As EventArgs) Handles MyBase.FormClosing + End Sub Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click -- cgit v1.2.3