Changeset 30214

Timestamp:

02/18/09 17:38:01 (4 years ago)

Author:

kiri_feather

Message:

Class要素除去部分修正
終了フラグ修正

Location:

lang/vb2005/Tween/Tween

Files:

• Tween.vb (modified) (1 diff)
• Twitter.vb (modified) (5 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -1173 +1173 @@
 
             _endingFlag = True
-            Twitter.Ending = True
 
             SaveConfigs()

lang/vb2005/Tween/Tween/Twitter.vb

@@ -77 +77 @@
     Private _authKeyDM As String              'DM送信、DM削除で使用
     Private _signed As Boolean
-    Private _endingFlag As Boolean
     Private _infoTwitter As String = ""
     Private _dmCount As Integer
@@ -287 +286 @@
             End If
 
+            If _endingFlag Then Return ""
+
             'リクエストメッセージを作成する
             Dim pageQuery As String
@@ -311 +312 @@
                 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
                 If idx = -1 Then Exit Do
-                retMsg = retMsg.Remove(idx + 3, retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3)
+                Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
+                If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
             Loop
 
@@ -746 +748 @@
                 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
                 If idx = -1 Then Exit Do
-                retMsg = retMsg.Remove(idx + 3, retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3)
+                Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
+                If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
             Loop
 
@@ -1606 +1609 @@
         Set(ByVal value As Integer)
             _nextPages = value
-        End Set
-    End Property
-
-    Public Property Ending() As Boolean
-        Get
-            Return _endingFlag
-        End Get
-        Set(ByVal value As Boolean)
-            _endingFlag = value
         End Set
     End Property