Автоматизация отправки SMS сообщений через определенный сайт

Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim adress0 As String
        Dim adress As String
        adress0 = Mid(TextBox1.Text, 2, 5)
        adress = Mid(TextBox1.Text, 7, 9)
        MsgBox(adress0 & adress)
        PostData("http://www.tcell.tj/sendsms/sms.php", "fcod=" & TextBox3.Text & "&Address0=" & adress0 & "&Address=" & adress & "&Message=" & TextBox2.Text & "&Submit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C", New System.Net.CookieContainer)
    End Sub
    Public Function PostData(ByRef URL As String, ByRef POST As String, ByRef Cookies As CookieContainer) As String
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        request = CType(WebRequest.Create(URL), HttpWebRequest)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = POST.Length
        request.Method = "POST"
        request.AllowAutoRedirect = False
        Dim requestStream As Stream = request.GetRequestStream()
        Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()
        response = CType(request.GetResponse(), HttpWebResponse)
        Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PictureBox1.ImageLocation = "http://www.tcell.tj/sendsms/img.php?0.80565465"
    End Sub
End Class