カスタム定数関連修正

diff --git a/Tween/AppendSettingDialog.vb b/Tween/AppendSettingDialog.vb
index 802b8e8..db0405b 100644 (file)
--- a/Tween/AppendSettingDialog.vb
+++ b/Tween/AppendSettingDialog.vb
@@ -198,7 +198,7 @@ Public Class AppendSettingDialog
         Else
             _ValidationError = False
         End If
         Else
             _ValidationError = False
         End If

-
+#If UA = "True" Then

         'フォロー
         If Me.FollowCheckBox.Checked Then
             '現在の設定内容で通信
         'フォロー
         If Me.FollowCheckBox.Checked Then
             '現在の設定内容で通信


@@ -218,7 +218,7 @@ Public Class AppendSettingDialog
 
             Dim ret As String = tw.PostFollowCommand("TweenApp")
         End If
 
             Dim ret As String = tw.PostFollowCommand("TweenApp")
         End If

-
+#End If

         Dim arg As New IntervalChangedEventArgs
         Dim isIntervalChanged As Boolean = False
 
         Dim arg As New IntervalChangedEventArgs
         Dim isIntervalChanged As Boolean = False
 

diff --git a/Tween/Google.vb b/Tween/Google.vb
index cc5cf97..53d9c83 100644 (file)
--- a/Tween/Google.vb
+++ b/Tween/Google.vb
@@ -349,6 +349,9 @@ Public Class Google
         End Sub
 
         Private Sub SendRequest(ByVal info As Dictionary(Of String, String), ByVal userId As Long)
         End Sub
 
         Private Sub SendRequest(ByVal info As Dictionary(Of String, String), ByVal userId As Long)

+#If UA <> "True" Then
+            exit sub
+#End If

             If userId = 0 Then Exit Sub
             If Me._SessionFirst = 0 Then Me.Init()
 
             If userId = 0 Then Exit Sub
             If Me._SessionFirst = 0 Then Me.Init()
 

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ac320e0..d67db87 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1133,13 +1133,11 @@ Public Class TweenMain
 #Else
         SplitContainer4.Panel2Collapsed = True
 #End If
 #Else
         SplitContainer4.Panel2Collapsed = True
 #End If

-#If UA = "True" Then

         Google.GASender.GetInstance.SessionFirst = _cfgCommon.GAFirst
         Google.GASender.GetInstance.SessionLast = _cfgCommon.GALast
         If tw.UserId = 0 Then tw.VerifyCredentials()
         Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "start", tw.UserId)
         Google.GASender.GetInstance.SessionFirst = _cfgCommon.GAFirst
         Google.GASender.GetInstance.SessionLast = _cfgCommon.GALast
         If tw.UserId = 0 Then tw.VerifyCredentials()
         Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "start", tw.UserId)

-#End If

     End Sub
 
     Private Sub CreatePictureServices()
     End Sub
 
     Private Sub CreatePictureServices()


@@ -1924,9 +1922,7 @@ Public Class TweenMain
             Me.Visible = False
         Else
             Me.SaveConfigsCommon()
             Me.Visible = False
         Else
             Me.SaveConfigsCommon()

-#If UA = "True" Then
-        Google.GASender.GetInstance().TrackEventWithCategory("post", "end", tw.UserId)
-#End If
+            Google.GASender.GetInstance().TrackEventWithCategory("post", "end", tw.UserId)

             _hookGlobalHotkey.UnregisterAllOriginalHotkey()
             _ignoreConfigSave = True
             _endingFlag = True
             _hookGlobalHotkey.UnregisterAllOriginalHotkey()
             _ignoreConfigSave = True
             _endingFlag = True


@@ -3133,9 +3129,7 @@ Public Class TweenMain
     End Sub
 
     Private Sub SettingStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingStripMenuItem.Click, SettingFileMenuItem.Click
     End Sub
 
     Private Sub SettingStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingStripMenuItem.Click, SettingFileMenuItem.Click

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/settings", tw.UserId)
         Google.GASender.GetInstance().TrackPage("/settings", tw.UserId)

-#End If

         Dim result As DialogResult
         Dim uid As String = tw.Username.ToLower
 
         Dim result As DialogResult
         Dim uid As String = tw.Username.ToLower
 


@@ -3165,9 +3159,11 @@ Public Class TweenMain
                                                     SettingDialog.ProxyUser, _
                                                     SettingDialog.ProxyPassword)
                 Me.CreatePictureServices()
                                                     SettingDialog.ProxyUser, _
                                                     SettingDialog.ProxyPassword)
                 Me.CreatePictureServices()

+#If UA = "True" Then

                 Me.SplitContainer4.Panel2.Controls.RemoveAt(0)
                 Me.ab = New AdsBrowser
                 Me.SplitContainer4.Panel2.Controls.Add(ab)
                 Me.SplitContainer4.Panel2.Controls.RemoveAt(0)
                 Me.ab = New AdsBrowser
                 Me.SplitContainer4.Panel2.Controls.Add(ab)

+#End If

                 Try
                     If SettingDialog.TabIconDisp Then
                         RemoveHandler ListTab.DrawItem, AddressOf ListTab_DrawItem
                 Try
                     If SettingDialog.TabIconDisp Then
                         RemoveHandler ListTab.DrawItem, AddressOf ListTab_DrawItem


@@ -3361,9 +3357,7 @@ Public Class TweenMain
 
         Me.TopMost = SettingDialog.AlwaysTop
         SaveConfigsAll(False)
 
         Me.TopMost = SettingDialog.AlwaysTop
         SaveConfigsAll(False)

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/home_timeline", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)

     End Sub
 
     Private Sub PostBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles PostBrowser.Navigated
     End Sub
 
     Private Sub PostBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles PostBrowser.Navigated


@@ -3501,9 +3495,7 @@ Public Class TweenMain
             End If
         End If
 
             End If
         End If
 

-#If UA = "True" Then
-        if not startup then Google.GASender.GetInstance().TrackEventWithCategory("post", "add_tab", tw.UserId)
-#End If
+        If Not startup Then Google.GASender.GetInstance().TrackEventWithCategory("post", "add_tab", tw.UserId)

         Dim _tabPage As TabPage = New TabPage
         Dim _listCustom As DetailsListView = New DetailsListView
         Dim _colHd1 As ColumnHeader = New ColumnHeader()  'アイコン
         Dim _tabPage As TabPage = New TabPage
         Dim _listCustom As DetailsListView = New DetailsListView
         Dim _colHd1 As ColumnHeader = New ColumnHeader()  'アイコン


@@ -3781,9 +3773,7 @@ Public Class TweenMain
 
         If _statuses.IsDefaultTab(TabName) Then Return False
 
 
         If _statuses.IsDefaultTab(TabName) Then Return False
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_tab", tw.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_tab", tw.UserId)

-#End If

         If confirm Then
             Dim tmp As String = String.Format(My.Resources.RemoveSpecifiedTabText1, Environment.NewLine)
             If MessageBox.Show(tmp, TabName + " " + My.Resources.RemoveSpecifiedTabText2, _
         If confirm Then
             Dim tmp As String = String.Format(My.Resources.RemoveSpecifiedTabText1, Environment.NewLine)
             If MessageBox.Show(tmp, TabName + " " + My.Resources.RemoveSpecifiedTabText2, _


@@ -3936,7 +3926,6 @@ Public Class TweenMain
         If ListTab.Focused OrElse DirectCast(ListTab.SelectedTab.Tag, Control).Focused Then Me.Tag = ListTab.Tag
         TabMenuControl(ListTab.SelectedTab.Text)
         Me.PushSelectPostChain()
         If ListTab.Focused OrElse DirectCast(ListTab.SelectedTab.Tag, Control).Focused Then Me.Tag = ListTab.Tag
         TabMenuControl(ListTab.SelectedTab.Text)
         Me.PushSelectPostChain()

-#If UA = "True" Then

         Select Case _statuses.Tabs(ListTab.SelectedTab.Text).TabType
             Case TabUsageType.Home
                 Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)
         Select Case _statuses.Tabs(ListTab.SelectedTab.Text).TabType
             Case TabUsageType.Home
                 Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)


@@ -3961,7 +3950,6 @@ Public Class TweenMain
             Case TabUsageType.UserTimeline
                 Google.GASender.GetInstance().TrackPage("/user_timeline", tw.UserId)
         End Select
             Case TabUsageType.UserTimeline
                 Google.GASender.GetInstance().TrackPage("/user_timeline", tw.UserId)
         End Select

-#End If

     End Sub
 
     Private Sub SetListProperty()
     End Sub
 
     Private Sub SetListProperty()


@@ -7815,9 +7803,7 @@ RETRY:
     End Sub
 
     Private Sub doRepliedStatusOpen()
     End Sub
 
     Private Sub doRepliedStatusOpen()

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/open_reply_to_status", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/open_reply_to_status", tw.UserId)

         If Me.ExistCurrentPost AndAlso _curPost.InReplyToUser IsNot Nothing AndAlso _curPost.InReplyToStatusId > 0 Then
             If My.Computer.Keyboard.ShiftKeyDown Then
                 OpenUriAsync("http://twitter.com/" + _curPost.InReplyToUser + "/status/" + _curPost.InReplyToStatusId.ToString())
         If Me.ExistCurrentPost AndAlso _curPost.InReplyToUser IsNot Nothing AndAlso _curPost.InReplyToStatusId > 0 Then
             If My.Computer.Keyboard.ShiftKeyDown Then
                 OpenUriAsync("http://twitter.com/" + _curPost.InReplyToUser + "/status/" + _curPost.InReplyToStatusId.ToString())


@@ -8486,9 +8472,7 @@ RETRY:
     End Function
 
     Public Sub OpenUriAsync(ByVal UriString As String)
     End Function
 
     Public Sub OpenUriAsync(ByVal UriString As String)

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/open_url", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/open_url", tw.UserId)

         Dim args As New GetWorkerArg
         args.type = WORKERTYPE.OpenUri
         args.url = UriString
         Dim args As New GetWorkerArg
         args.type = WORKERTYPE.OpenUri
         args.url = UriString


@@ -9432,15 +9416,11 @@ RETRY:
             End If
         End If
 
             End If
         End If
 

+        Google.GASender.GetInstance().TrackPage("/listuser_manage", tw.UserId)

         Using listSelectForm As New MyLists(user, Me.tw)
         Using listSelectForm As New MyLists(user, Me.tw)

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/listuser_manage", tw.UserId)
-#End If

             listSelectForm.ShowDialog(Me)
         End Using
             listSelectForm.ShowDialog(Me)
         End Using

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/home_timeline", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)

     End Sub
 
     Private Sub SearchControls_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
     End Sub
 
     Private Sub SearchControls_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)


@@ -9481,9 +9461,7 @@ RETRY:
     End Sub
 
     Private Sub HashManageMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HashManageMenuItem.Click, HashManageToolStripMenuItem.Click
     End Sub
 
     Private Sub HashManageMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HashManageMenuItem.Click, HashManageToolStripMenuItem.Click

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/hashtag_manage", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/hashtag_manage", tw.UserId)

         Dim rslt As DialogResult
         Try
             rslt = HashMgr.ShowDialog()
         Dim rslt As DialogResult
         Try
             rslt = HashMgr.ShowDialog()


@@ -9516,9 +9494,7 @@ RETRY:
         'End If
         _modifySettingCommon = True
         Me.StatusText_TextChanged(Nothing, Nothing)
         'End If
         _modifySettingCommon = True
         Me.StatusText_TextChanged(Nothing, Nothing)

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/home_timeline", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)

     End Sub
 
     Private Sub HashToggleMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HashToggleMenuItem.Click, HashToggleToolStripMenuItem.Click
     End Sub
 
     Private Sub HashToggleMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HashToggleMenuItem.Click, HashToggleToolStripMenuItem.Click


@@ -9750,14 +9726,10 @@ RETRY:
         Using userinfo As New ShowUserInfo()
             userinfo.Owner = Me
             userinfo.User = user
         Using userinfo As New ShowUserInfo()
             userinfo.Owner = Me
             userinfo.User = user

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/user_profile", tw.UserId)
-#End If
+            Google.GASender.GetInstance().TrackPage("/user_profile", tw.UserId)

             userinfo.ShowDialog(Me)
             Me.Activate()
             userinfo.ShowDialog(Me)
             Me.Activate()

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/home_timeline", tw.UserId)
-#End If
+            Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)

         End Using
     End Sub
 
         End Using
     End Sub
 


@@ -10123,15 +10095,11 @@ RETRY:
 #End Region
 
     Private Sub ListManageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListManageToolStripMenuItem.Click
 #End Region
 
     Private Sub ListManageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListManageToolStripMenuItem.Click

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/list_manage", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/list_manage", tw.UserId)

         Using form As New ListManage(tw)
             form.ShowDialog(Me)
         End Using
         Using form As New ListManage(tw)
             form.ShowDialog(Me)
         End Using

-#If UA = "True" Then
-        Google.GASender.GetInstance().Trackpage("/home_timeline", tw.UserId)
-#End If
+        Google.GASender.GetInstance().TrackPage("/home_timeline", tw.UserId)

     End Sub
 
     Public WriteOnly Property ModifySettingCommon() As Boolean
     End Sub
 
     Public WriteOnly Property ModifySettingCommon() As Boolean


@@ -10519,9 +10487,7 @@ RETRY:
                 StatusLabel.Text = msg
             End If
         End If
                 StatusLabel.Text = msg
             End If
         End If

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "translation", tw.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "translation", tw.UserId)

-#End If

     End Sub
 
     Private Sub TranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TranslationToolStripMenuItem.Click
     End Sub
 
     Private Sub TranslationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TranslationToolStripMenuItem.Click

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index c62988a..2d18d65 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -185,9 +185,7 @@ Public Class Twitter
                 Twitter.AccountState = ACCOUNT_STATE.Valid
                 _uname = Username.ToLower
                 If AppendSettingDialog.Instance.UserstreamStartup Then Me.ReconnectUserStream()
                 Twitter.AccountState = ACCOUNT_STATE.Valid
                 _uname = Username.ToLower
                 If AppendSettingDialog.Instance.UserstreamStartup Then Me.ReconnectUserStream()

-#If UA = "True" Then
-        Google.GASender.GetInstance().TrackEventWithCategory("post", "authenticate",me.userid)
-#End If
+                Google.GASender.GetInstance().TrackEventWithCategory("post", "authenticate", Me.UserId)

                 Return ""
             Case HttpStatusCode.Unauthorized
                 Twitter.AccountState = ACCOUNT_STATE.Invalid
                 Return ""
             Case HttpStatusCode.Unauthorized
                 Twitter.AccountState = ACCOUNT_STATE.Invalid


@@ -414,9 +412,7 @@ Public Class Twitter
             Return SendDirectMessage(postStr)
         End If
 
             Return SendDirectMessage(postStr)
         End If
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "status", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "status", Me.UserId)

-#End If

 
         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""


@@ -498,9 +494,7 @@ Public Class Twitter
 
         postStr = postStr.Trim()
 
 
         postStr = postStr.Trim()
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "status_with_media", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "status_with_media", Me.UserId)

-#End If

 
         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""


@@ -581,9 +575,7 @@ Public Class Twitter
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
         If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
         If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "direct_message", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "direct_message", Me.UserId)

-#End If

 
         postStr = postStr.Trim()
 
 
         postStr = postStr.Trim()
 


@@ -662,9 +654,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy", Me.UserId)

-#End If

         Dim res As HttpStatusCode
 
         Try
         Dim res As HttpStatusCode
 
         Try


@@ -698,9 +688,7 @@ Public Class Twitter
             target = TabInformations.GetInstance.Item(id).RetweetedId '再RTの場合は元発言をRT
         End If
 
             target = TabInformations.GetInstance.Item(id).RetweetedId '再RTの場合は元発言をRT
         End If
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "retweet", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "retweet", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -760,9 +748,7 @@ Public Class Twitter
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
         If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
         If Not TwitterApiInfo.IsDirectMessagePermission Then Return "Auth Err:try to re-authorization."
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_direct_message", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_direct_message", Me.UserId)

-#End If

         Dim res As HttpStatusCode
 
         'If post.IsMe Then
         Dim res As HttpStatusCode
 
         'If post.IsMe Then


@@ -794,9 +780,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "follow", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "follow", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -831,9 +815,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_friendships", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_friendships", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -868,9 +850,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "block", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "block", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -905,9 +885,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_block", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_block", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -942,9 +920,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "spam", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "spam", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -979,9 +955,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/friendships", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/friendships", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -1020,9 +994,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/showuser", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/showuser", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         user = Nothing
         Dim res As HttpStatusCode
         Dim content As String = ""
         user = Nothing


@@ -1066,9 +1038,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/retweet_count", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/retweet_count", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Dim xmlBuf As String = ""
         Dim res As HttpStatusCode
         Dim content As String = ""
         Dim xmlBuf As String = ""


@@ -1119,9 +1089,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "favorites", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "favorites", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -1192,9 +1160,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_favorites", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_favorites", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -1227,9 +1193,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -1262,9 +1226,7 @@ Public Class Twitter
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
 
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile_image", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "update_profile_image", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
         Try
         Dim res As HttpStatusCode
         Dim content As String = ""
         Try


@@ -1354,9 +1316,7 @@ Public Class Twitter
     End Function
 
     Public Function GetTweenBinary(ByVal strVer As String) As String
     End Function
 
     Public Function GetTweenBinary(ByVal strVer As String) As String

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/newversion", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/newversion", Me.UserId)

-#End If

         Try
             '本体
             If Not (New HttpVarious).GetDataToFile("http://tween.sourceforge.jp/Tween" + strVer + ".gz?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), _
         Try
             '本体
             If Not (New HttpVarious).GetDataToFile("http://tween.sourceforge.jp/Tween" + strVer + ".gz?" + Now.ToString("yyMMddHHmmss") + Environment.TickCount.ToString(), _


@@ -1620,9 +1580,7 @@ Public Class Twitter
 
         If _endingFlag Then Return ""
 
 
         If _endingFlag Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/showstatus", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/showstatus", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -1913,9 +1871,7 @@ Public Class Twitter
     End Function
 
     Public Function GetRelatedResult(ByVal read As Boolean, ByVal tab As TabClass) As String
     End Function
 
     Public Function GetRelatedResult(ByVal read As Boolean, ByVal tab As TabClass) As String

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/related_statuses", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/related_statuses", Me.UserId)

-#End If

         Dim rslt As String = ""
         Dim relPosts As New List(Of PostClass)
         If tab.RelationTargetPost.TextFromApi.Contains("@") AndAlso tab.RelationTargetPost.InReplyToStatusId = 0 Then
         Dim rslt As String = ""
         Dim relPosts As New List(Of PostClass)
         If tab.RelationTargetPost.TextFromApi.Contains("@") AndAlso tab.RelationTargetPost.InReplyToStatusId = 0 Then


@@ -2782,9 +2738,7 @@ Public Class Twitter
         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_list", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "destroy_list", Me.UserId)

-#End If

         Try
             res = twCon.DeleteListID(Me.Username, list_id, content)
         Catch ex As Exception
         Try
             res = twCon.DeleteListID(Me.Username, list_id, content)
         Catch ex As Exception


@@ -2807,9 +2761,7 @@ Public Class Twitter
     End Function
 
     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
     End Function
 
     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

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("get", "update_list", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("get", "update_list", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -2903,9 +2855,7 @@ Public Class Twitter
     Public Function CreateListApi(ByVal listName As String, ByVal isPrivate As Boolean, ByVal description As String) As String
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 
     Public Function CreateListApi(ByVal listName As String, ByVal isPrivate As Boolean, ByVal description As String) As String
         If Twitter.AccountState <> ACCOUNT_STATE.Valid Then Return ""
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "create_list", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "create_list", Me.UserId)

-#End If

         Dim res As HttpStatusCode
         Dim content As String = ""
 
         Dim res As HttpStatusCode
         Dim content As String = ""
 


@@ -2983,9 +2933,7 @@ Public Class Twitter
         Dim content As String = ""
         Dim res As HttpStatusCode
 
         Dim content As String = ""
         Dim res As HttpStatusCode
 

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "add_user_to_list", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "add_user_to_list", Me.UserId)

-#End If

         Try
             res = twCon.CreateListMembers(listId, user, content)
         Catch ex As Exception
         Try
             res = twCon.CreateListMembers(listId, user, content)
         Catch ex As Exception


@@ -3008,9 +2956,7 @@ Public Class Twitter
     End Function
 
     Public Function RemoveUserToList(ByVal listId As String, ByVal user As String) As String
     End Function
 
     Public Function RemoveUserToList(ByVal listId As String, ByVal user As String) As String

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_user_from_list", Me.UserId)
         Google.GASender.GetInstance().TrackEventWithCategory("post", "remove_user_from_list", Me.UserId)

-#End If

 
         Dim content As String = ""
         Dim res As HttpStatusCode
 
         Dim content As String = ""
         Dim res As HttpStatusCode


@@ -3583,9 +3529,7 @@ Public Class Twitter
     End Sub
 
     Private Sub userStream_Started() Handles userStream.Started
     End Sub
 
     Private Sub userStream_Started() Handles userStream.Started

-#If UA = "True" Then

         Google.GASender.GetInstance().TrackPage("/userstream", Me.UserId)
         Google.GASender.GetInstance().TrackPage("/userstream", Me.UserId)

-#End If

         RaiseEvent UserStreamStarted()
     End Sub
 
         RaiseEvent UserStreamStarted()
     End Sub