Changeset 31157

Timestamp:

03/14/09 00:33:47 (4 years ago)

Author:

syo68k

Message:

エラーチェックを少し強化

Files:

• lang/vb2005/Tween/Tween/MyCommon.vb (modified) (1 diff)

lang/vb2005/Tween/Tween/MyCommon.vb

@@ -222 +222 @@
         Dim IDNConverter As New IdnMapping
 
+        If Not input.Contains("://") Then Return Nothing
+
         ' ドメイン名をPunycode展開
-        Dim Domain As String = input.Split("/"c)(2)
+        Dim Domain As String
         Dim AsciiDomain As String
 
         Try
+            Domain = input.Split("/"c)(2)
             AsciiDomain = IDNConverter.GetAscii(Domain)
         Catch ex As Exception