メモ

自作Twitter クライアントは、「s14twi」と言う名前で作ります。

Twitter ID そのままですが・・・

さて、通信部位。

通常のタイムライン読み込みや、ステータスアップデートは、Basic 認証 で可能ですが、

「via s14twi」を出させるには、OAuth プロトコルでステータスアップデートしなければなりません。

そこで、OAuthLib（http://oauthlib.codeplex.com/）を使ってみる事にしました。

このAuth を利用するには、Consumer key とConsumer secret をTwitter から発行して貰わなければなりません。

ココ（http://twitter.com/apps/new）からアプリケーション登録の手続きをするともらえます。

その後、このConsumer key とConsumer secret を実装してAccessToken を取得します。

コレは、OAuthLib でRequestAccessToken を行います。

            PostConsumer = New OAuthLib.Consumer(_Setting.ConsumerKey, _Setting.ConsumerSecret)
            ReqToken = PostConsumer.ObtainUnauthorizedRequestToken(__RequestTokenURL, __AuthorizationRealm)
            Process.Start(Consumer.BuildUserAuthorizationURL(__AuthorizeURL, ReqToken))
　

ココの、処理で、ブラウザにKey が表示されるので、

そのKey を（TempStr がソレ）

AccToken = PostConsumer.RequestAccessToken(TempStr, ReqToken, __AccessTokenURL, __AuthorizationRealm)

この様に関数に渡すとAccessToken が取得できます。

AccessTokenは、TokenSecret と、TokenValue の二つの値で構成されています。

よって、OAuthLib でTwitter と通信するには、

Consumer key

Consumer secret

TokenSecret

TokenValue

この四つの値（String 型）を何処かに保存しておかないと不便です。

（AccessToken を毎回取得するのもめんどくさいし・・・）

なんか、Blog に上手くソースを表示させる手段は無いのだろうか？？？

とりあえず、AccessToken 取得関数

#Region "アクセストークン取得"
    Public Function SetAccTokenKey() As Boolean
        Dim PostConsumer As OAuthLib.Consumer
        Dim ReqToken As OAuthLib.RequestToken

        'Consumer 系の値が設定されているかチェック
        If _Setting.ConsumerKey = "" Or _Setting.ConsumerSecret = "" Then
            Return False
        End If

        Try
            PostConsumer = New OAuthLib.Consumer(_Setting.ConsumerKey, _Setting.ConsumerSecret)
            ReqToken = PostConsumer.ObtainUnauthorizedRequestToken(__RequestTokenURL, __AuthorizationRealm)
            Process.Start(Consumer.BuildUserAuthorizationURL(__AuthorizeURL, ReqToken))
        Catch ex As Exception
            Return False
        End Try

        'Web ページが開かれて、Access Token Key が表示されているはず。
        'InputBox でそのKey を入れてもらい、Setting に保存する。
        Dim TempStr As String = InputBox("Plese Input Access Token Key", "Input Key")
        If TempStr <> "" Then
            Dim AccToken As OAuthLib.AccessToken
            Try
                AccToken = PostConsumer.RequestAccessToken(TempStr, ReqToken, __AccessTokenURL, __AuthorizationRealm)
            Catch ex As Exception
                Return False
            End Try
            _Setting.AccTokenSecret = AccToken.TokenSecret
            _Setting.AccTokenValue = AccToken.TokenValue
        Else
            Return False
        End If
        Return True
    End Function
#End Region

Const 系 とEnum 系

#Region "Const"
    Private Const __Public_Timeline_URL As String = "http://twitter.com/statuses/public_timeline.xml"
    Private Const __Friends_Timeline_URL As String = "http://twitter.com/statuses/friends_timeline.xml"
    Private Const __Replies_URL As String = "http://twitter.com/statuses/replies.xml"
    Private Const __Direct_Messages_URL As String = "http://twitter.com/direct_messages.xml"
    Private Const __Rate_Limit_Status_URL As String = "http://twitter.com/account/rate_limit_status.xml"
    Private Const __Status_Update_URL As String = "http://twitter.com/statuses/update.xml"

    Private Const __RequestTokenURL As String = "http://twitter.com/oauth/request_token"
    Private Const __AccessTokenURL As String = "http://twitter.com/oauth/access_token"
    Private Const __AuthorizeURL As String = "http://twitter.com/oauth/authorize"
    Private Const __AuthorizationRealm As String = "http://twitter.com"

    Private Const __DummyParamName As String = "since_id"
    Private Const __DummyParamValue As String = "your since id"
#End Region

#Region "Enum"
Public Enum enumAuthorizationType As Integer
    AUTH_Unknown = 0
    AUTH_OAuth = 1
    AUTH_Basic = 2
End Enum
Public Enum enumHttpReqMode As Integer
    HTRM_Unknown = 0
    HTRM_GET = 1
    HTRM_POST = 2
End Enum
#End Region

そして、通信本体。

#Region "通信本体"
    Private Function TwitterComm(ByVal _URLStr As String, ByVal _ReqMode As enumHttpReqMode, ByRef _WebResponse As System.Net.HttpWebResponse) As Boolean
        Dim Params() As OAuthLib.Parameter
        ReDim Params(0)
        Params(0) = New OAuthLib.Parameter(__DummyParamName, __DummyParamValue)
        Return TwitterComm(_URLStr, _ReqMode, _WebResponse, Params)
    End Function
    Private Function TwitterComm(ByVal _URLStr As String, ByVal _ReqMode As enumHttpReqMode, ByRef _WebResponse As System.Net.HttpWebResponse, ByVal _Params() As OAuthLib.Parameter) As Boolean
        Dim ReqStr As String
        Dim ReqMessage As String

        '値のチェックもココで
        ReqStr = ""
        ReqMessage = ""
        Select Case _ReqMode
            Case enumHttpReqMode.HTRM_GET
                ReqStr = "GET"
                'OAuth 認証の場合、ココでメッセージを削除
                If _Setting.AuthorizationType = enumAuthorizationType.AUTH_OAuth Then
                    _Params = Nothing
                End If
            Case enumHttpReqMode.HTRM_POST
                ReqStr = "POST"
                'Params が有るかどうか？？？
                If _Params Is Nothing Then
                    Return False
                End If
                If _Params(0).Name = "__DummyParamName" Then    '値がDummy だった場合
                    Return False
                End If

                'Basic 認証の場合、ココでメッセージを作成
                If _Setting.AuthorizationType = enumAuthorizationType.AUTH_Basic Then
                    Dim ii As Integer
                    ReqMessage = ""
                    For ii = 0 To _Params.Length - 1
                        ReqMessage = ReqMessage & _Params(ii).Name & "=" & _Params(ii).Value & "&"
                    Next
                    ReqMessage = ReqMessage.Remove(ReqMessage.Length - 1, 1)
                End If
            Case enumHttpReqMode.HTRM_Unknown
                Return False
            Case Else
                Return False
        End Select

        '認証タイプ
        Select Case _Setting.AuthorizationType
            Case enumAuthorizationType.AUTH_OAuth
                Dim PostConsumer As OAuthLib.Consumer
                Dim AccToken As OAuthLib.AccessToken

                'Consumer 系の値が設定されているかチェック
                If _Setting.ConsumerKey = "" Or _Setting.ConsumerSecret = "" Then
                    Return False
                End If
                '取得したAccessToken が有るかどうかチェック
                If _Setting.AccTokenValue = "" Or _Setting.AccTokenSecret = "" Then
                    Return False
                End If
                PostConsumer = New OAuthLib.Consumer(_Setting.ConsumerKey, _Setting.ConsumerSecret)
                AccToken = New OAuthLib.AccessToken(_Setting.AccTokenValue, _Setting.AccTokenSecret)
                Try
                    _WebResponse = PostConsumer.AccessProtectedResource(AccToken, _URLStr, ReqStr, __AuthorizationRealm, _Params)
                Catch ex As System.Net.WebException
                    'Web 系エラー発生
                    Return False
                Catch ex As Exception
                    'エラー発生
                    Return False
                End Try

            Case enumAuthorizationType.AUTH_Basic
                Dim Request As System.Net.WebRequest
                Try
                    Request = System.Net.HttpWebRequest.Create(_URLStr)
                    Request.ContentType = "application/x-www-form-urlencoded"
                    Request.Headers.Add("Authorization: Basic " & Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(_Setting.UserID & ":" & _Setting.Password)))
                    Request.Method = ReqStr

                    'Twitterのサーバーが「100-Continue 」ヘッダをサポートしていないので、これを設定しないと「417」ステータスコードが返ってくるらしい
                    System.Net.ServicePointManager.Expect100Continue = False
                    If _ReqMode = enumHttpReqMode.HTRM_GET Then
                        _WebResponse = Request.GetResponse
                    ElseIf _ReqMode = enumHttpReqMode.HTRM_POST Then
                        Dim PostStream As System.IO.Stream
                        Dim PostBytes() As Byte
                        PostBytes = System.Text.Encoding.ASCII.GetBytes(Uri.EscapeUriString(ReqMessage))
                        Request.ContentLength = PostBytes.Length
                        PostStream = Request.GetRequestStream
                        PostStream.Write(PostBytes, 0, PostBytes.Length)
                        _WebResponse = Request.GetResponse
                    End If
                Catch ex As System.Net.WebException
                    'Web 系エラー発生
                    Return False
                Catch ex As Exception
                    'エラー発生
                    Return False
                End Try
            Case enumAuthorizationType.AUTH_Unknown
                Return False
            Case Else
                Return False
        End Select

        '最後にWebResponse の確認
        If _WebResponse.StatusCode = Net.HttpStatusCode.OK Then
            Return True
        End If
        Return False
    End Function
#End Region

また変更が有ったらUP してみます。