Read CD Help

[keen]

How can i get autoit to read a CD (Music) and be able to play it?

EDIT:

I got it to find the drive but how can i make it not always say that there is no CD.

Script:

#include <GUIConstants.au3>

GUICreate("Amp Music", 954, 762, 166, 120)
GUISetBkColor (0xffffff)
$Pic1 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\BG.gif", 8, 40, 937, 697, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic2 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\Knobs.gif", 184, 70, 81, 81, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic3 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\Volume.gif", 184, 157, 81, 25, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic4 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\input.gif", 26, 82, 59, 59, BitOR($SS_NOTIFY,$WS_GROUP))
$fileread = FileRead ("E:")
If $fileread <> "" Then 
$Pic5 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\No-CD.gif", 16, 144, 80, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Pic6 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\CD.gif", 16, 144, 80, 68, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        Case $Pic3

        
        Case $Pic1

        
        Case $Pic2
    EndSwitch
WEnd

Edited December 22, 2006 by keen

[keen]

Fixed up the script. I need it to be able to read the songs off of the CD and put them in the list and i need the CD and no cd thing to actuily work.

Updated Script:

expandcollapse popup

#include <GUIConstants.au3>
#include <Xskin.au3>

$skin_folder = @ScriptDir & "\images\skin"
XskinGUICreate("Amp Music", 1085,800, $skin_folder)

GUISetBkColor (0xffffff)
$Pic1 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\BG.gif", 73, 50, 937, 697, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic2 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\Knobs.gif", 249, 80, 81, 81, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic3 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\Volume.gif", 249, 167, 81, 25, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic4 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\input.gif", 91, 92, 59, 59, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic4 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\songs.gif", 450, 290, 70, 38, BitOR($SS_NOTIFY,$WS_GROUP))
$fileread = FileRead ("E:")
If $fileread <> "" Then 
$Pic5 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\No-CD.gif", 81, 154, 80, 68, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Pic6 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Amp Music\images\CD.gif", 81, 154, 80, 68, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
GUICtrlCreateList( $fileread , 550, 220,100,200)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        Case $Pic3

        
        Case $Pic1

        
        Case $Pic2
    EndSwitch
WEnd

[Valuater]

maybe...

#include <GuiConstants.au3>
#Include <File.au3>

GUICreate("my gui")
$fileread = ""
$list = GUICtrlCreateList( $fileread , 50, 20,250,200)
GUISetState()

$FileList=_FileListToArray(@DesktopDir)
If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf

for $x = 1 to UBound($FileList) - 1
    GUICtrlSetData( $list, $FileList[$x], 1)
Next

Sleep(5000)

8)

[keen]

Can you put that in my script?

Thanks!

-keen

[Valuater]

Can you put that in my script?

Thanks!

-keen

uhmmm....

no

..... try yourself

8)

[GEOSoft]

uhmmm....

no

..... try yourself

8)

aaaaaaaahhh. Why not?

While you're at it , how about finishing PX4 for me.

[Valuater]

aaaaaaaahhh. Why not?

While you're at it , how about finishing PX4 for me.

LOL....

8)