svnno****@sourc*****
svnno****@sourc*****
2010年 11月 29日 (月) 10:44:59 JST
Revision: 1124
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1124
Author: syo68k
Date: 2010-11-29 10:44:59 +0900 (Mon, 29 Nov 2010)
Log Message:
-----------
イベント認識部追加
Modified Paths:
--------------
branches/UserStream/Tween/Twitter.vb
-------------- next part --------------
Modified: branches/UserStream/Tween/Twitter.vb
===================================================================
--- branches/UserStream/Tween/Twitter.vb 2010-11-27 14:16:36 UTC (rev 1123)
+++ branches/UserStream/Tween/Twitter.vb 2010-11-29 01:44:59 UTC (rev 1124)
@@ -2829,7 +2829,10 @@
Private EventNameTable() As String = { _
"favorite", _
- "unfavorite"
+ "unfavorite", _
+ "follow", _
+ "list_member_added", _
+ "list_member_removed"
}
Private Sub UserStreamLoop()
@@ -2874,8 +2877,14 @@
Debug.Print("Event:favorite")
Case 1 ' unfavorite
Debug.Print("Event:unfavorite")
+ Case 2 ' follow
+ Debug.Print("Event:follow")
+ Case 3 ' list_member_added
+ Debug.Print("Event:list_member_added")
+ Case 4 ' list_member_removed
+ Debug.Print("Event:list_member_removed")
Case Else ' その他イベント
- TraceOut("Unknown Event" + Environment.NewLine + line)
+ TraceOut("Unknown Event:" + data.event + Environment.NewLine + line)
End Select
Continue Do
End If