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 件のコメント:
コメントを投稿