• 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

修訂4c406a1e4a8f84b0a4deba83d970a476e8a41fbe (tree)
時間2012-02-22 19:46:14
作者Kimura Youichi <kim.upsilon@bucy...>
CommiterKimura Youichi

Log Message

Remove all the code for Google Analytics

Change Summary

差異

--- a/Tween/AppendSettingDialog.vb
+++ b/Tween/AppendSettingDialog.vb
@@ -224,8 +224,6 @@ Public Class AppendSettingDialog
224224 tw.VerifyCredentials()
225225 u.UserId = tw.UserId
226226 End If
227- Google.GASender.GetInstance.SessionFirst = u.GAFirst
228- Google.GASender.GetInstance.SessionLast = u.GALast
229227 Exit For
230228 End If
231229 Next
@@ -519,8 +517,6 @@ Public Class AppendSettingDialog
519517 For Each u In Me.UserAccounts
520518 If u.UserId = Me.InitialUserId Then
521519 tw.Initialize(u.Token, u.TokenSecret, u.Username, u.UserId)
522- Google.GASender.GetInstance.SessionFirst = u.GAFirst
523- Google.GASender.GetInstance.SessionLast = u.GALast
524520 userSet = True
525521 Exit For
526522 End If
--- a/Tween/Google.vb
+++ b/Tween/Google.vb
@@ -298,190 +298,4 @@ Public Class Google
298298 End Class
299299
300300 #End Region
301-
302-#Region "Google Analytics"
303- Public Class GASender
304- Inherits HttpConnection
305-
306- Private Const GA_ACCOUNT As String = "UA-4618605-5"
307- Private Const GA_DOMAIN_HASH As String = "211246021" ' この hash を あとで みつける
308- Private Const GA_HOSTNAME As String = "apps.tweenapp.org"
309- Private Const GA_VERSION As String = "5.1.5"
310- Private Const GA_CHARACTER_SET As String = "shift_jis"
311-
312- '#define GA_COLOR_DEPTH @"24-bit" // とれるなら かんきょう から
313- Private Const GA_JAVA_ENABLED As String = "1"
314- Private Const GA_FLASH_VERSION As String = "10.0 r32" '"10.1 r102"をURLエンコード
315- Private Const GA_PAGE_TITLE As String = "Tween"
316- Private Const GA_GIF_URL As String = "http://www.google-analytics.com/__utm.gif"
317-
318- Private UnixEpoch As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Unspecified)
319- Private Shared rnd As New Random
320-
321- Private _language As String
322- Private _screenResolution As String
323- Private _screenColorDepth As String
324- Private _sessionCount As Integer
325-
326- Public Property SessionFirst As Long
327- Public Property SessionLast As Long
328-
329- Public Event Sent()
330-
331- 'Singleton
332- Private Shared _me As New GASender
333- Public Shared Function GetInstance() As GASender
334- Return _me
335- End Function
336-
337- Private Sub New()
338- Me._language = System.Globalization.CultureInfo.CurrentCulture.Name.Replace("_"c, "-"c)
339- 'Me._language = System.Globalization.CultureInfo.CurrentCulture.TwoLetterISOLanguageName
340- Me._screenResolution = String.Format("{0}x{1}",
341- System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width,
342- System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height)
343- Me._screenColorDepth = String.Format("{0}-bit",
344- System.Windows.Forms.Screen.PrimaryScreen.BitsPerPixel)
345- Dim proc As ThreadStart
346- proc = Sub()
347- Threading.Thread.CurrentThread.Priority = ThreadPriority.Lowest
348- While Not _endingFlag
349- If Me.gaQueue.Count > 0 Then
350- Dim param As Dictionary(Of String, String)
351- SyncLock Me.syncObj
352- param = Me.gaQueue.Dequeue()
353- End SyncLock
354- Try
355- Dim req As HttpWebRequest = CreateRequest(GetMethod, New Uri(GA_GIF_URL), param, False)
356- req.AllowAutoRedirect = True
357- req.Accept = "*/*"
358- req.Referer = "http://apps.tweenapp.org/foo.html"
359- req.Headers.Add("Accept-Language", "ja-JP")
360- req.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E; MALC)"
361- req.Headers.Add("Accept-Encoding", "gzip, deflate")
362- Dim img As Bitmap = Nothing
363- Dim res = Me.GetResponse(req, img, Nothing, False)
364- Catch ex As Exception
365- 'nothing to do
366- End Try
367- End If
368- Thread.Sleep(5000)
369- End While
370- End Sub
371- proc.BeginInvoke(Nothing, Nothing)
372- End Sub
373-
374- Private Sub Init()
375- Me._sessionFirst =
376- Convert.ToInt64(
377- (DateTime.Now - UnixEpoch).TotalSeconds)
378- Me._sessionLast = Me._sessionFirst
379- End Sub
380-
381- Private Sub SendRequest(ByVal info As Dictionary(Of String, String), ByVal userId As Long)
382- If userId = 0 Then Exit Sub
383- If Me._SessionFirst = 0 Then Me.Init()
384-
385- Me._sessionCount += 1
386- Dim sessionCurrent As Long =
387- Convert.ToInt64(
388- (DateTime.UtcNow - UnixEpoch).TotalSeconds)
389- Dim utma As String =
390- String.Format("{0}.{1}.{2}.{3}.{4}.{5}",
391- GA_DOMAIN_HASH,
392- userId,
393- Me._SessionFirst,
394- Me._SessionLast,
395- sessionCurrent,
396- Me._sessionCount)
397- Dim utmz As String =
398- String.Format("{0}.{1}.{2}.{3}.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)",
399- GA_DOMAIN_HASH,
400- Me._SessionFirst,
401- 1,
402- 1)
403- 'Dim utmcc = String.Format("__utma={0};+__utmz={1};",
404- ' utma,
405- ' utmz)
406- Dim utmcc = String.Format("__utma={0};",
407- utma)
408- Me._SessionLast = sessionCurrent
409-
410- Dim params As New Dictionary(Of String, String) From {
411- {"utmwv", GA_VERSION},
412- {"utms", "1"},
413- {"utmn", rnd.Next().ToString()},
414- {"utmhn", GA_HOSTNAME},
415- {"utmcs", GA_CHARACTER_SET},
416- {"utmsr", Me._screenResolution},
417- {"utmsc", Me._screenColorDepth},
418- {"utmul", Me._language},
419- {"utmje", GA_JAVA_ENABLED},
420- {"utmfl", GA_FLASH_VERSION},
421- {"utmhid", rnd.Next().ToString()},
422- {"utmr", "-"},
423- {"utmp", "/"},
424- {"utmac", GA_ACCOUNT},
425- {"utmcc", utmcc},
426- {"utmu", "q~"}
427- }
428- ' {"utmdt", GA_PAGE_TITLE},
429-
430- If info.ContainsKey("page") Then
431- params("utmp") = info("page")
432- If info.ContainsKey("referer") Then
433- params("utmr") = info("referer")
434- End If
435- End If
436- If info.ContainsKey("event") Then
437- params.Add("utmt", "event")
438- params.Add("utme", info("event"))
439- params("utmr") = "0"
440- End If
441-
442- 'Me.GetAsync(params, New Uri(GA_GIF_URL))
443- SyncLock syncObj
444- Me.gaQueue.Enqueue(params)
445- End SyncLock
446- End Sub
447-
448- Private syncObj As New Object
449- Private gaQueue As New Queue(Of Dictionary(Of String, String))
450-
451- Public Sub TrackPage(ByVal page As String, ByVal userId As Long)
452- Me.SendRequest(New Dictionary(Of String, String) From {{"page", page}}, userId)
453- End Sub
454-
455- Public Sub TrackEventWithCategory(ByVal category As String,
456- ByVal action As String,
457- ByVal userId As Long)
458- Me.TrackEventWithCategory(category, action, Nothing, Nothing, userId)
459- End Sub
460-
461- Public Sub TrackEventWithCategory(ByVal category As String,
462- ByVal action As String,
463- ByVal label As String,
464- ByVal userId As Long)
465- Me.TrackEventWithCategory(category, action, label, Nothing, userId)
466- End Sub
467-
468- Public Sub TrackEventWithCategory(ByVal category As String,
469- ByVal action As String,
470- ByVal label As String,
471- ByVal value As String,
472- ByVal userId As Long)
473- Dim builder As New System.Text.StringBuilder
474- builder.AppendFormat("5({0}*{1}", category, action)
475- If Not String.IsNullOrEmpty(label) Then
476- builder.AppendFormat("*{0}", label)
477- End If
478- If Not String.IsNullOrEmpty(value) Then
479- builder.AppendFormat(")({0}", value)
480- End If
481- builder.Append(")")
482- Me.SendRequest(New Dictionary(Of String, String) From {{"event", builder.ToString()}}, userId)
483- End Sub
484-
485- End Class
486-#End Region
487301 End Class
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -215,7 +215,6 @@ Public Class TweenMain
215215 Private displayItem As ImageListViewItem
216216
217217 Private ab As AdsBrowser
218- Private WithEvents Ga As Google.GASender
219218
220219 'URL短縮のUndo用
221220 Private Structure urlUndo
@@ -1146,9 +1145,6 @@ Public Class TweenMain
11461145 Me.TweenMain_Resize(Nothing, Nothing)
11471146 If saveRequired Then SaveConfigsAll(False)
11481147
1149- Ga = Google.GASender.GetInstance
1150- Google.GASender.GetInstance.SessionFirst = _cfgCommon.GAFirst
1151- Google.GASender.GetInstance.SessionLast = _cfgCommon.GALast
11521148 If tw.UserId = 0 Then
11531149 tw.VerifyCredentials()
11541150 For Each ua In _cfgCommon.UserAccounts
@@ -1164,8 +1160,6 @@ Public Class TweenMain
11641160 Exit For
11651161 End If
11661162 Next
1167- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
1168- Google.GASender.GetInstance().TrackEventWithCategory("post", "start", tw.UserId)
11691163 End Sub
11701164
11711165 Private Sub CreatePictureServices()
@@ -3303,16 +3297,8 @@ Public Class TweenMain
33033297 End Sub
33043298
33053299 Private Sub SettingStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingStripMenuItem.Click, SettingFileMenuItem.Click
3306- Google.GASender.GetInstance().TrackPage("/settings", tw.UserId)
33073300 Dim result As DialogResult
33083301 Dim uid As String = tw.Username.ToLower
3309- For Each u In SettingDialog.UserAccounts
3310- If u.UserId = tw.UserId Then
3311- u.GAFirst = Ga.SessionFirst
3312- u.GALast = Ga.SessionLast
3313- Exit For
3314- End If
3315- Next
33163302
33173303 Try
33183304 result = SettingDialog.ShowDialog(Me)
@@ -3538,7 +3524,6 @@ Public Class TweenMain
35383524
35393525 Me.TopMost = SettingDialog.AlwaysTop
35403526 SaveConfigsAll(False)
3541- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
35423527 End Sub
35433528
35443529 Private Sub PostBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles PostBrowser.Navigated
@@ -3685,7 +3670,6 @@ Public Class TweenMain
36853670 End If
36863671 End If
36873672
3688- If Not startup Then Google.GASender.GetInstance().TrackEventWithCategory("post", "add_tab", tw.UserId)
36893673 Dim _tabPage As TabPage = New TabPage
36903674 Dim _listCustom As DetailsListView = New DetailsListView
36913675 Dim _colHd1 As ColumnHeader = New ColumnHeader() 'アイコン
@@ -3964,7 +3948,6 @@ Public Class TweenMain
39643948
39653949 If _statuses.IsDefaultTab(TabName) Then Return False
39663950
3967- Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_tab", tw.UserId)
39683951 If confirm Then
39693952 Dim tmp As String = String.Format(My.Resources.RemoveSpecifiedTabText1, Environment.NewLine)
39703953 If MessageBox.Show(tmp, TabName + " " + My.Resources.RemoveSpecifiedTabText2, _
@@ -4117,30 +4100,6 @@ Public Class TweenMain
41174100 If ListTab.Focused OrElse DirectCast(ListTab.SelectedTab.Tag, Control).Focused Then Me.Tag = ListTab.Tag
41184101 TabMenuControl(ListTab.SelectedTab.Text)
41194102 Me.PushSelectPostChain()
4120- Select Case _statuses.Tabs(ListTab.SelectedTab.Text).TabType
4121- Case TabUsageType.Home
4122- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
4123- Case TabUsageType.Mentions
4124- Google.GASender.GetInstance().TrackPage("/mentions", tw.UserId)
4125- Case TabUsageType.DirectMessage
4126- Google.GASender.GetInstance().TrackPage("/direct_messages", tw.UserId)
4127- Case TabUsageType.Favorites
4128- Google.GASender.GetInstance().TrackPage("/favorites", tw.UserId)
4129- Case TabUsageType.Lists
4130- Google.GASender.GetInstance().TrackPage("/lists", tw.UserId)
4131- Case TabUsageType.Profile
4132- Google.GASender.GetInstance().TrackPage("/profile", tw.UserId)
4133- Case TabUsageType.LocalQuery
4134- Google.GASender.GetInstance().TrackPage("/local_query", tw.UserId)
4135- Case TabUsageType.PublicSearch
4136- Google.GASender.GetInstance().TrackPage("/search", tw.UserId)
4137- Case TabUsageType.Related
4138- Google.GASender.GetInstance().TrackPage("/related", tw.UserId)
4139- Case TabUsageType.UserDefined
4140- Google.GASender.GetInstance().TrackPage("/local_tab", tw.UserId)
4141- Case TabUsageType.UserTimeline
4142- Google.GASender.GetInstance().TrackPage("/user_timeline", tw.UserId)
4143- End Select
41444103 End Sub
41454104
41464105 Private Sub SetListProperty()
@@ -6578,8 +6537,6 @@ RETRY:
65786537 _cfgCommon.FoursquarePreviewWidth = SettingDialog.FoursquarePreviewWidth
65796538 _cfgCommon.FoursquarePreviewZoom = SettingDialog.FoursquarePreviewZoom
65806539 _cfgCommon.IsListsIncludeRts = SettingDialog.IsListStatusesIncludeRts
6581- _cfgCommon.GAFirst = Google.GASender.GetInstance.SessionFirst
6582- _cfgCommon.GALast = Google.GASender.GetInstance.SessionLast
65836540 _cfgCommon.TabMouseLock = SettingDialog.TabMouseLock
65846541 _cfgCommon.IsRemoveSameEvent = SettingDialog.IsRemoveSameEvent
65856542 _cfgCommon.IsUseNotifyGrowl = SettingDialog.IsNotifyUseGrowl
@@ -8054,7 +8011,6 @@ RETRY:
80548011 End Sub
80558012
80568013 Private Sub doRepliedStatusOpen()
8057- Google.GASender.GetInstance().TrackPage("/open_reply_to_status", tw.UserId)
80588014 If Me.ExistCurrentPost AndAlso _curPost.InReplyToUser IsNot Nothing AndAlso _curPost.InReplyToStatusId > 0 Then
80598015 If My.Computer.Keyboard.ShiftKeyDown Then
80608016 OpenUriAsync("http://twitter.com/" + _curPost.InReplyToUser + "/status/" + _curPost.InReplyToStatusId.ToString())
@@ -8734,7 +8690,6 @@ RETRY:
87348690 End Function
87358691
87368692 Public Sub OpenUriAsync(ByVal UriString As String)
8737- Google.GASender.GetInstance().TrackPage("/open_url", tw.UserId)
87388693 Dim args As New GetWorkerArg
87398694 args.type = WORKERTYPE.OpenUri
87408695 args.url = UriString
@@ -9681,11 +9636,9 @@ RETRY:
96819636 End If
96829637 End If
96839638
9684- Google.GASender.GetInstance().TrackPage("/listuser_manage", tw.UserId)
96859639 Using listSelectForm As New MyLists(user, Me.tw)
96869640 listSelectForm.ShowDialog(Me)
96879641 End Using
9688- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
96899642 End Sub
96909643
96919644 Private Sub SearchControls_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
@@ -9726,7 +9679,6 @@ RETRY:
97269679 End Sub
97279680
97289681 Private Sub HashManageMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HashManageMenuItem.Click, HashManageToolStripMenuItem.Click
9729- Google.GASender.GetInstance().TrackPage("/hashtag_manage", tw.UserId)
97309682 Dim rslt As DialogResult
97319683 Try
97329684 rslt = HashMgr.ShowDialog()
@@ -9759,7 +9711,6 @@ RETRY:
97599711 'End If
97609712 _modifySettingCommon = True
97619713 Me.StatusText_TextChanged(Nothing, Nothing)
9762- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
97639714 End Sub
97649715
97659716 Private Sub HashToggleMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HashToggleMenuItem.Click, HashToggleToolStripMenuItem.Click
@@ -9991,11 +9942,9 @@ RETRY:
99919942 Using userinfo As New ShowUserInfo()
99929943 userinfo.Owner = Me
99939944 userinfo.User = user
9994- Google.GASender.GetInstance().TrackPage("/user_profile", tw.UserId)
99959945 userinfo.ShowDialog(Me)
99969946 Me.Activate()
99979947 Me.BringToFront()
9998- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
99999948 End Using
100009949 End Sub
100019950
@@ -10361,11 +10310,9 @@ RETRY:
1036110310 #End Region
1036210311
1036310312 Private Sub ListManageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListManageToolStripMenuItem.Click
10364- Google.GASender.GetInstance().TrackPage("/list_manage", tw.UserId)
1036510313 Using form As New ListManage(tw)
1036610314 form.ShowDialog(Me)
1036710315 End Using
10368- Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
1036910316 End Sub
1037010317
1037110318 Public WriteOnly Property ModifySettingCommon() As Boolean
@@ -10780,7 +10727,6 @@ RETRY:
1078010727 StatusLabel.Text = msg
1078110728 End If
1078210729 End If
10783- Google.GASender.GetInstance().TrackEventWithCategory("post", "translation", tw.UserId)
1078410730 End Sub
1078510731
1078610732 Private Sub TranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TranslationToolStripMenuItem.Click
@@ -10904,10 +10850,6 @@ RETRY:
1090410850 End If
1090510851 End Sub
1090610852
10907- Private Sub Ga_Sent() Handles Ga.Sent
10908- Me._modifySettingCommon = True
10909- End Sub
10910-
1091110853 Private Sub SourceCopyMenuItem_Click(sender As Object, e As System.EventArgs) Handles SourceCopyMenuItem.Click
1091210854 Dim selText As String = SourceLinkLabel.Text
1091310855 Try
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -187,7 +187,6 @@ Public Class Twitter
187187 Twitter.AccountState = ACCOUNT_STATE.Valid
188188 _uname = Username.ToLower
189189 If AppendSettingDialog.Instance.UserstreamStartup Then Me.ReconnectUserStream()
190- Google.GASender.GetInstance().TrackEventWithCategory("post", "authenticate", Me.UserId)
191190 Return ""
192191 Case HttpStatusCode.Unauthorized
193192 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -425,7 +424,6 @@ Public Class Twitter
425424
426425 Select Case res
427426 Case HttpStatusCode.OK
428- Google.GASender.GetInstance().TrackEventWithCategory("post", "status", Me.UserId)
429427 Twitter.AccountState = ACCOUNT_STATE.Valid
430428 Dim status As TwitterDataModel.Status
431429 Try
@@ -506,7 +504,6 @@ Public Class Twitter
506504
507505 Select Case res
508506 Case HttpStatusCode.OK
509- Google.GASender.GetInstance().TrackEventWithCategory("post", "status_with_media", Me.UserId)
510507 Twitter.AccountState = ACCOUNT_STATE.Valid
511508 Dim status As TwitterDataModel.Status
512509 Try
@@ -593,7 +590,6 @@ Public Class Twitter
593590
594591 Select Case res
595592 Case HttpStatusCode.OK
596- Google.GASender.GetInstance().TrackEventWithCategory("post", "direct_message", Me.UserId)
597593 Twitter.AccountState = ACCOUNT_STATE.Valid
598594 Dim status As TwitterDataModel.Directmessage
599595 Try
@@ -666,7 +662,6 @@ Public Class Twitter
666662
667663 Select Case res
668664 Case HttpStatusCode.OK
669- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy", Me.UserId)
670665 Twitter.AccountState = ACCOUNT_STATE.Valid
671666 Return ""
672667 Case HttpStatusCode.Unauthorized
@@ -711,7 +706,6 @@ Public Class Twitter
711706 Return "Err:" + res.ToString() + "(" + GetCurrentMethod.Name + ")"
712707 End Select
713708
714- Google.GASender.GetInstance().TrackEventWithCategory("post", "retweet", Me.UserId)
715709 Twitter.AccountState = ACCOUNT_STATE.Valid
716710
717711 Dim status As TwitterDataModel.Status
@@ -769,7 +763,6 @@ Public Class Twitter
769763
770764 Select Case res
771765 Case HttpStatusCode.OK
772- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_direct_message", Me.UserId)
773766 Twitter.AccountState = ACCOUNT_STATE.Valid
774767 Return ""
775768 Case HttpStatusCode.Unauthorized
@@ -799,7 +792,6 @@ Public Class Twitter
799792
800793 Select Case res
801794 Case HttpStatusCode.OK
802- Google.GASender.GetInstance().TrackEventWithCategory("post", "follow", Me.UserId)
803795 Twitter.AccountState = ACCOUNT_STATE.Valid
804796 Return ""
805797 Case HttpStatusCode.Unauthorized
@@ -834,7 +826,6 @@ Public Class Twitter
834826
835827 Select Case res
836828 Case HttpStatusCode.OK
837- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_friendships", Me.UserId)
838829 Twitter.AccountState = ACCOUNT_STATE.Valid
839830 Return ""
840831 Case HttpStatusCode.Unauthorized
@@ -869,7 +860,6 @@ Public Class Twitter
869860
870861 Select Case res
871862 Case HttpStatusCode.OK
872- Google.GASender.GetInstance().TrackEventWithCategory("post", "block", Me.UserId)
873863 Twitter.AccountState = ACCOUNT_STATE.Valid
874864 Return ""
875865 Case HttpStatusCode.Unauthorized
@@ -904,7 +894,6 @@ Public Class Twitter
904894
905895 Select Case res
906896 Case HttpStatusCode.OK
907- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_block", Me.UserId)
908897 Twitter.AccountState = ACCOUNT_STATE.Valid
909898 Return ""
910899 Case HttpStatusCode.Unauthorized
@@ -939,7 +928,6 @@ Public Class Twitter
939928
940929 Select Case res
941930 Case HttpStatusCode.OK
942- Google.GASender.GetInstance().TrackEventWithCategory("post", "spam", Me.UserId)
943931 Twitter.AccountState = ACCOUNT_STATE.Valid
944932 Return ""
945933 Case HttpStatusCode.Unauthorized
@@ -963,7 +951,6 @@ Public Class Twitter
963951
964952 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
965953
966- Google.GASender.GetInstance().TrackPage("/friendships", Me.UserId)
967954 Dim res As HttpStatusCode
968955 Dim content As String = ""
969956 Try
@@ -1002,7 +989,6 @@ Public Class Twitter
1002989
1003990 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
1004991
1005- Google.GASender.GetInstance().TrackPage("/showuser", Me.UserId)
1006992 Dim res As HttpStatusCode
1007993 Dim content As String = ""
1008994 user = Nothing
@@ -1046,7 +1032,6 @@ Public Class Twitter
10461032
10471033 If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
10481034
1049- Google.GASender.GetInstance().TrackPage("/retweet_count", Me.UserId)
10501035 Dim res As HttpStatusCode
10511036 Dim content As String = ""
10521037 Dim xmlBuf As String = ""
@@ -1113,7 +1098,6 @@ Public Class Twitter
11131098
11141099 Select Case res
11151100 Case HttpStatusCode.OK
1116- Google.GASender.GetInstance().TrackEventWithCategory("post", "favorites", Me.UserId)
11171101 Twitter.AccountState = ACCOUNT_STATE.Valid
11181102 'Me.favQueue.FavoriteCacheStart()
11191103 If Not _restrictFavCheck Then Return ""
@@ -1199,7 +1183,6 @@ Public Class Twitter
11991183
12001184 Select Case res
12011185 Case HttpStatusCode.OK
1202- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_favorites", Me.UserId)
12031186 Twitter.AccountState = ACCOUNT_STATE.Valid
12041187 Return ""
12051188 Case HttpStatusCode.Unauthorized
@@ -1232,7 +1215,6 @@ Public Class Twitter
12321215
12331216 Select Case res
12341217 Case HttpStatusCode.OK
1235- Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile", Me.UserId)
12361218 Twitter.AccountState = ACCOUNT_STATE.Valid
12371219 Return ""
12381220 Case HttpStatusCode.Unauthorized
@@ -1265,7 +1247,6 @@ Public Class Twitter
12651247
12661248 Select Case res
12671249 Case HttpStatusCode.OK
1268- Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile_image", Me.UserId)
12691250 Twitter.AccountState = ACCOUNT_STATE.Valid
12701251 Return ""
12711252 Case HttpStatusCode.Unauthorized
@@ -1345,7 +1326,6 @@ Public Class Twitter
13451326 End Function
13461327
13471328 Public Function GetTweenBinary(ByVal strVer As String) As String
1348- Google.GASender.GetInstance().TrackPage("/newversion", Me.UserId)
13491329 Try
13501330 '本体
13511331 If Not (New HttpVarious).GetDataToFile("http://tween.sourceforge.jp/Tween" + strVer + ".gz?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), _
@@ -1610,7 +1590,6 @@ Public Class Twitter
16101590
16111591 If _endingFlag Then Return ""
16121592
1613- Google.GASender.GetInstance().TrackPage("/showstatus", Me.UserId)
16141593 Dim res As HttpStatusCode
16151594 Dim content As String = ""
16161595
@@ -1908,7 +1887,6 @@ Public Class Twitter
19081887 End Function
19091888
19101889 Public Function GetRelatedResult(ByVal read As Boolean, ByVal tab As TabClass) As String
1911- Google.GASender.GetInstance().TrackPage("/related_statuses", Me.UserId)
19121890 Dim rslt As String = ""
19131891 Dim relPosts As New List(Of PostClass)
19141892 If tab.RelationTargetPost.TextFromApi.Contains("@") AndAlso tab.RelationTargetPost.InReplyToStatusId = 0 Then
@@ -2796,7 +2774,6 @@ Public Class Twitter
27962774
27972775 Select Case res
27982776 Case HttpStatusCode.OK
2799- Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_list", Me.UserId)
28002777 Twitter.AccountState = ACCOUNT_STATE.Valid
28012778 Case HttpStatusCode.Unauthorized
28022779 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2822,7 +2799,6 @@ Public Class Twitter
28222799
28232800 Select Case res
28242801 Case HttpStatusCode.OK
2825- Google.GASender.GetInstance().TrackEventWithCategory("get", "update_list", Me.UserId)
28262802 Twitter.AccountState = ACCOUNT_STATE.Valid
28272803 Case HttpStatusCode.Unauthorized
28282804 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2916,7 +2892,6 @@ Public Class Twitter
29162892
29172893 Select Case res
29182894 Case HttpStatusCode.OK
2919- Google.GASender.GetInstance().TrackEventWithCategory("post", "create_list", Me.UserId)
29202895 Twitter.AccountState = ACCOUNT_STATE.Valid
29212896 Case HttpStatusCode.Unauthorized
29222897 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -2991,7 +2966,6 @@ Public Class Twitter
29912966
29922967 Select Case res
29932968 Case HttpStatusCode.OK
2994- Google.GASender.GetInstance().TrackEventWithCategory("post", "add_user_to_list", Me.UserId)
29952969 Twitter.AccountState = ACCOUNT_STATE.Valid
29962970 Case HttpStatusCode.Unauthorized
29972971 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -3018,7 +2992,6 @@ Public Class Twitter
30182992
30192993 Select Case res
30202994 Case HttpStatusCode.OK
3021- Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_user_from_list", Me.UserId)
30222995 Twitter.AccountState = ACCOUNT_STATE.Valid
30232996 Case HttpStatusCode.Unauthorized
30242997 Twitter.AccountState = ACCOUNT_STATE.Invalid
@@ -3594,7 +3567,6 @@ Public Class Twitter
35943567 End Sub
35953568
35963569 Private Sub userStream_Started() Handles userStream.Started
3597- Google.GASender.GetInstance().TrackPage("/userstream", Me.UserId)
35983570 RaiseEvent UserStreamStarted()
35993571 End Sub
36003572