对于使用YouTube API的HTTP POST请求，请求主体中包含哪些内容

Question

我找到了一个关于如何进行HTTP POST请求的答案，我只是不知道如何使用YouTube API语法

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")]

现在是播放列表的语法。插入YouTube API POST请求：

POST https://www.googleapis.com/youtube/v3/playlistItems?part=snippet&key=[YOUR_API_KEY] HTTP/1.1
Authorization: Bearer [YOUR_ACCESS_TOKEN] Accept: application/json Content-Type: application/json
{ "snippet": { "playlistId": "PLO0tYa-h6I_9xJlanhquO8F-rZe6sA0kd", "position": 0, "resourceId": { "kind": "youtube#video", "videoId": "M7FIvfx5J10" } } }

错误和VBA代码

VBA代码参考表

谷歌开发者的例子。我只需要在Excel VBA 中完成此操作

我有auth密钥、videoid和playlistid，那么如何将其放入Excel VBA HTTP POST请求的请求体中呢？

Answer 1

试试这个：

Dim json as String
json = "{""snippet"":{""playlistId"":""PLO0tYa-h6I_9xJlanhquO8F-rZe6sA0kd"",""position"":0,""resourceId"":{""kind"":""youtube#video"",""videoId"": ""M7FIvfx5J10""}}}"
Dim URL as String
URL = "https://www.googleapis.com/youtube/v3/playlistItems?part=snippet&key=[YOUR_API_KEY]"
Dim objHTTP as Object
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
With objHTTP
.Open "POST", URL, False
'don't think this is needed
'.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.setRequestHeader "Authorization","Bearer [YOUR_ACCESS_TOKEN]"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Content-Type", "application/json"
.send json
Do: DoEvents: Loop Until: .readyStatus = 4 'check my syntax here, i may have mis-remembered exact method names.
Dim x as String
x = .responsetext
End WIth
debug.print x