unblockイベントに対応

userデータがないjsonがある？例外対応してtrace出力するように

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1223 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/My Project/AssemblyInfo.vb b/Tween/My Project/AssemblyInfo.vb
index cc497b9..e40cc4e 100644 (file)
--- a/Tween/My Project/AssemblyInfo.vb
+++ b/Tween/My Project/AssemblyInfo.vb
@@ -55,5 +55,5 @@ Imports System.Runtime.InteropServices
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
 <Assembly: AssemblyVersion("0.1.0.0")> 
-<Assembly: AssemblyFileVersion("0.9.7.0")> 
+<Assembly: AssemblyFileVersion("0.9.7.1")> 
 

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 685a994..82ce2f8 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -1559,7 +1559,12 @@ Public Class Twitter
         For Each status As TwitterDataModel.Status In items
             Dim post As PostClass = Nothing
 
-            post = CreatePostsFromStatusData(status)
+            Try
+                post = CreatePostsFromStatusData(status)
+            Catch ex As NullReferenceException
+                TraceOut(ex.Message + Environment.NewLine + content)
+                Return "Invalid Json ?"
+            End Try
 
             If minimumId > post.Id Then minimumId = post.Id
             '二重取得回避
@@ -2930,6 +2935,8 @@ Public Class Twitter
                 evt.Target = eventData.TargetObject.Name
             Case "block"
                 evt.Target = ""
+            Case "unblock"
+                evt.Target = ""
             Case "user_update"
                 evt.Target = ""
             Case Else