120秒間初期読み込み処理が終了しなかった場合強制的に処理を打ち切るようにした

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@928 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index e0033ef..0ca84f8 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7845,10 +7845,13 @@ RETRY:
             _waitLists = True
             GetTimeline(WORKERTYPE.List, 1, 0, "")  'tabname="":全タブ
             Dim i As Integer = 0
+            Dim j As Integer = 0
             Do While (_waitTimeline OrElse _waitReply OrElse _waitDm OrElse _waitFav OrElse _waitPubSearch OrElse _waitLists) AndAlso Not _endingFlag
                 System.Threading.Thread.Sleep(100)
                 My.Application.DoEvents()
                 i += 1
+                j += 1
+                If j > 1200 Then Exit Do ' 120秒間初期処理が終了しなかったら強制的に打ち切る
                 If i > 50 Then
                     If _endingFlag Then
                         Exit Sub