asp.net (VB) write the background to send SMS implementation code _ Practical skills

Copy Code code as follows:

Dim PostData as String
Dim ByteArray as Byte ()
Dim Objwebrequest as HttpWebRequest
Dim Newstream as Stream

PostData = "Cell= SMS Provider provides information 1&enterpriseid= SMS Provider information 2&mobile= mobile phone number 1, mobile phone number 2&message= send data test ... "
Objwebrequest = WebRequest.Create ("http://xxx.yyy.com.cn/SmsSend.jsp")
Objwebrequest.method = "POST"
Objwebrequest.contenttype = "application/x-www-form-urlencoded"

ByteArray = System.Text.Encoding.UTF8.GetBytes (postdata)
Objwebrequest.contentlength = Bytearray.length
Newstream = Objwebrequest.getrequeststream ()
Newstream.write (ByteArray, 0, Bytearray.length)
Newstream.close ()

' Return data
Dim Response as HttpWebResponse
Dim SR as StreamReader
Dim Textresponse as String
Response = Objwebrequest.getresponse ()
sr = New StreamReader (response. GetResponseStream (), System.Text.Encoding.Default)
Textresponse = Sr. ReadToEnd ()