2014年7月5日土曜日

CoreTweetでストリームに流れてくるミュートの情報

 str = TwitterCore.Streaming.StartStream(Streaming.StreamingType.User, _
                                           New Streaming.StreamingParameters( _
                                                CType(Function(replies) "all",  _
                                               Expressions.Expression(Of Func(Of String, Object)))))
        Await Task.Run(Sub()
                           For Each message As Streaming.StreamingMessage In str
                               If TypeOf message Is Streaming.StatusMessage Then
                                   Dim sm As Streaming.StatusMessage = TryCast(message, Streaming.StatusMessage)
                                   If Not sm.Status.IsMuting Then
        'タイムラインに追加させるコード
       End If
                               ElseIf TypeOf message Is Streaming.EventMessage Then
                                   Dim ev = TryCast(message, Streaming.EventMessage)
                                   Debug.WriteLine(String.Format("{0}:{1}->{2}", ev.[Event], ev.Source.ScreenName, ev.Target.ScreenName))
                               End If
                           Next
                       End Sub)
上のようなコードを書いてみましたが、ミュートにしていないツイートもタイムラインに追加されなかったのです。 何故だろう…と思って、タイムラインに追加するコードの前のIfから、Notをとっても、全く追加されませんでした。よって、ストリームから流れるIsMutingはbool?なので、Nothingになっていましたorz こんなことで、1時間も時間を奪われないように(笑)

0 件のコメント:

コメントを投稿