Question

我正在使用吊床推特库发布并从Twitter获取好友列表。以前它工作正常。但现在只有request_token部分正在工作。在尝试获取访问令牌和用户ID时，屏幕名称获得“OK”服务器响应。但结果看起来像这样：

Dͻ 0@ as “Ё ＆amp;b ֔8ߑ h9 v r＆lt; {g / XR＆gt; eݻ。＆gt;〜 rH5Z_〜+ KN9）£SU）|！TV6 B2（֚V`！ @4 ？d

我不知道为什么我得到这个...... :(

下面是我的代码

Public Sub GetRequestToken(Consumer_KEY As String, Consumer_Secret_Key As String)
    Dim credentials = New OAuthCredentials
    credentials.Type = OAuthType.RequestToken
    credentials.SignatureMethod = OAuthSignatureMethod.HmacSha1
    credentials.ParameterHandling = OAuthParameterHandling.HttpAuthorizationHeader
    credentials.ConsumerKey = TwitterSettings.ConsumerKey
    credentials.ConsumerSecret = TwitterSettings.ConsumerKeySecret
    credentials.Version = TwitterSettings.OAuthVersion
    credentials.CallbackUrl = "oob"

    Dim client = New RestClient
    client.Authority = "https://api.twitter.com/oauth"
    client.Credentials = credentials
    client.HasElevatedPermissions = True

    Dim request = New RestRequest
    request.Path = "/request_token"

    client.BeginRequest(request, New RestCallback(AddressOf TwitterRequestTokenCompleted))
End Sub

Public Sub TwitterRequestTokenCompleted(request As RestRequest, response As RestResponse, userstate As Object)
    result = Regex.Split(response.Content, "&")
    oauth_token = Regex.Split(result(0), "=")(1)
    oauth_secret_token = Regex.Split(result(1), "=")(1)
    request_url = TwitterSettings.AuthorizeUri + "?oauth_token=" + oauth_token
    case_url = "request"
    Deployment.Current.Dispatcher.BeginInvoke(getresult)
End Sub

解析oob引脚后，我正在请求访问令牌：

Public Sub GetAccessToken(Verifier As String)
    Dim credentials = New OAuthCredentials
    credentials.Type = OAuthType.AccessToken
    credentials.SignatureMethod = OAuthSignatureMethod.HmacSha1
    credentials.ParameterHandling = OAuthParameterHandling.HttpAuthorizationHeader
    credentials.ConsumerKey = TwitterSettings.ConsumerKey
    credentials.ConsumerSecret = TwitterSettings.ConsumerKeySecret
    credentials.Token = oauth_token
    credentials.TokenSecret = oauth_secret_token
    credentials.Verifier = Verifier

    Dim client = New RestClient
    client.Authority = "https://api.twitter.com/oauth"
    client.Credentials = credentials
    client.HasElevatedPermissions = True

    Dim request = New RestRequest
    request.Path = "/access_token"

    client.BeginRequest(request, New RestCallback(AddressOf RequestAccessTokenCompleted))

之前有人面对这个吗？我需要这个尽快...只是混淆了这是怎么发生的。在此先感谢极客;）

WP7，得到了来自twitter的奇怪回应

0 个答案: