1

ウェブサイトにツイッター投稿を実装しようとしています。ユーザーがアラートを投稿し、「twitter に送信」をチェックしたときに、ボックスの内容 (140 文字) を関連する Twitter アカウントに送信したいと考えています。だから私は次のことをしました：

  • ツイッターに新しいアプリを登録しました
  • すべてのトークン/キーを取得しました
  • 次のライブラリをセットアップします: http://scottdesapio.com
  • 指示に従ってすべてのパラメーターを変更しました

ただし、送信しようとするたびに、「OAuth で認証できませんでした」というエラーが表示されます。私はこれをすべて一度に行おうとしているので、Twitter からトークンを取得するのではなく、リクエストに oauth_token と oauth_token_secret の両方を入力しますが、それでも何もしません。従来の ASP でこのようなことを成功させた人はいますか?

コード：

Dim objOAuth : Set objOAuth = New cLibOAuth
objOAuth.ConsumerKey = twitter_consumer_key
objOAuth.ConsumerSecret = twitter_consumer_secret
objOAuth.EndPoint = "http://twitter.com/statuses/update.json"
objOAuth.Host = "api.twitter.com"
objOAuth.RequestMethod = "POST"
objOAuth.UserAgent = "Alert System Updater" 

objOAuth.Parameters.Add "oauth_token", twitter_oauth_token
objOAuth.Parameters.Add "oauth_token_secret", twitter_oauth_secret
objOAuth.Parameters.Add "status", tstatus
objOAuth.Send()

Dim strResponseText : strResponseText = objOAuth.ResponseText
Dim strErrorCode : strErrorCode = objOAuth.ErrorCode

If Not IsNull(strErrorCode) Then
    Response.Status = RESPONSE_STATUS_500
    Response.Write strErrorCode
Else
    Response.ContentType = "text/html"
    Response.CharSet = "utf-8"
    Response.Write strResponseText
End If
4

0 に答える 0