NewForAutoit Posted June 18, 2008 Share Posted June 18, 2008 (edited) my media player is not much I need help to run the "Progress" and repair Time and add Button Delete music in list please : it's my first script : expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(7, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) GUISetState(@SW_SHOW) AutoItSetOption ( "RunErrorsFatal", 0) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $File=FileOpenDialog("Media files", @ScriptDir, "(*.avi;*.mp3;*.wav;*.mpg)") $title = _GetExtProperty($File,10) $artist = _GetExtProperty($File,16) $time = _GetExtProperty($File,21) GUICtrlSetData($list, $artist &" - " & $title & " " & $time & " " & $song) $Media=_SoundOpen($File) $mid = $File while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($Scegli, $sk) Case $nMsg = $Play _SoundPlay($Media) SoundSetWaveVolume(100) _GUICreateSmallPlay('Some Title', 'Some Artist', 'Music Play :'&GUICtrlRead($Scegli)) Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 7, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 7, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") EndSelect WEnd Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc Edited June 18, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
Uriziel01 Posted June 18, 2008 Share Posted June 18, 2008 E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3(93,1) : ERROR: missing EndSelect. Func ^ E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3(64,7) : REF: missing EndSelect. Select ~~~~~~^ E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3(93,1) : ERROR: missing Wend. Func ^ E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3(62,1) : REF: missing Wend. While ^ E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3(124,1) : ERROR: syntax error Case ^ E:\Documents and Settings\PaBello\Pulpit\Nowy AutoIt v3 Script (6).au3 - 3 error(s), 0 warning(s) Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 it work for me Link to comment Share on other sites More sharing options...
Kip Posted June 18, 2008 Share Posted June 18, 2008 And what does "Parcourir..." mean? MailSpons: Fake SMTP server for safe email testing Dutch postcode & address API. Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 (edited) sorry it's frensh it's add = ... heeelp me Edited June 18, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 cool... I see you used my small gui Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 (edited) yeees i loveee it's beautiful can you help me with my script? Edited June 18, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 yeh, whats wrong? btw Uriziel's error is fixt like this: expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(7, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) GUISetState(@SW_SHOW) AutoItSetOption ( "RunErrorsFatal", 0) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $File=FileOpenDialog("Media files", @ScriptDir, "(*.avi;*.mp3;*.wav;*.mpg)") $title = _GetExtProperty($File,10) $artist = _GetExtProperty($File,16) $time = _GetExtProperty($File,21) GUICtrlSetData($list, $artist &" - " & $title & " " & $time & " " & $song) $Media=_SoundOpen($File) $mid = $File while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($Scegli, $sk) Case $nMsg = $Play _SoundPlay($Media) SoundSetWaveVolume(100) _GUICreateSmallPlay('Some Title', 'Some Artist', 'Music Play :'&GUICtrlRead($Scegli)) Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") EndSelect WEnd Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 7, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 7, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 This should solve problems: expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool, $song $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(10, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) GUISetState(@SW_SHOW) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $pos = _SoundPos($Media, 2) $length = _SoundLength($Media, 2) GUICtrlSetData($Progress1, ($pos/$length)*100) $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $File=FileOpenDialog("Media files", @ScriptDir, "(*.mp3; *.wma; *.wav)") $title = _GetExtProperty($File,10) $artist = _GetExtProperty($File,16) $time = _GetExtProperty($File,21) GUICtrlSetData($list, $artist &" - " & $title & " " & $time & " " & $song) $Media=_SoundOpen($File) $mid = $File while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($Scegli, $sk) Case $nMsg = $Play _SoundPlay($Media) SoundSetWaveVolume(100) _GUICreateSmallPlay('Some Title', 'Some Artist', 'Music Play :'&GUICtrlRead($Scegli)) Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") EndSelect WEnd Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 7, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 7, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc ;=============================================================================== ; Function Name: GetExtProperty($sPath,$iProp) ; Description: Returns an extended property of a given file. ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from. ; $iProp - The numerical value for the property you want returned. If $iProp is is set ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order. ; The properties are as follows: ; Name = 0 ; Size = 1 ; Type = 2 ; DateModified = 3 ; DateCreated = 4 ; DateAccessed = 5 ; Attributes = 6 ; Status = 7 ; Owner = 8 ; Author = 9 ; Title = 10 ; Subject = 11 ; Category = 12 ; Pages = 13 ; Comments = 14 ; Copyright = 15 ; Artist = 16 ; AlbumTitle = 17 ; Year = 18 ; TrackNumber = 19 ; Genre = 20 ; Duration = 21 ; BitRate = 22 ; Protected = 23 ; CameraModel = 24 ; DatePictureTaken = 25 ; Dimensions = 26 ; Width = 27 ; Height = 28 ; Company = 30 ; Description = 31 ; FileVersion = 32 ; ProductName = 33 ; ProductVersion = 34 ; Requirement(s): File specified in $spath must exist. ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties ; On Failure - 0, @Error - 1 (If file does not exist) ; Author(s): Simucal (Simucal@gmail.com) ; Note(s): ; ;=============================================================================== Func _GetExtProperty($sPath, $iProp) Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty $iExist = FileExists($sPath) If $iExist = 0 Then SetError(1) Return "No file loaded" Else $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1)) $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1))) $oShellApp = ObjCreate ("shell.application") $oDir = $oShellApp.NameSpace ($sDir) $oFile = $oDir.Parsename ($sFile) If $iProp = -1 Then Local $aProperty[35] For $i = 0 To 34 $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i) Next Return $aProperty Else $sProperty = $oDir.GetDetailsOf ($oFile, $iProp) If $sProperty = "" Then Return "None" Else Return $sProperty EndIf EndIf EndIf EndFunc ;==>_GetExtProperty Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 (edited) thanks you very mutchhhh ludocus but probleme it's progress and i want if you select music and you click in play music player stop automatique and music selected play Edited June 18, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 here it is: expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool, $song $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(10, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) GUISetState(@SW_SHOW) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $pos = _SoundPos($Media, 2) $length = _SoundLength($Media, 2) GUICtrlSetData($Progress1, ($pos/$length)*100) $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $File=FileOpenDialog("Media files", '', "(*.mp3; *.wma; *.wav)") $title = _GetExtProperty($File,10) $artist = _GetExtProperty($File,16) $time = _GetExtProperty($File,21) GUICtrlSetData($list, $artist &" - " & $title & " " & $time & " [" & $File) $Media=_SoundOpen($File) $mid = $File while 1 $songstr = stringinstr($mid,"\") if $songstr = 0 then ExitLoop $mid = stringmid($mid,$songstr+1) wend $sk = $mid GUICtrlSetData($Scegli, $sk) Case $nMsg = $Play $listread = GUICtrlRead($list) If $listread<>'' then if _SoundStatus($Media)='playing' then _SoundStop($Media) $songdir = StringSplit($listread, '[', 1) $2 = StringSplit($listread, ' - ',1) $3 = StringSplit($2[2], ' ', 1) $Media = _SoundOpen($songdir[2]) _SoundPlay($Media) EndIf SoundSetWaveVolume(100) _GUICreateSmallPlay($3[1], $2[1], 'Little MP' ) Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") EndSelect WEnd Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 10, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 8, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc ;=============================================================================== ; Function Name: GetExtProperty($sPath,$iProp) ; Description: Returns an extended property of a given file. ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from. ; $iProp - The numerical value for the property you want returned. If $iProp is is set ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order. ; The properties are as follows: ; Name = 0 ; Size = 1 ; Type = 2 ; DateModified = 3 ; DateCreated = 4 ; DateAccessed = 5 ; Attributes = 6 ; Status = 7 ; Owner = 8 ; Author = 9 ; Title = 10 ; Subject = 11 ; Category = 12 ; Pages = 13 ; Comments = 14 ; Copyright = 15 ; Artist = 16 ; AlbumTitle = 17 ; Year = 18 ; TrackNumber = 19 ; Genre = 20 ; Duration = 21 ; BitRate = 22 ; Protected = 23 ; CameraModel = 24 ; DatePictureTaken = 25 ; Dimensions = 26 ; Width = 27 ; Height = 28 ; Company = 30 ; Description = 31 ; FileVersion = 32 ; ProductName = 33 ; ProductVersion = 34 ; Requirement(s): File specified in $spath must exist. ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties ; On Failure - 0, @Error - 1 (If file does not exist) ; Author(s): Simucal (Simucal@gmail.com) ; Note(s): ; ;=============================================================================== Func _GetExtProperty($sPath, $iProp) Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty $iExist = FileExists($sPath) If $iExist = 0 Then SetError(1) Return "No file loaded" Else $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1)) $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1))) $oShellApp = ObjCreate ("shell.application") $oDir = $oShellApp.NameSpace ($sDir) $oFile = $oDir.Parsename ($sFile) If $iProp = -1 Then Local $aProperty[35] For $i = 0 To 34 $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i) Next Return $aProperty Else $sProperty = $oDir.GetDetailsOf ($oFile, $iProp) If $sProperty = "" Then Return "None" Else Return $sProperty EndIf EndIf EndIf EndFunc ;==>_GetExtProperty Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 but progress not work Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 (edited) it does work for me... strange, well I made it better again. Now you can add an intire folder and it loads the folder every time you start up : expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GuiListView.au3> #include <File.au3> $prevsong = '' $playlistFile = @Tempdir&'\little mp playlist.pl' global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool, $song $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(10, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) $o = FileOpen($playlistFile, 0) While 1 $line = FileReadLine($o) if $line = '' then exitloop GUICtrlSetData($List, $line ) WEnd FileClose($o) GUISetState(@SW_SHOW) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $pos = _SoundPos($Media, 2) $length = _SoundLength($Media, 2) GUICtrlSetData($Progress1, ($pos/$length)*100) $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $Path=FileSelectFolder("Choose a directory", '') If $Path <> '' then _AddDir($Path) Case $nMsg = $Play $listread = GUICtrlRead($list) If $listread<>'' then if $listread<>$prevsong then if _SoundStatus($Media)='playing' then _SoundStop($Media) $songdir = StringSplit($listread, '[', 1) $2 = StringSplit($listread, ' - ',1) $3 = StringSplit($2[2], ' ', 1) $Media = _SoundOpen($songdir[2]) _SoundPlay($Media) Else _SoundPlay($Media) EndIf $prevsong=$listread EndIf SoundSetWaveVolume(100) _GUICreateSmallPlay($3[1], $2[1], 'Little MP' ) Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") EndSelect WEnd Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 10, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 8, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Func _AddDir($sPath) $array = _FileListToArray($sPath, "*.mp3") If IsArray($array) Then if FileExists($playlistFile) then FileDelete($playlistFile) _FileCreate($playlistFile) $hwnd = GUICtrlGethandle($List) _GUICtrLListView_DeleteAllItems($hwnd) For $i = 1 To $array[0] TrayTip("Adding files ...","File " & $i & " of " & $array[0],1) $path = $sPath & "\" & $array[$i] $artist1 = _GetExtProperty($path, 16) $title1 = _GetExtProperty($path, 10) $time1 = _GetExtProperty($path, 21) GUICtrlSetData($list, $artist1 &" - " & $title1 & " " & $time1 & " [" & $path) _FileWriteToLine($playlistFile, $i, $artist1 &" - " & $title1 & " " & $time1 & " [" & $path, 1) Next Else MsgBox(32,'Little Media Player',"Error.. Please select a folder") EndIf EndFunc Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc ;=============================================================================== ; Function Name: GetExtProperty($sPath,$iProp) ; Description: Returns an extended property of a given file. ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from. ; $iProp - The numerical value for the property you want returned. If $iProp is is set ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order. ; The properties are as follows: ; Name = 0 ; Size = 1 ; Type = 2 ; DateModified = 3 ; DateCreated = 4 ; DateAccessed = 5 ; Attributes = 6 ; Status = 7 ; Owner = 8 ; Author = 9 ; Title = 10 ; Subject = 11 ; Category = 12 ; Pages = 13 ; Comments = 14 ; Copyright = 15 ; Artist = 16 ; AlbumTitle = 17 ; Year = 18 ; TrackNumber = 19 ; Genre = 20 ; Duration = 21 ; BitRate = 22 ; Protected = 23 ; CameraModel = 24 ; DatePictureTaken = 25 ; Dimensions = 26 ; Width = 27 ; Height = 28 ; Company = 30 ; Description = 31 ; FileVersion = 32 ; ProductName = 33 ; ProductVersion = 34 ; Requirement(s): File specified in $spath must exist. ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties ; On Failure - 0, @Error - 1 (If file does not exist) ; Author(s): Simucal (Simucal@gmail.com) ; Note(s): ; ;=============================================================================== Func _GetExtProperty($sPath, $iProp) Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty $iExist = FileExists($sPath) If $iExist = 0 Then SetError(1) Return "No file loaded" Else $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1)) $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1))) $oShellApp = ObjCreate ("shell.application") $oDir = $oShellApp.NameSpace ($sDir) $oFile = $oDir.Parsename ($sFile) If $iProp = -1 Then Local $aProperty[35] For $i = 0 To 34 $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i) Next Return $aProperty Else $sProperty = $oDir.GetDetailsOf ($oFile, $iProp) If $sProperty = "" Then Return "None" Else Return $sProperty EndIf EndIf EndIf EndFunc ;==>_GetExtProperty Cheers... Edited June 18, 2008 by ludocus Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 and when the end muic then I select another music of the list and I click on "play" its not why Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 (edited) yeeeees goood jooob ludocus you can add button "add" and button "delete" ???? Edited June 18, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 (edited) jeps, did that: Click Right Mouse button on a song to delete it or add a new one expandcollapse popup#include <Sound.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <ProgressConstants.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <GuiListBox.au3> #include <File.au3> $prevsong = '' $playlistFile = @Tempdir&'\little mp playlist.pl' global $pl1 = 0 global $media = 0 Global $Slider_volume, $Casella1, $Casella2, $Durata_ms, $Tempo_ms, $lool, $song $Form1_1 = GUICreate("Little Music Player", 406, 256, 193, 125) GUISetFont(10, 400, 0, "Verdana") $Scegli = GUICtrlCreateInput("File Audio...", 16, 16, 281, 20) $Sfoglia = GUICtrlCreateButton("Parcourir...", 312, 14, 81, 25, 0) $play = GUICtrlCreateButton("Play", 312, 48, 81, 25, 0) $Pausa = GUICtrlCreateButton("Pause", 312, 80, 81, 25, 0) $Stop = GUICtrlCreateButton("Stop", 312, 112, 81, 25, 0) $Tempo2 = GUICtrlCreateLabel("Temp Passé :", 16, 48, 73, 16) $Tempo = GUICtrlCreateInput("", 96, 47, 113, 20) $Label1 = GUICtrlCreateLabel("Volume : - +", 16, 88, 232, 16) $Slider = GUICtrlCreateSlider(64, 112, 185, 25) $Mixer = GUICtrlCreateButton("Mixer", 312, 144, 81, 25, 0) $Label2 = GUICtrlCreateLabel("Little Media Player By H4CK-H-RAF", 80, 182, 186, 16) $Progress1 = GUICtrlCreateProgress(24, 144, 265, 17) $List = GUICtrlCreateList("", 16, 175, 281, 78) _LoadFileToList($playlistFile, $List) $menu = GUICtrlCreateContextMenu($List) $add = GUICtrlCreateMenuItem('Add', $menu) $del = GUICtrlCreateMenuItem('Del', $menu) GUISetState(@SW_SHOW) $Percorso = 0 GUICtrlSetData ($Slider, 80) AdlibEnable("_MyAdlib", 500) While 1 $pos = _SoundPos($Media, 2) $length = _SoundLength($Media, 2) GUICtrlSetData($Progress1, ($pos/$length)*100) $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _SoundClose ($Media) Exit Case $nMsg = $Sfoglia _SoundStop($Media) $Path=FileSelectFolder("Choose a directory", '') If $Path <> '' then _AddDir($Path) Case $nMsg = $Play $listread = GUICtrlRead($list) If $listread<>'' then if $listread<>$prevsong then if _SoundStatus($Media)='playing' then _SoundStop($Media) $songdir = StringSplit($listread, '[', 1) $2 = StringSplit($listread, ' - ',1) $3 = StringSplit($2[2], ' :', 1) $Media = _SoundOpen($songdir[2]) _SoundPlay($Media) Else _SoundPlay($Media) EndIf $prevsong=$listread EndIf SoundSetWaveVolume(100) GUICtrlSetData($Scegli, $3[1]&' - '&$2[1]) _GUICreateSmallPlay($3[1], $2[1], 'Little MP' ) Case $nMsg = $Pausa _SoundPause ($Media) Case $nMsg = $Stop If $Casella1 = 1 Then While $Slider_volume > 0 $Slider_volume = $Slider_volume - 1 SoundSetWaveVolume ($Slider_volume) Sleep (30) WEnd EndIf _SoundStop ($Media) Case $nMsg = $Mixer SoundPlay("C:\Windows\Media\tada.wav") case $nMsg = $add _AddFile() Case $nMsg = $del $i = _GUICtrlListBox_GetCurSel($List) _GUICtrlListBox_DeleteString($List, $i) _FileWriteToLine($playlistFile, $i+1, '', 1) EndSelect WEnd Func _AddFile() $file = FileOpenDialog('Please choose a file to add', '', 'audio files (*.mp3; *.wma; *.wav)') if $file = '' then Return -1 $artist1 = _GetExtProperty($file, 16) $title1 = _GetExtProperty($file, 10) $time1 = _GetExtProperty($file, 21) GUICtrlSetData($list, $artist1 &" - " & $title1 & " :" & $time1 & " [" & $file) _FileWriteToLine($playlistFile, _FileCountLines($playlistFile)+1, $artist1 &" - " & $title1 & " :" & $time1 & " [" & $file, 1) EndFunc Func _LoadFileToList($playlistFile, $List) $o = FileOpen($playlistFile, 0) While 1 $line = FileReadLine($o) if $line = '' then exitloop GUICtrlSetData($List, $line ) WEnd FileClose($o) EndFunc Func _GUICreateSmallPlay($gTitle, $gArtist, $sProgTitle='', $sWidth=100, $sHeight=100, $sLeft = '', $sTop = '', $sStyle='', $sExStyle='', $sBkcolor=0x4DCBE6, $sWait=500) $error = 0 if $sProgTitle = '' then $sProgTitle = "White'nBlue" if $sExStyle = '' then $sExStyle = BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW) if $sStyle = '' then $sStyle = $WS_POPUPWINDOW if $sLeft = '' then $sLeft = @DesktopWidth-100 if $sTop = '' then $sTop = @DesktopHeight-100 $smallPlayGui = GUICreate($gTitle, $sWidth, 0, $sLeft, $sTop, $sStyle, $sExStyle) if @error then $error += @error GUISetBkColor($sBkColor) if @error then $error += @error WinSetTrans($smallPlayGui, '', 200) GUICtrlCreateLabel($gTitle&@CRLF&@CRLF&$gArtist, 0, 30, 100, 70) GUICtrlSetFont(-1, 10, 400, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlCreateLabel($sProgTitle, 0, 0, 100, 10) GUICtrlSetFont(-1, 8, 800, 0, "Verdena") GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() For $i = 1 to $sHeight sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next sleep($sWait) For $i = $sHeight to 1 step -1 sleep(1) WinMove($smallPlayGui, '', $sLeft, $sTop, $sWidth, $i) Next GUIDelete($smallPlayGui) return SetError($error) EndFunc Func _AddDir($sPath) $array = _FileListToArray($sPath, "*.mp3") If IsArray($array) Then if FileExists($playlistFile) then FileDelete($playlistFile) _FileCreate($playlistFile) GUICtrlSetData($List, '') For $i = 1 To $array[0] TrayTip("Adding files ...","File " & $i & " of " & $array[0],1) $path = $sPath & "\" & $array[$i] $artist1 = _GetExtProperty($path, 16) $title1 = _GetExtProperty($path, 10) $time1 = _GetExtProperty($path, 21) GUICtrlSetData($list, $artist1 &" - " & $title1 & " :" & $time1 & " [" & $path) _FileWriteToLine($playlistFile, $i, $artist1 &" - " & $title1 & " :" & $time1 & " [" & $path, 1) Next Else MsgBox(32,'Little Media Player',"Error.. Please select a folder") EndIf EndFunc Func _MyAdlib() $Slider_volume = GUICtrlRead ($Slider) GUICtrlSetData ($Tempo, _SoundPos($Media, 1)) $Durata_ms = _SoundLength ($Media, 2) $Tempo_ms = _SoundPos ($Media, 2) $Percentuale = $Tempo_ms / $Durata_ms * 100 GUICtrlSetData ($Progress1, $lool) SoundSetWaveVolume ($Slider_volume) If $Casella2 = 1 Then If $Tempo_ms = $Durata_ms Then _SoundPlay ($Media) EndIf EndIf EndFunc ;=============================================================================== ; Function Name: GetExtProperty($sPath,$iProp) ; Description: Returns an extended property of a given file. ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from. ; $iProp - The numerical value for the property you want returned. If $iProp is is set ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order. ; The properties are as follows: ; Name = 0 ; Size = 1 ; Type = 2 ; DateModified = 3 ; DateCreated = 4 ; DateAccessed = 5 ; Attributes = 6 ; Status = 7 ; Owner = 8 ; Author = 9 ; Title = 10 ; Subject = 11 ; Category = 12 ; Pages = 13 ; Comments = 14 ; Copyright = 15 ; Artist = 16 ; AlbumTitle = 17 ; Year = 18 ; TrackNumber = 19 ; Genre = 20 ; Duration = 21 ; BitRate = 22 ; Protected = 23 ; CameraModel = 24 ; DatePictureTaken = 25 ; Dimensions = 26 ; Width = 27 ; Height = 28 ; Company = 30 ; Description = 31 ; FileVersion = 32 ; ProductName = 33 ; ProductVersion = 34 ; Requirement(s): File specified in $spath must exist. ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties ; On Failure - 0, @Error - 1 (If file does not exist) ; Author(s): Simucal (Simucal@gmail.com) ; Note(s): ; ;=============================================================================== Func _GetExtProperty($sPath, $iProp) Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty $iExist = FileExists($sPath) If $iExist = 0 Then SetError(1) Return "No file loaded" Else $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1)) $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1))) $oShellApp = ObjCreate ("shell.application") $oDir = $oShellApp.NameSpace ($sDir) $oFile = $oDir.Parsename ($sFile) If $iProp = -1 Then Local $aProperty[35] For $i = 0 To 34 $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i) Next Return $aProperty Else $sProperty = $oDir.GetDetailsOf ($oFile, $iProp) If $sProperty = "" Then Return "None" Else Return $sProperty EndIf EndIf EndIf EndFunc ;==>_GetExtProperty Edited June 18, 2008 by ludocus Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 and pro progress you cant repare? Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 (edited) ...progress works on my computerlook: Edited June 18, 2008 by ludocus Link to comment Share on other sites More sharing options...
ludocus Posted June 18, 2008 Share Posted June 18, 2008 btw edited the script from 2 posts before Link to comment Share on other sites More sharing options...
NewForAutoit Posted June 18, 2008 Author Share Posted June 18, 2008 (edited) i have vista I think that's the problem thankkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk youuuuu very mushhhh "ludocus" youuur are veryyy coool thnx again Edited June 19, 2008 by NewForAutoit Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now