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時間も時間を奪われないように(笑)
2014年7月5日土曜日
CoreTweetでストリームに流れてくるミュートの情報
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿