Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server


Partial Public Class StoredProcedures

    Public Sub XSendSmska1(ByVal sNumber As String, ByVal sText As String, ByVal sSender As String, ByRef outResult As String)

        ' Входные параметры
        'Dim sNumber As String = "7916XXXXXXXX" '"7916XXXXXXXX"
        'Dim sText As String = "Это тестовое сообщение"
        'Dim sSender As String = "PassportObj" 'PassportObj или Directum или SMS4TEST
        'Dim sPhoneID As String = "1"

        ' Выходные (результат) параметры
        'Dim outResult As String

        ' URL

        Dim myHttpWebRequest As HttpWebRequest
        myHttpWebRequest = HttpWebRequest.Create("https://my.sms16.ru/xml/")
        ' POST
        myHttpWebRequest.Method = "POST"
        ' заголовок сообщения
        myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MyIE2;"
        myHttpWebRequest.Accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint,  application/msword, */*"
        myHttpWebRequest.Headers.Add("Accept-Language", "ru")
        myHttpWebRequest.ContentType = "text/xml"

        'текст запроса
        Dim sQueryString As String = "<?xml version=""1.0"" encoding=""utf-8"" ?>" & _
                                    "<request>" & _
                                    "<message type=""sms"">" & _
                                    "<sender>" & sSender & "</sender>" & _
                                    "<text>" & sText & "</text>" & _
                                    "<abonent phone=""" & sNumber & """ number_sms=""1"" />" & _
                                    "</message>" & _
                                    "<security>" & _
                                    "<login value=""manager"" />" & _
                                    "<password value=""manger1"" />" & _
                                    "</security>" & _
                                    "</request>"
        Dim ByteArr As Byte() = Encoding.GetEncoding("utf-8").GetBytes(sQueryString)
        myHttpWebRequest.ContentLength = ByteArr.Length()
        myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length)

        ' выполняем запрос
        Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse()
        If (String.Compare(myHttpWebRequest.ContentType, "text/xml", True) <> 0) Then
            Throw New ApplicationException("Invalid content type specified")
        End If
        'Получаем ответ:
        Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.GetEncoding("utf-8"))
        outResult = myStreamReader.ReadToEnd()

        ' эта строчка в новой процедуре будет не нужна, т.к. это для отладки
        'text_box.Text = outResult
    End Sub

End Class