Changeset 25819

Timestamp:

12/04/08 10:03:39 (5 weeks ago)

Author:

kiri_feather

Message:

0170リリース。HTML構造変更対応

Location:

lang/vb2005/Tween/Tween

Files:

• My Project/AssemblyInfo.vb (modified) (1 diff)
• Resources/ChangeLog.txt (modified) (1 diff)
• Twitter.vb (modified) (5 diffs)

lang/vb2005/Tween/Tween/My Project/AssemblyInfo.vb

@@ -55 +55 @@
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.1.6.0")> 
-<Assembly: AssemblyFileVersion("0.1.6.0")> 
+<Assembly: AssemblyVersion("0.1.7.0")> 
+<Assembly: AssemblyFileVersion("0.1.7.0")> 
 

lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

@@ -1 +1 @@
 更新履歴
 
-***Ver0.1.6.1(Unreleased)
+***Ver0.1.7.0(2008/12/04)
 -コマンド回避ロジックを調整
 -ブラウザなどから選択文字列やリンクをドラッグ＆ドロップした場合に、入力欄へ入力するようにした。
 -バルーンを表示する際にユーザー名を表示するオプションの設定を見るようにした。
 -最小化で起動した場合に起動できない問題とそれに関連する不具合修正
+-TwitterのHTML変更対応
 ***Ver0.1.6.0(2008/11/28)
 -詳細発言表示部分からの右クリック検索をローカライズ対応可能にした。その他メニュー項目の見直しを行った。

lang/vb2005/Tween/Tween/Twitter.vb

@@ -250 +250 @@
             strSepTmp = _splitPost
         End If
+        ''''''''''''''''''''''''''''''
+        strSepTmp = "<tr class=""hentry status"
+        '''''''''''''''''''''''''''''''
         pos1 = retMsg.IndexOf(strSepTmp)
         If pos1 = -1 Then
@@ -313 +316 @@
                 Try
                     'Get ID
-                    pos1 = 0
-                    pos2 = strPost.IndexOf(_statusIdTo, 0)
-                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(0, pos2))
+                    'pos1 = 0
+                    pos1 = strPost.IndexOf("id=""status_", 0)
+                    pos2 = strPost.IndexOf(_statusIdTo, pos1 + 11)
+
+                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(pos1 + 11, pos2 - pos1 - 11))
                 Catch ex As Exception
                     _signed = False
@@ -671 +676 @@
 
         '各メッセージに分割可能か？
+        _splitDM = "<tr class=""hentry direct_message"
         pos1 = retMsg.IndexOf(_splitDM)
         If pos1 = -1 Then
@@ -695 +701 @@
                 'Get ID
                 Try
-                    pos1 = 0
-                    pos2 = strPost.IndexOf("""", 0)
-                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(0, pos2))
+                    'pos1 = 0
+                    pos1 = strPost.IndexOf("id=""direct_message_", 0)
+                    pos2 = strPost.IndexOf("""", pos1 + 19)
+                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(pos1 + 19, pos2 - pos1 - 19))
                 Catch ex As Exception
                     _signed = False
@@ -1167 +1174 @@
 
     Public Sub GetWedata()
+        Exit Sub
         Dim resStatus As String = ""
         Dim resMsg As String = ""