Sub
Youtube_Vue_Anzahl()
Dim
accessToken, antwort
As
String
Dim
start
As
Long
Dim
ende
As
Long
Dim
anwort
As
String
Dim
temp
As
String
accessToken =
"???"
graphURL = graphURL &
"?access_token="
& accessToken
Dim
objHttp
As
Object
Set
objHttp = CreateObject(
"MSXML2.ServerXMLHTTP"
)
Call
objHttp.Open(
"GET"
, graphURL,
False
)
Call
objHttp.Send
antwort = objHttp.ResponseText
If
InStr(1, antwort,
"watch-view-count"
, vbTextCompare) > 0
Then
temp = Split(antwort,
"watch-view-count"
)(1)
temp = Split(temp,
"Aufrufe"
)(0)
Ergebnis2 = Trim(Replace(temp, Chr(34) &
">"
,
""
))
End
If
start = InStr(1, antwort,
"(wie "
, vbTextCompare) + 5
ende = InStr(1, antwort,
"andere auch)"
, vbTextCompare)
Ergebnis3 =
CLng
(Trim(Mid(antwort, start, ende - start)))
End
Sub