Changeset 17930

Timestamp:

08/20/08 17:17:46 (5 years ago)

Author:

syo68k

Message:

in_reply_to_status_idに関わる処理の見直し。フラグの戻し忘れ修正、in_reply_to_status_idを使う条件判定の追加。

Files:

• lang/vb2005/Tween/Tween/Tween.vb (modified) (13 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -53 +53 @@
     Private UrlDialog As New OpenURL
     Private Const _replyHtml As String = "@<a target=""_self"" href=""https://twitter.com/"
-    Private _reply_to As Integer         ' リプライ先のステータスID 0の場合はリプライではない 注：複数あてのものはリプライではない
+    Private _reply_to_id As Integer     ' リプライ先のステータスID 0の場合はリプライではない 注：複数あてのものはリプライではない
+    Private _reply_to_name As String    ' リプライ先ステータスの書き込み者の名前
 
     Friend Class Win32Api
@@ -176 +177 @@
         _history.Add("")
         _hisIdx = 0
-        _reply_to = 0
+        _reply_to_id = 0
+        _reply_to_name = Nothing
 
         '<<<<<<<<<設定関連>>>>>>>>>
@@ -1414 +1416 @@
         Dim args As GetWorkerArg = CType(e.Argument, GetWorkerArg)
         Try
+            If args.type = WORKERTYPE.PostMessage Then CheckReplyTo(args.status)
             For i As Integer = 0 To 1
                 Select Case args.type
@@ -1425 +1428 @@
                         ret = clsTw.GetDirectMessage(tlList, args.page, args.endPage, Twitter.GetTypes.GET_DMSNT, TIconList.Images.Keys, imgs)
                     Case WORKERTYPE.PostMessage
-                        ret = clsTw.PostStatus(args.status, _reply_to)
+                        ret = clsTw.PostStatus(args.status, _reply_to_id)
                     Case WORKERTYPE.FavAdd
                         ret = clsTw.PostFavAdd(args.ids(args.page))
@@ -1431 +1434 @@
                         ret = clsTw.PostFavRemove(args.ids(args.page))
                 End Select
+                If args.type = WORKERTYPE.PostMessage Then
+                    _reply_to_id = 0
+                    _reply_to_name = Nothing
+                End If
                 If ret = "" Or (ret <> "" And (args.type = WORKERTYPE.PostMessage Or args.type = WORKERTYPE.FavAdd Or args.type = WORKERTYPE.FavRemove)) Then Exit For
                 Threading.Thread.Sleep(500)
@@ -5061 +5068 @@
                     StatusText.SelectionStart = StatusText.Text.Length
                     StatusText.Focus()
-                    _reply_to = 0
+                    _reply_to_id = 0
+                    _reply_to_name = Nothing
                     Exit Sub
                 End If
@@ -5067 +5075 @@
                     ' ステータステキストが入力されていない場合先頭に@ユーザー名を追加する
                     StatusText.Text = "@" + MyList.SelectedItems(0).SubItems(4).Text + " "
-                    _reply_to = MyList.SelectedItems(0).SubItems(5).Text
+                    _reply_to_id = MyList.SelectedItems(0).SubItems(5).Text
+                    _reply_to_name = MyList.SelectedItems(0).SubItems(4).Text
                 Else
                     If isAuto Then
@@ -5075 +5084 @@
                                 ' 複数リプライ
                                 StatusText.Text = StatusText.Text.Insert(2, "@" + MyList.SelectedItems(0).SubItems(4).Text + " ")
-                                _reply_to = 0
+                                _reply_to_id = 0
+                                _reply_to_name = Nothing
                             Else
                                 ' 単独リプライ
                                 StatusText.Text = "@" + MyList.SelectedItems(0).SubItems(4).Text + " " + StatusText.Text
-                                _reply_to = MyList.SelectedItems(0).SubItems(5).Text
+                                _reply_to_id = MyList.SelectedItems(0).SubItems(5).Text
+                                _reply_to_name = MyList.SelectedItems(0).SubItems(4).Text
                             End If
                         Else
                             ' 複数リプライ
                             StatusText.Text = ". @" + MyList.SelectedItems(0).SubItems(4).Text + " " + StatusText.Text
-                            _reply_to = 0
+                            _reply_to_id = 0
+                            _reply_to_name = Nothing
                         End If
                     Else
@@ -5101 +5113 @@
                         StatusText.SelectionStart = sidx
                         StatusText.Focus()
-                        _reply_to = 0
+                        _reply_to_id = 0
+                        _reply_to_name = Nothing
                         Exit Sub
                     End If
                 End If
             Else
+                ' 複数リプライ
                 If isAuto = False And isReply = False Then Exit Sub
 
@@ -5374 +5388 @@
         Try
             '            For i As Integer = 0 To 2
-            Select Case args.type
-                Case WORKERTYPE.PostMessage
-                    ret = clsTwPost.PostStatus(args.status, _reply_to)
-            End Select
-            '            If ret.StartsWith("Err:") = False Then Exit For
-            '           Threading.Thread.Sleep(500)
-            '            Next
-
+            CheckReplyTo(args.status)
+
+            ret = clsTwPost.PostStatus(args.status, _reply_to_id)
+
+            _reply_to_id = 0
+            _reply_to_name = Nothing
             rslt.retMsg = ret
             rslt.TLine = Nothing
@@ -5779 +5791 @@
     End Sub
     Friend Sub SetMainWindowTitle()
+        'メインウインドウタイトルの書き換え
+
         If SettingDialog.DispUsername = True Then
             'ユーザー名表示あり
@@ -5798 +5812 @@
     End Sub
     Friend Sub SetNotifyIconText()
+        ' タスクトレイアイコンのツールチップテキスト書き換え
+
         If SettingDialog.DispUsername = True Then
             NotifyIcon1.Text = _username + " - Tween"
@@ -5803 +5819 @@
             NotifyIcon1.Text = "Tween"
         End If
+    End Sub
+    Friend Sub CheckReplyTo(ByVal StatusText As String)
+        ' 本当にリプライ先指定すべきかどうかの判定
+        Dim id As New Regex("@[a-zA-Z0-9_]+")
+        Dim m As MatchCollection
+
+        If _reply_to_id = 0 Then Exit Sub
+
+        If _reply_to_name = Nothing Then
+            _reply_to_id = 0
+            Exit Sub
+        End If
+
+        m = id.Matches(StatusText)
+
+        If m.Count = 1 And m.Item(0).Value = "@" + _reply_to_name Then
+            Exit Sub
+        End If
+
+        _reply_to_id = 0
+        _reply_to_name = Nothing
+
     End Sub
 End Class