MusicBox.NET

Software Requirements Specifications By Katerina Fotiou

2011-02-12T06:19:00.000-08:00

Special thanks to Katerina Fotiou for preparing this document, Wish You All The Best!

"FrozeN" Laxegon

2011-01-07T09:34:00.000-08:00

Based on the google search results for "MusicBox.NET", 80% of software distributing sites spelled my name wrong. "Frozen Laxegon"? "Freezer Laxegon"? What The Hell?! for the last time...my name is "FrozeR Laxegon"! Also the application has been updated to V1.7.5.5, for distributors that haven't chang or update the version, please download the latest from here.

Thank you.

A Small Update

2011-01-06T08:23:00.000-08:00

Hi, again, it's a long time since I've updated this blog, well, the website hosted at Source-forge is currently down because I messed up the button "Upload" and "Delete" =.='. And I've moved to x64 bit Windows 7 to focus more on the MusicBox.NET 64 bit OS version development. But I'm forgetful, so I've forgot to make a backup of the source code and the source files of the website(the Source-forge one, that is.) But I'm glad I've been uploading source codes for each version on the project page. So I can pick up from where I stopped, as for the website, which I didn't make a backup to, have to be created all over again, but w/e, will try to recreate the website before February, and here, I wish you guys a happy new year!

594 Downloads For A Single Version?! OMG!

2010-11-08T19:02:00.000-08:00

Hey what's up.
I just woke up today morning and decided to check the downloads for the latest version of MusicBox.NET, and guess what? It already reached 594 downloads in just 3 days!
Here's the complete statistics :

I'm so happy!!!

MusicBoxDotNet V1.7.5.0 Beta

2010-11-08T08:44:00.000-08:00

Hi, I've released the first beta as all of you know, nothing much has been changed but I've added some really useful functions, such as system-wide hot-keys.

What is system-wide hot-key?
System-wide hot-key is a hot-key that can be accessed from other applications.
Old VB.NET hot-keys function only can perform only when the form is selected by using :
If e.KeyCode = Keys.Enter Then
'Do Your Code Here
End If
For system-wide hot-keys, the functions can be accessed even if the form is not focused / selected.

The Hot-KEYS
Currently, this is a list of hot-keys I've added :
ALT + UP - Toggle Play / Pause
ALT + DOWN - Stop
ALT + LEFT - Previous
ALT + RIGHT - Next

Bug Fixes
Added scroll-bar to console to allow users to scroll down / up.

V1.7.0.0 Released

2010-11-01T20:00:00.000-07:00

Finally a new version of MusicBox.NET.
The final changelog for this version is :
ChangeLog V1.7.0.0 :
-New tags reader(taglib-sharp.dll)
-Now supports reading album cover.
-14 new visualizations.
-Full screen Visualizations(Press F11)
-Enhanced for Windows 7(taskbar buttons, taskbar progressbar)
-Fixed position tracker.
-Support for more Internet Radio stations format(iTunes /WinAMP : .PLS|WMP : .ASX|Realplayer : .RAM)
-Support for languages(CTRL + SHIFT + L)
-Now with magnetic function(just like WinAMP)
-Cursor hides when Visualization is full screen.
-Autoload BASS addons on startup.
-Autoadd BASS addons filter on startup.
-Visualizes Aero(CTRL + ALT + V, Special thanks to Winand(youtube.com/winandfx))
-Added mixer for DX8 FX, 128khz, etc.
-Can handle arguments without the need of ArgsHandler.
-Adds file to playlist if application is already running.
-Able to associate all supported file formats to application via registry(requires admin privillege in Vista / 7).
-Added tags editor.
-Added console application which acts like a Windows' Command Prompt(CMD) for MusicBox.NET

Also, it has a new packaging method because the installer method is buggy and doesn't works well for everyone, therefore, I decided to use a ZIP archive to do the job.

Special Thanks(This version only) :
WinandFX - Aero Visualization

Please download the latest version from our "Downloads" section.

Synclib

2010-10-14T20:02:00.001-07:00

I've added another new feature to MusicBoxDotNet, by using a library I wrote, synclib associates the file types(e.g.: .mp3) with your own application(e.g.: MusicBoxDotNet)
Synclib is available free of charge and can be downloaded here :
Synclib + Example App
Synclib + Example App + Source Code
Notes :
Synclib requires administrator privileges to access to registry(only required on Vista / 7)
To do so, right click on your application and select "Run As Administrator"(proven that your application is a Windows standalone executable without virtual host(vhost))
Example Code :
Imports synclib.Sync
Dim synce As New synclib.Sync
synce.sync("extension", "Application", "Icon")

Changes Currently Made To V1.7.0.0

2010-09-28T08:54:00.000-07:00

ChangeLog V1.7.0.0 :
-New tags reader(taglib-sharp.dll)
-Now supports reading album cover.
-14 new visualizations.
-Full screen Visualizations(Press F11)
-Enhanced for Windows 7(taskbar buttons, taskbar progressbar)
-Fixed position tracker.
-Support for more Internet Radio stations format(iTunes /WinAMP : .PLS WMP : .ASX Realplayer : .RAM)
-Support for languages(CTRL + SHIFT + L)
-Now with magnetic function(just like WinAMP)
-Cursor hides when Visualization is full screen.
-Autoload BASS addons on startup.
-Autoadd BASS addons filter on startup.
-Visualizes Aero(CTRL + ALT + V, Special thanks to Winand(youtube.com/winandfx))
-Added mixer for DX8 FX, 128khz, etc.
-Can handle arguments without the need of ArgsHandler.
-Adds file to playlist if application is already running.
-Able to associate all supported file formats to application via registry(requires admin privillege).
-Added tags editor.

Using BASS.MISC To Generate Visuals

2010-09-28T08:29:00.000-07:00

Hi, this feature is used in V1.7.0.0 to generate better looking visualizations, also this method of creating visuals is far more simple and advanced than using bitmap and graphics from System.Drawing(seen on V1.0.0.0 - V1.6.5.5)
Here, we use BASS.MISC which is the miscellaneous functions of BASS.NET
First, we need to prepare a picture box to render the visualization in it.
I'll name mine PicVis
Then, we need to add a timer to frequently update the visuals, set your timer to the following :
Enabled = True
Interval = Any numbers between 1 to 20
Now, lets start coding.
You must add a reference to BASS.MISC by using the following code :
Imports Un4seen.Bass.Misc
Now, we need to add the declarations :
Dim vis As New Visuals 'Declares vis as the pen and visual rendering tool we will use
Dim l As Integer = 1
'Declares the function to show or hide cursor by going through the user32 lib
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Now we need to change the visuals as someone clicked on the picture box.
Add the following code under PicVis_Click :
If Not l = 14 Then
l = l + 1
Else
l = 1
End If
This will change the visuals by changing the integer's value, if it's 14(the last visual), then it goes back to one.
Next, we need to render the visuals one by one so add the following code under your timer :
If l = 1 Then PicVis.Image = vis.CreateSpectrum(musicbox.strm, PicVis.Width, PicVis.Height, Color.Lime, Color.Red, Color.Black, False, False, False)
If l = 2 Then PicVis.Image = vis.CreateSpectrumLine(musicbox.strm, PicVis.Width, PicVis.Height, Color.BlueViolet, Color.Purple, Color.Black, 2, 2, False, False, False)
If l = 3 Then PicVis.Image = vis.CreateSpectrum(musicbox.strm, PicVis.Width, PicVis.Height, Color.Yellow, Color.Red, Color.Black, False, True, True)
If l = 4 Then PicVis.Image = vis.CreateSpectrumLine(musicbox.strm, PicVis.Width, PicVis.Height, Color.Blue, Color.Red, Color.Black, 16, 4, False, False, False)
If l = 5 Then PicVis.Image = vis.CreateSpectrumEllipse(musicbox.strm, PicVis.Width, PicVis.Height, Color.Green, Color.Yellow, Color.Black, 1, 2, False, False, False)
If l = 6 Then PicVis.Image = vis.CreateSpectrumEllipse(musicbox.strm, PicVis.Width, PicVis.Height, Color.Violet, Color.SteelBlue, Color.Black, 2, 4, False, False, False)
If l = 7 Then PicVis.Image = vis.CreateSpectrumDot(musicbox.strm, PicVis.Width, PicVis.Height, Color.Gold, Color.Yellow, Color.Black, 1, 0, False, False, False)
If l = 8 Then PicVis.Image = vis.CreateSpectrumDot(musicbox.strm, PicVis.Width, PicVis.Height, Color.Orange, Color.Red, Color.Black, 2, 1, False, False, False)
If l = 9 Then PicVis.Image = vis.CreateSpectrumLinePeak(musicbox.strm, PicVis.Width, PicVis.Height, Color.SeaGreen, Color.LightGreen, Color.Orange, Color.Black, 2, 1, 2, 10, False, False, False)
If l = 10 Then PicVis.Image = vis.CreateSpectrumLinePeak(musicbox.strm, PicVis.Width, PicVis.Height, Color.GreenYellow, Color.RoyalBlue, Color.DarkOrange, Color.Black, 23, 5, 3, 5, False, False, False)
If l = 11 Then PicVis.Image = vis.CreateSpectrumWave(musicbox.strm, PicVis.Width, PicVis.Height, Color.Chocolate, Color.DarkGoldenrod, Color.Black, 1, False, False, False)
If l = 12 Then PicVis.Image = vis.CreateSpectrumBean(musicbox.strm, PicVis.Width, PicVis.Height, Color.Silver, Color.DarkGreen, Color.Black, 4, False, False, False)
If l = 13 Then PicVis.Image = vis.CreateSpectrumText(musicbox.strm, PicVis.Width, PicVis.Height, Color.Chocolate, Color.DarkGoldenrod, Color.Black, "MusicBox.NET is Awes0me Like Fro", False, False, False)
If l = 14 Then PicVis.Image = vis.CreateWaveForm(musicbox.strm, PicVis.Width, PicVis.Height, Color.Green, Color.Red, Color.Gray, Color.Black, 1, True, False, True)
This will render the visuals according to the integer's value, strm is the stream I used to play the music using BASS, you can change "MusicBox.NET is Awes0me Like Fro" to whatever text you like.
Translated from BASS.NET C# Example - Simple.
Original C# code :
private int specIdx = 15;
private int voicePrintIdx = 0;
private void DrawSpectrum()
{
switch (specIdx)
{
// normal spectrum (width = resolution)
case 0:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrum(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Lime, Color.Red, Color.Black, false, false, false);
break;
// normal spectrum (full resolution)
case 1:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrum(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.SteelBlue, Color.Pink, Color.Black, false, true, true);
break;
// line spectrum (width = resolution)
case 2:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumLine(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Lime, Color.Red, Color.Black, 2, 2, false, false, false);
break;
// line spectrum (full resolution)
case 3:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumLine(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.SteelBlue, Color.Pink, Color.Black, 16, 4, false, true, true);
break;
// ellipse spectrum (width = resolution)
case 4:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumEllipse(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Lime, Color.Red, Color.Black, 1, 2, false, false, false);
break;
// ellipse spectrum (full resolution)
case 5:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumEllipse(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.SteelBlue, Color.Pink, Color.Black, 2, 4, false, true, true);
break;
// dot spectrum (width = resolution)
case 6:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumDot(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Lime, Color.Red, Color.Black, 1, 0, false, false, false);
break;
// dot spectrum (full resolution)
case 7:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumDot(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.SteelBlue, Color.Pink, Color.Black, 2, 1, false, false, true);
break;
// peak spectrum (width = resolution)
case 8:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumLinePeak(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.SeaGreen, Color.LightGreen, Color.Orange, Color.Black, 2, 1, 2, 10, false, false, false);
break;
// peak spectrum (full resolution)
case 9:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumLinePeak(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.GreenYellow, Color.RoyalBlue, Color.DarkOrange, Color.Black, 23, 5, 3, 5, false, true, true);
break;
// wave spectrum (width = resolution)
case 10:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumWave(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Yellow, Color.Orange, Color.Black, 1, false, false, false);
break;
// dancing beans spectrum (width = resolution)
case 11:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumBean(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Chocolate, Color.DarkGoldenrod, Color.Black, 4, false, false, true);
break;
// dancing text spectrum (width = resolution)
case 12:
this.pictureBoxSpectrum.Image = _vis.CreateSpectrumText(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.White, Color.Tomato, Color.Black, "BASS .NET IS GREAT PIECE! UN4SEEN ROCKS...", false, false, true);
break;
// frequency detection
case 13:
float amp = _vis.DetectFrequency(_stream, 10, 500, true);
if (amp > 0.3)
this.pictureBoxSpectrum.BackColor = Color.Red;
else
this.pictureBoxSpectrum.BackColor = Color.Black;
break;
// 3D voice print
case 14:
// we need to draw directly directly on the picture box...
// normally you would encapsulate this in your own custom control
Graphics g = Graphics.FromHwnd(this.pictureBoxSpectrum.Handle);
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias;
_vis.CreateSpectrum3DVoicePrint(_stream, g, new Rectangle(0,0,this.pictureBoxSpectrum.Width,this.pictureBoxSpectrum.Height), Color.Black, Color.White, voicePrintIdx, false, false);
g.Dispose();
// next call will be at the next pos
voicePrintIdx++;
if (voicePrintIdx > this.pictureBoxSpectrum.Width-1)
voicePrintIdx = 0;
break;
// WaveForm
case 15:
this.pictureBoxSpectrum.Image = _vis.CreateWaveForm(_stream, this.pictureBoxSpectrum.Width, this.pictureBoxSpectrum.Height, Color.Green, Color.Red, Color.Gray, Color.Black, 1, true, false, true);
break;
}
}

Aero Visualization Tutorial

2010-09-03T07:09:00.000-07:00

Hi people! Jaschar60 has asked me how do I get that Aero visualization effect in MusicBox.NET.
Its actually pretty easy, just follow and you guys should get it right...Or........you guys can watch the 7 minutes video below made by me using a blurred out mic and screen recorder(highly not recommended)

First, you guys need to download the required files :

BASS(.NET Wrapper, Original Lib)
VB.NET
VB6(Optional)
Time

Then, you guys follow the following steps :

Start VB.NET
Start a new project or open an existing one, add a reference to BASS.NET.DLL
Add the following code before Public Class
Imports Un4seen.Bass
Imports System.IO
Imports System.Runtime.InteropServices
Add the following code after Public Class
Dim P As DWMCOLORIZATIONPARAMS
Dim special As Long
Dim wdm_saved_color As Long
Dim wdm_is_on As Boolean
Dim strm As Integer
_
Private Shared Sub DwmSetColorization(ByRef dp As DWMCOLORIZATIONPARAMS, ByVal unknown As Long)
End Sub
_
Private Shared Sub DwmGetColorizationParameters(ByRef dp As DWMCOLORIZATIONPARAMS)
End Sub
Private Structure DWMCOLORIZATIONPARAMS
Public Color1 As Long
Public Color2 As Long
Public intensity As Long
Public Unknown1 As Long
Public Unknown2 As Long
Public Unknown3 As Long
Public Opaque As Long
End Structure
Public Sub rescolor()
On Error Resume Next
Dim w As New StreamWriter("StopAero.txt")
w.Close()
My.Computer.FileSystem.DeleteFile("StopAero.txt")
End Sub
Public Sub getcolor()
On Error Resume Next
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Aerolizer")
For Each p As Process In pProcess
p.Kill()
Next
DwmGetColorizationParameters(P)
special = Math.Sign(P.Color2) * (P.Color2 And &HFFFF0000)
wdm_saved_color = P.Color1 And P.Color2
wdm_is_on = True
Process.Start("Aerolizer.exe")
End Sub
Function LoWord(ByVal DWord As Long) As Integer
If DWord And &H8000& Then ' &H8000& = &H00008000
LoWord = DWord Or &HFFFF0000
Else
LoWord = DWord And &HFFFF&
End If
End Function

Function HiWord(ByVal DWord As Long) As Integer
HiWord = (DWord And &HFFFF0000) \ &H10000
End Function

Public Sub setcolor()
If wdm_is_on Then
Dim level As Long
Static prev As Long
level = Bass.BASS_ChannelGetLevel(strm)
level = ((HiWord(level) + LoWord(level)) / 2) \ 128
If level = 256 Then level = 255 'Cap it.
If level - prev > 50 Then level = prev + 50 Else If prev - level > 50 Then level = prev - 50 'Smoother.
If level <>
P.Color1 = special + RGB(0, 128 + level, level * 2)
Else
P.Color1 = special + RGB(0, 256 - (level - 127) * 2, 255)
End If
P.Color2 = P.Color1
DwmSetColorization(P, 0)
prev = level
End If
End Sub
Add two buttons* and one timer to your application
Name the first button "Enable Aero" and the second button "Disable Aero"
Set the timer interval between 10 and 50
Add setcolor() under timer_tick event
Add timer.enabled = true under the first button
Add the following code under the second button
Timer.Enabled = False
rescolor()
Save the project
Now, you need to create the helper application, click here for the code(VB6)
If your lazy, click here to download a compiled version.
After you have saved the project, there should be a folder
My Documents/Visual Studio 2008/Projects/(YourProjectNameHere)/
Inside that folder, add the files you have downloaded(bass.dll, Aerolizer.exe)
Add the following code under Form_Load
getcolor()
Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, IntPtr.Zero)
strm = Bass.BASS_StreamCreateFile("YourFileNameHere", 0,0 BASSFlags.BASS_Default)
Bass.BASS_ChannelPlay(strm, False)
Debug, have fun!

BASS Addons

2010-09-03T06:01:00.000-07:00

Hi, now I've added another feature to MusicBox.NET, this time, it supports BASS Addons!
BASS addons enables playback of other formats of audio files instead of just the formats integrated into the BASS lib, this includes FLAC, MPC, AC3, TTA and other formats. A list of BASS addons can be found here.
The code is referred from the BASS.NET C# samples, its surely easy to understand(and translate) although the syntax and structure is different.
Here is a demo video for the brand new feature :

This is the code in C#(BASS.NET C# Sample) :
if (folderBrowserDialog.ShowDialog(this) == DialogResult.OK)
{
this.listBox1.Items.Clear();
string dir = folderBrowserDialog.SelectedPath;
// load all (bass*.dll) add-ons from the given directory
this.Cursor = Cursors.WaitCursor;
Dictionary loadedPlugIns = Bass.BASS_PluginLoadDirectory(dir);
openFileDialog.Filter = Utils.BASSAddOnGetSupportedFileFilter(loadedPlugIns, "All supported Audio Files", true);
this.Cursor = Cursors.Default;
// lets see what we have received...
if (loadedPlugIns != null)
{
foreach (string file in loadedPlugIns.Values)
{
this.listBox1.Items.Add( file );
}
foreach (int plugin in loadedPlugIns.Keys)
{
BASS_PLUGININFO pluginInfo = Bass.BASS_PluginGetInfo(plugin);
// or this might also be used as an alternative:
//BASS_PLUGININFO pluginInfo = new BASS_PLUGININFO( Bass.BASS_PluginGetInfoPtr(plugin) );
foreach (BASS_PLUGINFORM formats in pluginInfo.formats)
{
Console.WriteLine( formats.ToString() );
}
}
Console.WriteLine( Utils.BASSAddOnGetPluginFileFilter(loadedPlugIns, "All supported Audio Files", true) );
Console.WriteLine( Utils.BASSAddOnGetPluginFileFilter(loadedPlugIns, null, false) );
}
else
MessageBox.Show( this, "No BASS add-on loaded!" );
}
This is the code in VB.NET(MusicBox.NET) :
Dim dir As String = Application.StartupPath
Dim loadedPlugIns As Dictionary(Of Integer, String) = Bass.BASS_PluginLoadDirectory(dir)
Playlist.DLG.Filter = Utils.BASSAddOnGetSupportedFileFilter(loadedPlugIns, "All supported Audio Files", True)
If loadedPlugIns IsNot Nothing Then
For Each file As String In loadedPlugIns.Values
Bass.BASS_PluginLoad(file)
Next
For Each plugin As Integer In loadedPlugIns.Keys
Dim pluginInfo As BASS_PLUGININFO = Bass.BASS_PluginGetInfo(plugin)
For Each formats As BASS_PLUGINFORM In pluginInfo.formats
Console.WriteLine(formats.ToString())
Next
Next
Console.WriteLine(Utils.BASSAddOnGetPluginFileFilter(loadedPlugIns, "All supported Audio Files", True))
Console.WriteLine(Utils.BASSAddOnGetPluginFileFilter(loadedPlugIns, Nothing, False))
Else
End If

Aero Visualization

2010-09-03T04:40:00.000-07:00

This is the demo video of the new feature I added into MusicBox.NET, it visualizes aero!
This works only with Windows operating systems with Aero, which means Vista and above should be able to use it.
This is made possible thanks to the help from Winand
This is a demo video of the feature :

This feature uses codes between two different versions of Visual Basic, the "get" and "reset" code is written in VB6 while the "visualize" code is written in VB.NET. Since both of the language does not share the same syntax and structure, I decided to make a helper executable, which is "Aerolizer", these are the codes in that VB6 application :

Option Explicit
Private Type WDM_COLORIZATION_PARAMS
Color1 As Long
Color2 As Long
intensity As Long
Unknown1 As Long
Unknown2 As Long
Unknown3 As Long
Opaque As Long
End Type
'Import the required "dwmapi.dll"
Private Declare Sub DwmGetColorizationParameters Lib "dwmapi.dll" Alias "#127" (ByRef parameters As WDM_COLORIZATION_PARAMS)
Private Declare Sub DwmSetColorizationParameters Lib "dwmapi.dll" Alias "#131" (ByRef parameters As WDM_COLORIZATION_PARAMS, ByVal uUnknown As Long)
Dim P As WDM_COLORIZATION_PARAMS, special As Long, wdm_saved_color As Long, wdm_is_on As Boolean
Private Sub Form_Load()
'Make sure the application is a single instance application
If App.PrevInstance = True Then
End
End If
On Error Resume Next
'Get the previous color so we can restore it later
DwmGetColorizationParameters P
special = Sgn(P.Color1) * (P.Color1 And &HFF000000)
wdm_saved_color = P.Color1 And &HFFFFFF
End Sub
'Restore the color when the application closes
Private Sub Form_Terminate()
On Error Resume Next
P.Color1 = special + wdm_saved_color
P.Color2 = P.Color1
DwmSetColorizationParameters P, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
P.Color1 = special + wdm_saved_color
P.Color2 = P.Color1
DwmSetColorizationParameters P, 0
End Sub

Private Sub Timer1_Timer()
'This checks for the signal, in this case, "StopAero.txt"
'It means that if "StopAero.txt" is found, it will restore the color
On Error Resume Next
If Dir("StopAero.txt") <> "" Then
P.Color1 = special + wdm_saved_color
P.Color2 = P.Color1
DwmSetColorizationParameters P, 0
Else
Exit Sub
End If
End Sub