Page 1 sur 1
ObjCreate("WMPlayer.OCX.7") playlist ?
Posté : mer. 08 janv. 2020 20:39
par Mickdu59
Coucou
je reviens encore une fois vers vous car je voudrais savoir si avec WMPLAYER.OCX
je peux lire plusieurs fichiers en playlist ?
je me sert de ça mais c est piste par piste
With $oRP; Object tag pool .fullScreen = True .windowlessVideo = True .stretchToFit = True .URL = $url .enableContextMenu = True .enabled = True .Controls.currentPosition = 0; move to location in movie;~ .Controls.Play / pause and Stop .uiMode = "Full"; none / mini full .settings.autostart = True .settings.mute = False .settings.volume = 100; 0 - 100 .settings.Balance = 0; -100 to 100 .Controls.durationEndWith
Re: ObjCreate("WMPlayer.OCX.7") playlist ?
Posté : jeu. 09 janv. 2020 14:05
par walkson
Bonjour,
ça serait sympa de mettre du code complet !...
Pour lire une playlist avec possibilité d'avancer ou de reculer dans la lecture
HotKeySet("a","suivant")HotKeySet("z","precedent")$wmp = ObjCreate("wmplayer.OCX")$wmp.settings.autoStart = True$wmp.settings.volume = 50$wmp.URL = @UserProfileDir & "\Music\ListMusique.m3u"ConsoleWrite("Nom de la playliste " & $wmp.currentPlaylist.Name & @CR)ConsoleWrite("Nombre de morceaux " & $wmp.currentPlaylist.count & @CR)Sleep(1000)For $i = 0 To $wmp.currentMedia.attributeCount - 1 ConsoleWrite($wmp.currentMedia.getAttributeName($i) & " : " & $wmp.currentMedia.getItemInfo($wmp.currentMedia.getAttributeName($i)) & @CR)NextGlobal $nbItem = $wmp.currentPlaylist.countPauseAndResume
()While $wmp.Playstate <> 1 Sleep(100)WEndFunc PauseAndResume
() Sleep(20000) $wmp.controls.pause() ConsoleWrite("Paused" & @CRLF) Sleep(5000) $wmp.controls.play() ConsoleWrite("Playing" & @CRLF) Sleep(5000) $wmp.controls.stop() ConsoleWrite("Stopped" & @CRLF)EndFuncFunc suivant
() $wmp.Controls.Next $Cible = $wmp.Controls.currentItem.Name If $Cible = "ListMusique" Then $wmp.Controls.playItem($wmp.currentPlaylist.Item(0));si $cible est le nom de la playliste "ListMusique", on revient à l'item 0 $Cible = $wmp.Controls.currentItem.Name For $i = 0 To $nbItem - 1 If $Cible = $wmp.currentPlaylist.item($i).Name Then ExitLoop Next ConsoleWrite($wmp.currentPlaylist.item($i).Name &" >> "& $i + 1 &"/"& $nbItem & @CR)EndFuncFunc precedent
() $wmp.Controls.Previous $Cible = $wmp.Controls.currentItem.Name For $i = 0 To $nbItem - 1 If $Cible = $wmp.currentPlaylist.item($i).Name Then ExitLoop Next ConsoleWrite($wmp.currentMedia.getItemInfo("title") &" >> "& $i + 1 &"/"& $nbItem & @CR)EndFunc
Plus d'info à
https://silkyroad.developpez.com/VBA/Wi ... diaPlayer/ C'est en VBA mais c'est facilement convertible en Autoit