AddressOf GetApiCallback)
End Function
- Public Function Favorites(ByVal count As Integer, ByRef content As String) As HttpStatusCode
+ Public Function Favorites(ByVal count As Integer, ByVal page As Integer, ByRef content As String) As HttpStatusCode
Dim param As New Dictionary(Of String, String)
If count <> 20 Then param.Add("count", count.ToString())
+ If page > 0 Then
+ param.Add("page", page.ToString())
+ End If
+
param.Add("include_entities", "true")
Return httpCon.GetContent(GetMethod, _
==== Ver 1.1.0.0(2011/**/**)
* NEW: 詳細表示のSource部分を右クリックしたときにSource、URLをコピーできるように
+ * CHG: Favタブでの「前データの取得」を機能するように
* FIX: 関連発言取得の際に、ツイートに含まれるツイートのURLを読み込まなくなっていたバグを修正
==== Ver 1.0.9.0(2011/9/29)
* FIX: アカウントの再認証時に、認証後情報が反映されないバグ修正
End Try
Case WORKERTYPE.Favorites
bw.ReportProgress(50, MakeStatusMessage(args, False))
- ret = tw.GetFavoritesApi(read, args.type)
+ ret = tw.GetFavoritesApi(read, args.type, args.page = -1)
rslt.addCount = _statuses.DistributePosts()
Case WORKERTYPE.PublicSearch
bw.ReportProgress(50, MakeStatusMessage(args, False))
End If
End If
End If
- If _statuses.Tabs(ListTab.SelectedTab.Text).TabType <> TabUsageType.Favorites Then
- RefreshMoreStripMenuItem.Enabled = True
- Else
- RefreshMoreStripMenuItem.Enabled = False
- End If
+ 'If _statuses.Tabs(ListTab.SelectedTab.Text).TabType <> TabUsageType.Favorites Then
+ ' RefreshMoreStripMenuItem.Enabled = True
+ 'Else
+ ' RefreshMoreStripMenuItem.Enabled = False
+ 'End If
If _statuses.Tabs(ListTab.SelectedTab.Text).TabType = TabUsageType.PublicSearch _
OrElse Not Me.ExistCurrentPost _
OrElse Not _curPost.InReplyToStatusId > 0 Then
Case TabUsageType.DirectMessage
GetTimeline(WORKERTYPE.DirectMessegeRcv, -1, 0, "")
Case TabUsageType.Favorites
- ' GetTimeline(WORKERTYPE.Favorites, -1, 0, "")
+ GetTimeline(WORKERTYPE.Favorites, -1, 0, "")
Case TabUsageType.Profile
'' TODO
Case TabUsageType.PublicSearch
Return CreateDirectMessagesFromJson(content, gType, read)
End Function
- Public Function GetFavoritesApi(ByVal read As Boolean, _
- ByVal gType As WORKERTYPE) As String
+ Public Function GetFavoritesApi(ByVal read As Boolean,
+ ByVal gType As WORKERTYPE,
+ ByVal more As Boolean) As String
+
+ Static page As Integer = 1
If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
AppendSettingDialog.Instance.FavoritesCountApi <> 0 Then
count = AppendSettingDialog.Instance.FavoritesCountApi
End If
+
+ ' 前ページ取得の場合はページカウンタをインクリメント、それ以外の場合はページカウンタリセット
+ If more Then
+ page += 1
+ Else
+ page = 1
+ End If
+
Try
- res = twCon.Favorites(count, content)
+ res = twCon.Favorites(count, page, content)
Catch ex As Exception
Return "Err:" + ex.Message + "(" + GetCurrentMethod.Name + ")"
End Try