''' <summary>
''' 
''' </summary>
''' <param name="f_Uri">
''' In diesem String sind die Informationen über Account, 
''' Empfängermobilfunknummer, Absenderinformation und SMS-Text enthalten. Texte 
' länger asl
''' 160 Zeichen werden automatisch in mehrere SMS aufgteielt.
''' </param>
''' <returns>True bei Erfolg, False bei Mißerfolg</returns>
''' <remarks></remarks>
Public Function SendSingleSMS(f_Uri as String) As Boolean
 
   Dim m_httpWRequest As HttpWebRequest
   Dim m_httpWResponse As HttpWebResponse
   Dim m_Ret as Boolean= = False
   Dim m_Val as string =""
 
   Try
      m_httpWRequest = HttpWebRequest.Create(f_Uri)
      m_httpWResponse = m_httpWRequest.GetResponse
      m_Val= httpWResponse.StatusDescription.ToString.ToUpper
      If  m_Val <> "OK" Then
         Throw New InvalidDataException(m_Val)
      End If
      ' Read the Response Steam.
      m_Val = New StreamReader(m_httpWResponse.GetResponseStream( _
        )).ReadToEnd.ToUpper
      If Strings.Right(m_Val, 2) <> "OK" Then
         Throw New InvalidDataException(m_Val)
      End If
      m_Ret=True
   Catch ex As Exception
       m_Ret = False
   Finally
       m_httpWRequest = Nothing
       m_httpWResponse = Nothing
   End Try
   Return m_Ret
End Function