我终于找到了解决办法。
Dim dict As New Dictionary(Of String, String)
dict.Add("method", "facebook.stream.get")
Utilities.AddOptionalParameter(dict, "viewer_id", userIdToImpersonate)
Utilities.AddList(dict, "source_ids", pageIds)
Dim fbSession As New ConnectSession(ConfigurationManager.AppSettings("Facebook_Key"), ConfigurationManager.AppSettings("Facebook_Secret"))
Dim api As New Facebook.Rest.Api(fbSession)
Dim resp As stream_get_response = api.SendRequest(Of stream_get_response)(dict, True)
我使用Facebook开发者工具包API上的Reflector来解决这个问题。facebook.rest.stream.get方法应该有效,但它抛出了异常,所以我使用了这个基调用。