Schieberegler youtubevideo
22.06.2019 01:13:25
stef26
ich hätte da nochmal eine Frage.
Vielleicht ist ja der Zwenn zufällig im Forum...
Ich habe hier einen Code der die Länge eines Youtube Videos ausliest:
Sub YouTubeSpielZeitHolen()
Dim browser As Object
Dim url As String
Dim knotenWurzel As Object
Dim splitArray() As String
Dim spielZeit As String
'Beliebige YouTube URL auf ein Video
url = "https://www.youtube.com/watch?v=c_x4Ta3B8uI"
'Internet Explorer initialisieren, Sichtbarkeit festlegen,
'URL aufrufen und warten bis Seite vollständig geladen wurde
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.Navigate url
Do Until browser.ReadyState = 4: DoEvents: Loop
'Zeitstempel aus dem YouTubePlayer auslesen
'Das entsprechende div-Tag verwendet als einziges die Klasse "ytp-progress-bar "
'Dann folgen einige Attribute, von denen wir den Wert von aria-valuetext brauchen
'