Cd Loader V.01

AutoItSetOption("WinTitleMatchMode", 4)

;(----------------------This is a list of the CD's in Inventory----------------------)

$cdloaderdir = "c:\WINNT\CD Loader\"  ;CD Loader installation directory
$trayplaymessage = "Currently Playing..."	;tray tip title message
$playername = "classname=WMPlayerApp"  ;classname of the player used
$forwardhotkey = "{CTRLDOWN}f{CTRLUP}"  ;hotkey for "next track"
$backhotkey = "{CTRLDOWN}b{CTRLUP}"  ;hotkey for "previous track"
$cd1 = "muse - absolution"   ;Name of CD 1
$cd2 = "frou frou - details"   ;Name of CD 2
$cd3 = "kylie minogue - fever"   ;Name of CD 3
$cd4 = "postal service - give up"  ;Name of CD 4
$cd5 = "coldplay - a rush of blood to the head"	;Name of CD 5
$cd6 = "wyclef jean - the carnival"  ;Name of CD 6


;(----------------------This is the start of the loop----------------------)

$loopy = 0
while $loopy = 0
$input = InputBox ( "CD Loader", "Enter a command","","",170,40,0,0)

If @error = 1 Then
exit

;(----------------------Here are the commands for input values----------------------)

elseif $input = "list" Then
MsgBox(0, "CD inventory List", $cd1 & @CRLF & $cd2 & @CRLF & $cd3 & @CRLF & $cd4 & @CRLF & $cd5 & @CRLF & $cd6)

ElseIf $input = "forward" Then
winactivate($playername)
winwait($playername)
send($forwardhotkey)
WinSetState ($playername,"",@SW_MINIMIZE)

ElseIf $input = "next" Then
winactivate($playername)
winwait($playername)
send($forwardhotkey)
WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "back" Then
winactivate($playername)
winwait($playername)
send($backhotkey)
WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = "previous" Then
winactivate($playername)
winwait($playername)
send($backhotkey)
WinSetState ($playername,"",@SW_MINIMIZE)

elseif $input = $cd1 Then
winclose($playername)
run ($cdloaderdir & $cd1 & ".bat","",@SW_HIDE)
winwait("classname=WMPlayerApp")
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd1,20,1)

elseif $input = $cd2 Then
winclose($playername)
run ($cdloaderdir & $cd2 & ".bat","",@SW_HIDE)
winwait($playername)
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd2,20,1)

elseif $input = $cd3 Then
winclose($playername)
run ($cdloaderdir & $cd3 & ".bat","",@SW_HIDE)
winwait($playername)
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd3,20,1)

elseif $input = $cd4 Then
winclose($playername)
run ($cdloaderdir & $cd4 & ".bat","",@SW_HIDE)
winwait($playername)
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd4,20,1)

elseif $input = $cd5 Then
winclose($playername)
run ($cdloaderdir & $cd5 & ".bat","",@SW_HIDE)
winwait($playername)
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd5,20,1)

elseif $input = $cd6 Then
winclose($playername)
run ($cdloaderdir & $cd6 & ".bat","",@SW_HIDE)
winwait($playername)
WinSetState ($playername,"",@SW_MINIMIZE)
TrayTip ($trayplaymessage,$cd6,20,1)

else
msgbox(48,"CD Loader information","'" & $input & "'" & " was not found in the database")
endif
wend