WINDOWSMEDIAPLAYER

 Tópico anterior Próximo tópico Novo tópico

WINDOWSMEDIAPLAYER

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#493240 - 26/03/2020 13:32:25

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


    Boa tarde, a todos!

Como faria para carregar minha WindowsMediaPlayer com o vídeo do youtube?

  Private Sub Play()

WindowsMediaPlayer1.URL = txtVideo
WindowsMediaPlayer1.Controls.Play

End Sub


Alguém poderia me ajudar?






#493241 - 26/03/2020 14:15:29

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Última edição em 26/03/2020 14:16:39 por FABRICIOWEB

Dim VideoAddr As String
    VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
    WindowsMediaPlayer1.URL = VideoAddr




#493242 - 26/03/2020 15:00:51

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Dim VideoAddr As String
    VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
    WindowsMediaPlayer1.URL = VideoAddr



não deu erro, mais não carrega a WindowsMediaPlayer1



#493243 - 26/03/2020 16:30:48

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


acho que a forma mais facil para vc é criar uma ddl no vb net para usar no vb6



#493244 - 26/03/2020 16:54:52

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Dim VideoAddr As String
    VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
    WindowsMediaPlayer1.URL = VideoAddr



  oi, FABRICIOWEB! Tudo bem?

   vejá só se eu uso este código abaixo ele da certo, porém eu não queria ter o vídeo no meu computador, queria que ele pegasse o caminho do youtube,
   não estou conseguindo

       Dim VideoAddr As String

    CommonDialog1.FileName = ""
    CommonDialog1.Filter = "Todos os Arquivos (*.*)|*.*|"
    CommonDialog1.ShowOpen
    VideoAddr = CommonDialog1.FileName
    WindowsMediaPlayer1.URL = VideoAddr


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  também se uso um WebBrowser.Navigate, ele também dá certo, porém ele abre uma pagina da internet, e ai pede para baixar clone...
  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

     OBS: só precisaria que o WindowsMediaPlayer.URL = carregasse o caminho do youtube

exemplo:::   WindowsMediaPlayer.URL = https://www.youtube.com/watch?v=Q6A0D_KUShE








#493245 - 26/03/2020 17:10:56

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
:
Dim VideoAddr As String
    VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
    WindowsMediaPlayer1.URL = VideoAddr



  oi, FABRICIOWEB! Tudo bem?

   vejá só se eu uso este código abaixo ele da certo, porém eu não queria ter o vídeo no meu computador, queria que ele pegasse o caminho do youtube,
   não estou conseguindo

       Dim VideoAddr As String

    CommonDialog1.FileName = ""
    CommonDialog1.Filter = "Todos os Arquivos (*.*)|*.*|"
    CommonDialog1.ShowOpen
    VideoAddr = CommonDialog1.FileName
    WindowsMediaPlayer1.URL = VideoAddr


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  também se uso um WebBrowser.Navigate, ele também dá certo, porém ele abre uma pagina da internet, e ai pede para baixar clone...
  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

     OBS: só precisaria que o WindowsMediaPlayer.URL = carregasse o caminho do youtube

exemplo:::   WindowsMediaPlayer.URL = https://www.youtube.com/watch?v=Q6A0D_KUShE







tente usar o componente vlc



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário