pixivプレビューの際のエラー処理を若干強化した

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index c4f2217..f2ec862 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7959,8 +7959,9 @@ RETRY:
                 wc.Encoding = Encoding.UTF8
                 Dim src As String = wc.DownloadString(mc.Groups(0).Value)
                 Dim _mc As Match = Regex.Match(src, mc.Result("http://img([0-9]+)\.pixiv\.net/img/.+/${2}_s\.([a-zA-Z]+)"))
-
-                imglist.Add(New KeyValuePair(Of String, String)(url, _mc.Value))
+                If _mc.Success Then
+                    imglist.Add(New KeyValuePair(Of String, String)(url, _mc.Value))
+                End If
                 wc.Dispose()
                 Continue For
             End If