0

私はhammock twitter libraryを使って投稿し、Twitterから友達リストを取得しています。以前は正常に動作していました。しかし、今は request_token の部分だけが機能しています。アクセス トークンとユーザー ID を取得しようとしているときに、スクリーン ネームが「OK」サーバー応答を取得しています。しかし、結果は次のようになります。

� �Dͻ�0@�as�"Ё��&b������Ƨ��8��h9�v�r<{g�/�XR>�e��.>~�rH�5�Z� �_�~�+Kn9��)��£�sU��)��������|�TV6!�B��2(����V`�!��@4�� � ��?日</p>

なぜこれを取得しているのかわかりません.. :(

以下は私のコードです

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

PIN を解析した後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))

誰かが前にこれに直面しましたか?私はこれができるだけ早く必要です..これが突然起こった方法を混乱させました。よろしくお願いします。

4

0 に答える 0