svnno****@sourc*****
svnno****@sourc*****
2010年 11月 18日 (木) 22:11:48 JST
Revision: 1082
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1082
Author: f_swallow
Date: 2010-11-18 22:11:48 +0900 (Thu, 18 Nov 2010)
Log Message:
-----------
一度に複数のツイートを公式RTできるようにした。一度に10まで。見直す必要があるかも
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-11-16 17:32:30 UTC (rev 1081)
+++ trunk/Tween/Tween.vb 2010-11-18 13:11:48 UTC (rev 1082)
@@ -1979,7 +1979,9 @@
rslt.status = args.status
Case WORKERTYPE.Retweet
bw.ReportProgress(200)
- ret = tw.PostRetweet(args.ids(0), read)
+ For i As Integer = 0 To args.ids.Count - 1
+ ret = tw.PostRetweet(args.ids(i), read)
+ Next
bw.ReportProgress(300)
Case WORKERTYPE.Follower
bw.ReportProgress(50, My.Resources.UpdateFollowersMenuItem1_ClickText1)
@@ -8214,13 +8216,19 @@
Exit Sub
End If
End If
+ If _curList.SelectedIndices.Count > 10 Then
+ MessageBox.Show("一度にReTweetできるのは10までです")
+ Exit Sub
+ End If
Dim args As New GetWorkerArg
args.ids = New List(Of Long)
args.sIds = New List(Of Long)
args.tName = _curTab.Text
args.type = WORKERTYPE.Retweet
- args.ids.Add(_curPost.Id)
-
+ For Each idx As Integer In _curList.SelectedIndices
+ Dim post As PostClass = GetCurTabPost(idx)
+ If Not post.IsMe Then args.ids.Add(post.Id)
+ Next
RunAsync(args)
End If
End Sub