Changeset 29444

Timestamp:

02/02/09 22:56:03 (4 years ago)

Author:

syo68k

Message:

Followersリスト読み込み開始タイミング調整

Files:

• lang/vb2005/Tween/Tween/Tween.vb (modified) (3 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -509 +509 @@
             '他の設定項目は、随時設定画面で保持している値を読み出して使用
         End If
+
+        'Twitter用通信クラス初期化
+        Twitter.Username = _username
+        Twitter.Password = _password
+        Twitter.ProxyType = SettingDialog.ProxyType
+        Twitter.ProxyAddress = SettingDialog.ProxyAddress
+        Twitter.ProxyPort = SettingDialog.ProxyPort
+        Twitter.ProxyUser = SettingDialog.ProxyUser
+        Twitter.ProxyPassword = SettingDialog.ProxyPassword
+        Twitter.NextThreshold = SettingDialog.NextPageThreshold   '次頁取得閾値
+        Twitter.NextPages = SettingDialog.NextPagesInt    '閾値オーバー時の読み込みページ数（未使用）
         If IsNetworkAvailable() Then
             If SettingDialog.StartupFollowers Then
@@ -553 +564 @@
         '文字カウンタ初期化
         lblLen.Text = "140"
-
-        'Twitter用通信クラス初期化
-        Twitter.Username = _username
-        Twitter.Password = _password
-        Twitter.ProxyType = SettingDialog.ProxyType
-        Twitter.ProxyAddress = SettingDialog.ProxyAddress
-        Twitter.ProxyPort = SettingDialog.ProxyPort
-        Twitter.ProxyUser = SettingDialog.ProxyUser
-        Twitter.ProxyPassword = SettingDialog.ProxyPassword
-        Twitter.NextThreshold = SettingDialog.NextPageThreshold   '次頁取得閾値
-        Twitter.NextPages = SettingDialog.NextPagesInt    '閾値オーバー時の読み込みページ数（未使用）
 
         If SettingDialog.StartupKey Then
@@ -4818 +4818 @@
                 My.Application.DoEvents()
                 i += 1
-                If i > 50 Then
+                If i > 20 Then
                     _statuses.DistributePosts()
                     RefreshTimeline()