Este fórum está sendo desativado

[tonyvaz]

http://profwillianexcel.forumeiros.com/ ... a-vba#4321

Estou precisando executar uma playlist criada no WMPlayer fora do Excel

O problema tá ai, pois os códigos que achei na internet mais próximo com algumas pequenas adaptações que fiz, criou a Playlist, mas não executa o WMPlayer com essa playlist.

Sub listaWMPlayer()

Set WindowsMediaPlayer1 = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
WindowsMediaPlayer1.currentPlaylist = WindowsMediaPlayer1.playlistCollection.newPlaylist("MinhaLista")
WindowsMediaPlayer1.currentPlaylist.Clear
WindowsMediaPlayer1.currentPlaylist.insertItem 0, WindowsMediaPlayer1.newMedia("C:\graficos\arquivoentrada.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, WindowsMediaPlayer1.newMedia("C:\graficos\novoarquivo.mp4")
WindowsMediaPlayer1.currentPlaylist.insertItem 2, WindowsMediaPlayer1.newMedia("C:\graficos\replaysaida.mp4")
WindowsMediaPlayer1.Controls.Play
End Sub

Tony

[Reinaldo]

Se entendi; experimente criando uma playlist com extensão .m3u (http://www.planilhando.com.br/forum/vie ... 104#p94104)

Código: Selecionar todos

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:\graficos\arquivoentrada.mp4" & vbCrLf
Cpo3 = "#EXTINF:0, novoarquivo.mp4" & vbCrLf
Cpo4 = "C:\graficos\novoarquivo.mp4" & vbCrLf
Cpo5 = "#EXTINF:0, replaysaida.mp4" & vbCrLf
Cpo6 = "C:\surfcore\Replay\graficos\replaysaida.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 Player\wmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
'Shell ("C:\Arquivos de programas\Windows Media Player\wmplayer.exe " & "" & Caminho & Arquivo & ""), vbNormalNoFocus
End Sub

[tonyvaz]

Resolvido dessa forma.

Obrigado

[tonyvaz]

Eu gero esta Playlist a cada 20 minutos com arquivos de vídeos curtos que variam de 4 a 8 arquivos com tempo total de 30 segundos a 1 minuto
Mais 2 perguntas:
1) Tem a possibilidade de definir um arquivo de áudio independente enquanto rodar os vídeos?
2) Tem como definir legenda para cada arquivo de vídeo que eu colocar nessa playlist?

[Reinaldo]

Não entendi.
"Definir um audio independente", o que vem a ser isso??
Legendas podem ser arquivos "tipo texto"; normalmente com extensão srt; que se estiverem no mesmo diretorio do video, devem ser executadas pelo player, como não utilizo o wmplayer não sei se o mesmo as reconce

[Reinaldo]

Legendas são, normalmente, arquivos estruturados com informação de tempo e dizeres, que utilizam basicamente a extensão .srt, que recebem o mesmo nome do arquivo de vídeo (só altera extensão) e se salvas no mesmo diretorio do arquivo de vídeo, são executadas/carregadas automaticamente pelos players.

O que entende por "um video independente"