Отправка смс через сайт оператора сотовой связи

 'Получаем картинку
        Dim Request As HttpWebRequest
        Dim Response As HttpWebResponse
        Dim Cookie As New CookieContainer
        Request = HttpWebRequest.Create("http://www.tcell.tj/sendsms/img.php?0.80565465")
        Request.Method = "GET"
        Request.KeepAlive = True
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Request.CookieContainer = Cookie
        Response = Request.GetResponse
        Dim R As New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default)
        IO.File.WriteAllText("E:\img.jpg", R.ReadToEnd, System.Text.Encoding.Default)
        'Отправляем запрос
        Dim fcod As String = InputBox("Enter code:", "Image Code")
        Dim Address0 As String = "99293"
        Dim Address As String = "1234567"
        Dim ShowOnDisplay As String = "on"
        Dim Message As String = "My Text"
        Dim Submit As String = "Отправить"
        Dim SendData As String = "fcod=" & fcod & "&Address0=" & Address0 & "&Address=" & Address & "&ShowOnDisplay=" & ShowOnDisplay & "&Message=" & Message & "&Submit=" & Submit
        Request = HttpWebRequest.Create("http://www.tcell.tj/sendsms/sms.php")
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.ContentLength = SendData.Length
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.AllowAutoRedirect = False
        Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Request.CookieContainer = Cookie
        Dim requestStream As Stream = Request.GetRequestStream()
        Dim postBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(SendData)
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        Response = Request.GetResponse
        Dim Result = New StreamReader(Response.GetResponseStream()).ReadToEnd()
        IO.File.WriteAllText("E:\result.txt", Result)

Imports System.Net
Imports System.Text
Imports System.IO
Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim serverurl As String = "C:\Users\Asus\Documents\Visual Studio 2012\Projects\WebApplication2\WebApplication2"
    Dim Requesti As HttpWebRequest
    Dim Responsei As HttpWebResponse
    Dim Cookiei As New CookieContainer
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim adress0 As String
        adress0 = Mid(TextBox1.Text, 2, 5)
        Dim adress As String
        adress = Mid(TextBox1.Text, 7, 9)
        Dim Submit As String = "Отправить"
        Dim Message As String = TextBox2.Text
        'Отправляем запрос
        Dim fcod As String = TextBox2.Text
        Dim SendData As String = "fcod=" & fcod & "&Address0=" & adress0 & "&Address=" & adress & "&ShowOnDisplay=off" & "&Message=" & Message & "&Submit=" & Submit
        Requesti = HttpWebRequest.Create("http://www.tcell.tj/sendsms/sms.php")
        Requesti.ContentType = "application/x-www-form-urlencoded"
        Requesti.Method = "POST"
        Requesti.KeepAlive = True
        Requesti.AllowAutoRedirect = False
        Requesti.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
        Requesti.CookieContainer = Cookiei
        Dim postBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(SendData)
        Requesti.ContentLength = postBytes.Length
        Dim requestStream As Stream = Requesti.GetRequestStream()
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        Responsei = Requesti.GetResponse
        Dim Result = New StreamReader(Responsei.GetResponseStream()).ReadToEnd()
        IO.File.WriteAllText(serverurl & "\result.txt", Result)
    End Sub
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Me.IsPostBack Then
        Else
            Requesti = HttpWebRequest.Create("http://www.tcell.tj/sendsms/img.php?0.80565465")
            Requesti.Method = "GET"
            Requesti.KeepAlive = True
            Requesti.UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0"
            Requesti.CookieContainer = Cookiei
            Responsei = Requesti.GetResponse
            Dim R As New StreamReader(Responsei.GetResponseStream, System.Text.Encoding.Default)
            IO.File.WriteAllText(serverurl & "\img.jpg", R.ReadToEnd, System.Text.Encoding.Default)
            imga.Src = "img.jpg"
        End If
    End Sub
End Class