Criar PLaylist em WMPlayer via VBA

2024 - VBA & Macros

Post Recente por tonyvaz 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,171 Visualizações

RSS

tonyvaz

(@tonyvaz)

Posts: 4

New Member

Topic starter

Estou precisando que o Windows Media Player seja aberto fora do Excel e que toque 3 arquivos, sendo a sequência:
1) arquivoentrada
2) novoarquivo
3) arquivosaida

Quando rodo via Shell

Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & arquivoentrada & ""), vbNormalNoFocus
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & novoarquivo & ""), vbNormalNoFocus
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & arquivosaida & ""), vbNormalNoFocus

sempre só vai aparecer o último arquivo e não resolve o meu caso.

Pelo que entendi, tenho que fazer uma playlist com estes 3 arquivos primeiramente, para depois rodar o WMPlayer

O problema tá ai, pois o códigos que achei na internet mais próximo com algumas pequenas adaptações que fiz, não funcionou.

Gostaria da ajuda para saber como consigo, lembrando que sempre o novoarquivo.mp4 vais ser modificado e essa lista tem que ser atualizada para rodar o novo arquivo.

Sub listaWMPlayer()

Dim Xwmp As IWMPMedia
Dim WindowsMediaPlayer1 As WindowsMediaPlayer
     
Set WindowsMediaPlayer1 = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")

WindowsMediaPlayer1.currentPlaylist.Clear
     
Set Xwmp = WindowsMediaPlayer1.newMedia("C:graficosarquivoentrada.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 0, Xwmp
  
Set Xwmp = WindowsMediaPlayer1.newMedia("C:graficosnovoarquivo.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, Xwmp

Set Xwmp = WindowsMediaPlayer1.newMedia("C:surfcoreReplaygraficosreplaysaida.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 2, Xwmp

WindowsMediaPlayer1.Controls.Play
   
End Sub

Tony

Postado : 24/12/2015 4:57 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Se entendi; experimente criando uma playlist com extensão .m3u ( http://gurudoexcel.com/forum/viewtopic.php?f=12&t=1103 )

Sub listaWMPlayer()
'Altere aqui o caminho onde seu arquivo playlist estará
Caminho = ThisWorkbook.Path & Application.PathSeparator
'Altere aqui o nome de sua plalist
Arquivo = "mList.m3u"
Open Caminho & Arquivo For Output As #1

Cpo0 = "#EXTM3U" & vbCrLf

Cpo1 = "#EXTINF:0, arquivoentrada.mp4" & vbCrLf
Cpo2 = "C:graficosarquivoentrada.mp4" & vbCrLf
Cpo3 = "#EXTINF:0, novoarquivo.mp4" & vbCrLf
Cpo4 = "C:graficosnovoarquivo.mp4" & vbCrLf
Cpo5 = "#EXTINF:0, replaysaida.mp4" & vbCrLf
Cpo6 = "C:surfcoreReplaygraficosreplaysaida.mp4"
        
Dados = Cpo0 & Cpo1 & Cpo2 & Cpo3 & Cpo4 & Cpo5 & Cpo6
        
Print #1, Dados
        
Close #1
'Aqui o caminho de seu mplayer
Shell ("C:Program Files (x86)Windows Media Playerwmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
'Shell ("C:Arquivos de programasWindows Media Playerwmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/12/2015 9:16 am