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

Merge pull request #5 from TheUltimateHacker/master

Browse source 
Add shutdown sounds
This commit is contained in:
Jamie Mansfield 2015-03-03 15:40:38 +00:00
commit 00a5f71b30
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()