Na klar, kein Problem. Ich kenne mich mir Excel VBA aber nicht aus also schreib ich das Beispiel in AutoIt, die Befehle kannst du ja übernehmen.
Code
#include <IE.au3>
Do
ProcessClose("iexplore.exe")
$oIE = _IECreate("https://www.youtube.com/watch?v=ZZcsacWaD0w")
Until IsObj($oIE)
$oIE.document.parentwindow.execScript("var mp = document.getElementById(""movie_player"");")
$oIE.document.parentwindow.execScript("var save = document.getElementsByClassName(""ytp-time-current"")[0]; save.innerText = """";")
$oIE.document.parentwindow.execScript( _
"var playbackRates = mp.getAvailablePlaybackRates();" & _
"for (i = 0; i < playbackRates.length; i++)" & _
"{" & _
" save.innerText += playbackRates[i] + "", """ & _
"}" _
)
$oSpans = _IETagNameGetCollection($oIE, "span")
For $oSpan In $oSpans
If $oSpan.ClassName = "ytp-time-current" Then
ConsoleWrite("Playback Rates = " & $oSpan.innerText & @CRLF)
ConsoleWrite("Setting Playback Rate to 1.25X" & @CRLF)
$oIE.document.parentWindow.execScript("mp.setPlaybackRate(1.25);")
EndIf
Next
Alles anzeigen