shiftos-archive/Histacom
1
0
Fork 0
mirror of https://github.com/Histacom/Histacom.git synced 2025-01-22 09:02:00 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Shutdown sounds added, along with new Windows 2000 startup and shutdown to match the actual Windows 2000 startup and shutdown sounds rather than reusing the sounds from Windows ME.

Browse source
This commit is contained in:
TheUltimateHacker 2015-03-02 18:01:07 -05:00
parent 70be688142
commit 3c9ecd0c0b
10 changed files with 28 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
windows 95/Resources/Windows 2000 Shutdown.wav Normal file
View file

Binary file not shown.

BIN
windows 95/Resources/Windows 2000 Startup.wav Normal file
View file

Binary file not shown.

BIN
windows 95/Resources/Windows 95 Shutdown.wav Normal file
View file

Binary file not shown.

BIN
windows 95/Resources/Windows 98 Shutdown.wav Normal file
View file

Binary file not shown.

BIN
windows 95/Resources/Windows ME Startup.wav Normal file
View file

Binary file not shown.

BIN
windows 95/Resources/Windows Vista Shutdown.wav Normal file
View file

Binary file not shown.

10
windows 95/Windows2000.vb
View file

@ -10,9 +10,9 @@
Private Sub windows95_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
desktopicons.Show()
If My.Resources.windows_2000_boot_sound.CanRead Then
Dim bStr(My.Resources.windows_2000_boot_sound.Length) As Byte
My.Resources.windows_2000_boot_sound.Read(bStr, 0, My.Resources.windows_2000_boot_sound.Length)
If My.Resources.Windows_2000_Startup.CanRead Then
Dim bStr(My.Resources.Windows_2000_Startup.Length) As Byte
My.Resources.Windows_2000_Startup.Read(bStr, 0, My.Resources.Windows_2000_Startup.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.Background)
End If
startmenu.Hide()
@ -263,8 +263,8 @@
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)
Dim bStr(My.Resources.Windows_2000_Shutdown.Length) As Byte
My.Resources.Windows_2000_Shutdown.Read(bStr, 0, My.Resources.Windows_2000_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub

12
windows 95/Windows98.vb
View file

@ -163,8 +163,16 @@
startmenu.Hide()
End Sub
Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
Title_Screen.Close()
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click
startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_98_Shutdown.Length) As Byte
My.Resources.Windows_98_Shutdown.Read(bStr, 0, My.Resources.Windows_98_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

12
windows 95/Windowsxp2002damaged.vb
View file

@ -156,8 +156,16 @@
End Sub
Private Sub turnoffcomputerbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles turnoffcomputerbutton.Click
Title_Screen.Close()
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles turnoffcomputerbutton.Click
startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_XP_Shutdown.Length) As Byte
My.Resources.Windows_XP_Shutdown.Read(bStr, 0, My.Resources.Windows_XP_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

6
windows 95/windows me.vb
View file

@ -9,9 +9,9 @@
Private Sub windows95_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
desktopicons.Show()
If My.Resources.windows_2000_boot_sound.CanRead Then
Dim bStr(My.Resources.windows_2000_boot_sound.Length) As Byte
My.Resources.windows_2000_boot_sound.Read(bStr, 0, My.Resources.windows_2000_boot_sound.Length)
If My.Resources.Windows_ME_Shutdown.CanRead Then
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.Background)
End If
startmenu.Hide()