Index: /lang/vb2005/Tween/Tween/Twitter.vb
===================================================================
--- /lang/vb2005/Tween/Tween/Twitter.vb (revision 30973)
+++ /lang/vb2005/Tween/Tween/Twitter.vb (revision 30981)
@@ -989,4 +989,5 @@
         Dim posTmp As Integer
         Dim IDNConveter As IdnMapping = New IdnMapping()
+        Dim protocol As String() = New String() {"http://", "https://", "ftp://"}
 
         Do While True
@@ -996,5 +997,9 @@
                 posl1 = orgData.IndexOf("<a href=""", posl2, StringComparison.Ordinal)
 
-                posTmp = orgData.IndexOf("http://", posl1, StringComparison.Ordinal)
+                For Each prt As String In protocol
+                    posTmp = orgData.IndexOf(prt, posl1, StringComparison.Ordinal)
+                    If posTmp <> -1 Then Exit For
+                Next
+
                 If posTmp <> -1 Then
                     posl1 = posTmp