ارسال SMS از طریق VB.net

[feri_sharp]

سلام دوستان.
من دارم یک برنامه برای ارسال SMS با VB.net می نویسم. می خواستم بدونم کد زیر برای یکی از قسمت های برنامه جواب میده؟ و اینکه اون سروری که ازش سرویس پیام کوتاه می گیریم هم باید این امکان رو Support کنه؟
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Public Class fMain
Dim username As String
Dim password As String
Dim host As String
Dim originator As String
Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click
Dim request As HttpWebRequest
Dim response As HttpWebResponse = Nothing
Dim url As String
Try

url = host + "/api?action=sendmessage&" _
& "username=" & HttpUtility.UrlEncode(username) _
& "&password=" + HttpUtility.UrlEncode(password) _
& "&recipient=" + HttpUtility.UrlEncode(tbReceiver.Text) _
& "&messagetype=SMS:TEXT" _
& "&messagedata=" + HttpUtility.UrlEncode(tbMessage.Text) _
& "&originator=" + HttpUtility.UrlEncode(originator) _
& "&serviceprovider=" _
& "&responseformat=html"


request = DirectCast(WebRequest.Create(url), HttpWebRequest)
request.Method = "POST"
response = DirectCast(request.GetResponse(), HttpWebResponse)

MessageBox.Show("Response: " & response.StatusDescription)

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
username = TextBox1.Text
password = TextBox2.Text
host = TextBox3.Text
bSend.Enabled = True
End Sub
End Class
مثلا این سرور:

http://www.2972.ir/
ممنون . موفق باشید

[feri_sharp]

دوستان کسی جواب این سوال من رو نمیده؟
من راحت شم؟
موفق باشید