各位神人们，关于新浪微博开放平台API的使用求教，我用Excel的VBA功能输入代码如下：
Sub http()
Dim http
Dim url$
Dim canshu$
Set http = CreateObject("microsoft.xmlhttp")
url = "https://api.weibo.com/2/statuses/friends_timeline.json"
canshu = "source=XXX&count=25"
url = url & "?" & canshu

With http
.Open "get", url, False
.send
Data = .responsetext
End With
Set abc = CreateObject("scripting.filesystemobject")
Set ntxt = abc.opentextfile("d:\n.txt", 8, True)
ntxt.writeline Data        '数据写入文本文档"d:\n.txt"
ntxt.Close
Set abc = Nothing

End Sub
但是返回的结果是下面这样的，而且我用的就是创建应用的账号
{"error":"applications over the unaudited use restrictions!","error_code":21321,"request":"/2/statuses/public_timeline.json"}
{"error":"auth by Null spi!","error_code":21301,"request":"/2/statuses/friends_timeline.json"}

有人知道这是怎么回事？应该怎么解决吗？拜谢拜谢