Bonjour,
La récupération de ces informations ne peut se faire que lorsque l'état de lecture est à "Transitioning" :
Essayez quelque chose comme :
While WindowsMediaPlayer1.playState <> 9 '9 étant l'état transitioning
Application.DoEvents
End While
Voir ici :
http://msdn.microsoft.com/fr-fr/library/dd564085%28v=vs.85%29.aspx
Ou encore cette manière :
Function ObtenirInfos()
Dim resultat As String
Dim WMPMedia As WMPLib.IWMPMedia = WindowsMediaPlayer1.currentMedia
'pour chaque attribut
For i As Integer = 0 To WMPMedia.attributeCount - 1
If WMPMedia.getItemInfo(WMPMedia.getAttributeName(i)) <> "" Then
'on liste les attributs et leurs infos
resultat = resultat & WMPMedia.getAttributeName(i) & " : " & WMPMedia.getItemInfo(WMPMedia.getAttributeName(i)) & vbCrLf
End If
Next
Return resultat
End Function
N'hésitez pas à poser des questions si un problème subsiste ou quelque chose n'est pas clair. Dans l'autre cas, veuillez indiquer que le problème est résolu. Cordialement.