Twitterクライアントを作るときに使えるCoreTweetという.NETのライブラリをVBで使ってみました。

このライブラリは、ツイートはもちろんストリーミングもできるというすぐれものです。これはdllファイルなので.NETで使えるライブラリなのですがどのサイトを見てもC#でしか使っておらず、VBで使っているという記事がなかったので今回記事にすることにしました。

• OAuth認証

        Dim s = OAuth.Authorize("{consumer_key}", "{consumer_secret}")
        System.Diagnostics.Process.Start(s.AuthorizeUri.AbsoluteUri)
        Console.WriteLine("access : {0}" & vbCrLf, s.AuthorizeUri)
        Console.WriteLine("PINCODE please...")

        Dim pin As String = Console.ReadLine()
        Dim tokens As Tokens

        tokens = OAuth.GetTokens(s, pin)

• ツイート

tokens.Statuses.Update(New With {.status = "ツイート内容"})

• TL取得(UserStream)

  Dim stream = tokens.Streaming.StartStream _
                          (CoreTweet.Streaming.StreamingType.User, _
                          New StreamingParameters(Function(replies) "all"))

   For Each message In stream

         If TypeOf message Is StatusMessage Then
             Dim status = TryCast(message, StatusMessage).Status
             Console.WriteLine(String.Format("{0}:" & vbCrLf & "{1}", _
                         status.User.ScreenName, status.Text) & vbCrLf)

         ElseIf TypeOf message Is EventMessage Then
             Dim ev = TryCast(message, EventMessage)
             Console.WriteLine(String.Format("{0}:" & vbCrLf & "{1}->{2}",_
                          ev.Event, ev.Source.ScreenName, ev.Target.ScreenName) & vbCrLf)
         End If
   Next

C#のサンプルコードを見て自分で変換していったのでなんか汚いですねｗ

ライブラリ特有の型などについてはCoreTweetのwikiをどうぞ