• R/O
  • HTTP
  • SSH
  • HTTPS

提交

標籤
無標籤

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqt誰得windowscocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

OpenTweenのfork


Commit MetaInfo

修訂1e430d545dc24ddbed7488f8776ca1c6117e58fa (tree)
時間2012-02-18 23:19:56
作者kiri_feather <kiri_feather@user...>
CommiterKimura Youichi

Log Message

Post失敗が多そうだったので、GA通信をPost後に移動(関係あるか分からない

Change Summary

差異

--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1949,7 +1949,7 @@ Public Class TweenMain
19491949 e.Cancel = True
19501950 Me.Visible = False
19511951 Else
1952- Google.GASender.GetInstance().TrackEventWithCategory("post", "end", tw.UserId)
1952+ 'Google.GASender.GetInstance().TrackEventWithCategory("post", "end", tw.UserId)
19531953 _hookGlobalHotkey.UnregisterAllOriginalHotkey()
19541954 _ignoreConfigSave = True
19551955 _endingFlag = True
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -415,8 +415,6 @@ Public Class Twitter
415415 Return SendDirectMessage(postStr)
416416 End If
417417
418- Google.GASender.GetInstance().TrackEventWithCategory("post", "status", Me.UserId)
419-
420418 Dim res As HttpStatusCode
421419 Dim content As String = ""
422420 Try
@@ -427,6 +425,7 @@ Public Class Twitter
427425
428426 Select Case res
429427 Case HttpStatusCode.OK
428+ Google.GASender.GetInstance().TrackEventWithCategory("post", "status", Me.UserId)
430429 Twitter.AccountState = ACCOUNT_STATE.Valid
431430 Dim status As TwitterDataModel.Status
432431 Try
@@ -497,8 +496,6 @@ Public Class Twitter
497496
498497 postStr = postStr.Trim()
499498
500- Google.GASender.GetInstance().TrackEventWithCategory("post", "status_with_media", Me.UserId)
501-
502499 Dim res As HttpStatusCode
503500 Dim content As String = ""
504501 Try
@@ -509,6 +506,7 @@ Public Class Twitter
509506
510507 Select Case res
511508 Case HttpStatusCode.OK
509+ Google.GASender.GetInstance().TrackEventWithCategory("post", "status_with_media", Me.UserId)
512510 Twitter.AccountState = ACCOUNT_STATE.Valid
513511 Dim status As TwitterDataModel.Status
514512 Try
@@ -578,8 +576,6 @@ Public Class Twitter
578576 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
579577 If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
580578
581- Google.GASender.GetInstance().TrackEventWithCategory("post", "direct_message", Me.UserId)
582-
583579 postStr = postStr.Trim()
584580
585581 Dim res As HttpStatusCode
@@ -595,6 +591,7 @@ Public Class Twitter
595591
596592 Select Case res
597593 Case HttpStatusCode.OK
594+ Google.GASender.GetInstance().TrackEventWithCategory("post", "direct_message", Me.UserId)
598595 Twitter.AccountState = ACCOUNT_STATE.Valid
599596 Dim status As TwitterDataModel.Directmessage
600597 Try
@@ -657,7 +654,6 @@ Public Class Twitter
657654
658655 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
659656
660- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy", Me.UserId)
661657 Dim res As HttpStatusCode
662658
663659 Try
@@ -668,6 +664,7 @@ Public Class Twitter
668664
669665 Select Case res
670666 Case HttpStatusCode.OK
667+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy", Me.UserId)
671668 Twitter.AccountState = ACCOUNT_STATE.Valid
672669 Return ""
673670 Case HttpStatusCode.Unauthorized
@@ -695,7 +692,6 @@ Public Class Twitter
695692 target = TabInformations.GetInstance.Item(id).RetweetedId '再RTの場合は元発言をRT
696693 End If
697694
698- Google.GASender.GetInstance().TrackEventWithCategory("post", "retweet", Me.UserId)
699695 Dim res As HttpStatusCode
700696 Dim content As String = ""
701697 Try
@@ -713,6 +709,7 @@ Public Class Twitter
713709 Return "Err:" + res.ToString() + "(" + GetCurrentMethod.Name + ")"
714710 End Select
715711
712+ Google.GASender.GetInstance().TrackEventWithCategory("post", "retweet", Me.UserId)
716713 Twitter.AccountState = ACCOUNT_STATE.Valid
717714
718715 Dim status As TwitterDataModel.Status
@@ -755,7 +752,6 @@ Public Class Twitter
755752 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
756753 If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
757754
758- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_direct_message", Me.UserId)
759755 Dim res As HttpStatusCode
760756
761757 'If post.IsMe Then
@@ -769,6 +765,7 @@ Public Class Twitter
769765
770766 Select Case res
771767 Case HttpStatusCode.OK
768+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_direct_message", Me.UserId)
772769 Twitter.AccountState = ACCOUNT_STATE.Valid
773770 Return ""
774771 Case HttpStatusCode.Unauthorized
@@ -787,7 +784,6 @@ Public Class Twitter
787784
788785 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
789786
790- Google.GASender.GetInstance().TrackEventWithCategory("post", "follow", Me.UserId)
791787 Dim res As HttpStatusCode
792788 Dim content As String = ""
793789
@@ -799,6 +795,7 @@ Public Class Twitter
799795
800796 Select Case res
801797 Case HttpStatusCode.OK
798+ Google.GASender.GetInstance().TrackEventWithCategory("post", "follow", Me.UserId)
802799 Twitter.AccountState = ACCOUNT_STATE.Valid
803800 Return ""
804801 Case HttpStatusCode.Unauthorized
@@ -822,7 +819,6 @@ Public Class Twitter
822819
823820 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
824821
825- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_friendships", Me.UserId)
826822 Dim res As HttpStatusCode
827823 Dim content As String = ""
828824
@@ -834,6 +830,7 @@ Public Class Twitter
834830
835831 Select Case res
836832 Case HttpStatusCode.OK
833+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_friendships", Me.UserId)
837834 Twitter.AccountState = ACCOUNT_STATE.Valid
838835 Return ""
839836 Case HttpStatusCode.Unauthorized
@@ -857,7 +854,6 @@ Public Class Twitter
857854
858855 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
859856
860- Google.GASender.GetInstance().TrackEventWithCategory("post", "block", Me.UserId)
861857 Dim res As HttpStatusCode
862858 Dim content As String = ""
863859
@@ -869,6 +865,7 @@ Public Class Twitter
869865
870866 Select Case res
871867 Case HttpStatusCode.OK
868+ Google.GASender.GetInstance().TrackEventWithCategory("post", "block", Me.UserId)
872869 Twitter.AccountState = ACCOUNT_STATE.Valid
873870 Return ""
874871 Case HttpStatusCode.Unauthorized
@@ -892,7 +889,6 @@ Public Class Twitter
892889
893890 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
894891
895- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_block", Me.UserId)
896892 Dim res As HttpStatusCode
897893 Dim content As String = ""
898894
@@ -904,6 +900,7 @@ Public Class Twitter
904900
905901 Select Case res
906902 Case HttpStatusCode.OK
903+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_block", Me.UserId)
907904 Twitter.AccountState = ACCOUNT_STATE.Valid
908905 Return ""
909906 Case HttpStatusCode.Unauthorized
@@ -927,7 +924,6 @@ Public Class Twitter
927924
928925 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
929926
930- Google.GASender.GetInstance().TrackEventWithCategory("post", "spam", Me.UserId)
931927 Dim res As HttpStatusCode
932928 Dim content As String = ""
933929
@@ -939,6 +935,7 @@ Public Class Twitter
939935
940936 Select Case res
941937 Case HttpStatusCode.OK
938+ Google.GASender.GetInstance().TrackEventWithCategory("post", "spam", Me.UserId)
942939 Twitter.AccountState = ACCOUNT_STATE.Valid
943940 Return ""
944941 Case HttpStatusCode.Unauthorized
@@ -1100,7 +1097,6 @@ Public Class Twitter
11001097
11011098 'If Me.favQueue.Contains(id) Then Me.favQueue.Remove(id)
11021099
1103- Google.GASender.GetInstance().TrackEventWithCategory("post", "favorites", Me.UserId)
11041100 Dim res As HttpStatusCode
11051101 Dim content As String = ""
11061102 Try
@@ -1113,6 +1109,7 @@ Public Class Twitter
11131109
11141110 Select Case res
11151111 Case HttpStatusCode.OK
1112+ Google.GASender.GetInstance().TrackEventWithCategory("post", "favorites", Me.UserId)
11161113 Twitter.AccountState = ACCOUNT_STATE.Valid
11171114 'Me.favQueue.FavoriteCacheStart()
11181115 If Not _restrictFavCheck Then Return ""
@@ -1188,7 +1185,6 @@ Public Class Twitter
11881185 ' Return ""
11891186 'End If
11901187
1191- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_favorites", Me.UserId)
11921188 Dim res As HttpStatusCode
11931189 Dim content As String = ""
11941190 Try
@@ -1199,6 +1195,7 @@ Public Class Twitter
11991195
12001196 Select Case res
12011197 Case HttpStatusCode.OK
1198+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_favorites", Me.UserId)
12021199 Twitter.AccountState = ACCOUNT_STATE.Valid
12031200 Return ""
12041201 Case HttpStatusCode.Unauthorized
@@ -1221,7 +1218,6 @@ Public Class Twitter
12211218
12221219 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
12231220
1224- Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile", Me.UserId)
12251221 Dim res As HttpStatusCode
12261222 Dim content As String = ""
12271223 Try
@@ -1232,6 +1228,7 @@ Public Class Twitter
12321228
12331229 Select Case res
12341230 Case HttpStatusCode.OK
1231+ Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile", Me.UserId)
12351232 Twitter.AccountState = ACCOUNT_STATE.Valid
12361233 Return ""
12371234 Case HttpStatusCode.Unauthorized
@@ -1254,7 +1251,6 @@ Public Class Twitter
12541251
12551252 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
12561253
1257- Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile_image", Me.UserId)
12581254 Dim res As HttpStatusCode
12591255 Dim content As String = ""
12601256 Try
@@ -1265,6 +1261,7 @@ Public Class Twitter
12651261
12661262 Select Case res
12671263 Case HttpStatusCode.OK
1264+ Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile_image", Me.UserId)
12681265 Twitter.AccountState = ACCOUNT_STATE.Valid
12691266 Return ""
12701267 Case HttpStatusCode.Unauthorized
@@ -2769,7 +2766,6 @@ Public Class Twitter
27692766 Dim res As HttpStatusCode
27702767 Dim content As String = ""
27712768
2772- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_list", Me.UserId)
27732769 Try
27742770 res = twCon.DeleteListID(Me.Username, list_id, content)
27752771 Catch ex As Exception
@@ -2778,6 +2774,7 @@ Public Class Twitter
27782774
27792775 Select Case res
27802776 Case HttpStatusCode.OK
2777+ Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_list", Me.UserId)
27812778 Twitter.AccountState = ACCOUNT_STATE.Valid
27822779 Case HttpStatusCode.Unauthorized
27832780 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2792,7 +2789,6 @@ Public Class Twitter
27922789 End Function
27932790
27942791 Public Function EditList(ByVal list_id As String, ByVal new_name As String, ByVal isPrivate As Boolean, ByVal description As String, ByRef list As ListElement) As String
2795- Google.GASender.GetInstance().TrackEventWithCategory("get", "update_list", Me.UserId)
27962792 Dim res As HttpStatusCode
27972793 Dim content As String = ""
27982794
@@ -2804,6 +2800,7 @@ Public Class Twitter
28042800
28052801 Select Case res
28062802 Case HttpStatusCode.OK
2803+ Google.GASender.GetInstance().TrackEventWithCategory("get", "update_list", Me.UserId)
28072804 Twitter.AccountState = ACCOUNT_STATE.Valid
28082805 Case HttpStatusCode.Unauthorized
28092806 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2886,7 +2883,6 @@ Public Class Twitter
28862883 Public Function CreateListApi(ByVal listName As String, ByVal isPrivate As Boolean, ByVal description As String) As String
28872884 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
28882885
2889- Google.GASender.GetInstance().TrackEventWithCategory("post", "create_list", Me.UserId)
28902886 Dim res As HttpStatusCode
28912887 Dim content As String = ""
28922888
@@ -2898,6 +2894,7 @@ Public Class Twitter
28982894
28992895 Select Case res
29002896 Case HttpStatusCode.OK
2897+ Google.GASender.GetInstance().TrackEventWithCategory("post", "create_list", Me.UserId)
29012898 Twitter.AccountState = ACCOUNT_STATE.Valid
29022899 Case HttpStatusCode.Unauthorized
29032900 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2964,7 +2961,6 @@ Public Class Twitter
29642961 Dim content As String = ""
29652962 Dim res As HttpStatusCode
29662963
2967- Google.GASender.GetInstance().TrackEventWithCategory("post", "add_user_to_list", Me.UserId)
29682964 Try
29692965 res = twCon.CreateListMembers(listId, user, content)
29702966 Catch ex As Exception
@@ -2973,6 +2969,7 @@ Public Class Twitter
29732969
29742970 Select Case res
29752971 Case HttpStatusCode.OK
2972+ Google.GASender.GetInstance().TrackEventWithCategory("post", "add_user_to_list", Me.UserId)
29762973 Twitter.AccountState = ACCOUNT_STATE.Valid
29772974 Case HttpStatusCode.Unauthorized
29782975 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2987,7 +2984,6 @@ Public Class Twitter
29872984 End Function
29882985
29892986 Public Function RemoveUserToList(ByVal listId As String, ByVal user As String) As String
2990- Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_user_from_list", Me.UserId)
29912987
29922988 Dim content As String = ""
29932989 Dim res As HttpStatusCode
@@ -3000,6 +2996,7 @@ Public Class Twitter
30002996
30012997 Select Case res
30022998 Case HttpStatusCode.OK
2999+ Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_user_from_list", Me.UserId)
30033000 Twitter.AccountState = ACCOUNT_STATE.Valid
30043001 Case HttpStatusCode.Unauthorized
30053002 Twitter.AccountState = ACCOUNT_STATE.Invalid