1
Я пытаюсь получить скрипт vbs, чтобы запросить URL-адрес видео с YouTube и воспроизвести аудио. У меня это до сих порИзвлечение или воспроизведение звука youtube с Vbscript
Option Explicit
Dim Msg,Question,PathSound,URL
URL = InputBox("What url would you like to play from?")
PathSound = "URL"
Question = MsgBox(Msg,VbQuestion+VbYesNo,Msg)
If Question = VbYes Then
Call Play(PathSound)
Else
Wscript.Quit()
End If
'**********************************************************
Sub Play(SoundFile)
Dim Sound
Set Sound = CreateObject("WMPlayer.OCX")
Sound.URL = SoundFile
Sound.settings.volume = 100
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep(int(Sound.currentmedia.duration)+1)*1000
End Sub
'**********************************************************
если я поставить в новый адрес он будет играть различные видео. –
@AlienVilliger дайте мне этот новый адрес, чтобы испытать с вами – Hackoo
https://www.youtube.com/watch?v=y8Kyi0WNg40 –