Message="Το κείμενό σας" 

Message=Replace(Message,"","%20")
 
PostData="userid="&username&"&password="&password&"&from="&Sender&"&message="&Message&"&to="&ToNumber&"&rid="&username
URL="http://www.lexiconsoftware.gr/sms/warrior.asp"
Dim httprequest As HttpWebRequest
Dim httpresponse As HttpWebResponse
Dim BodyReader As StreamReader
Dim BodyText As String=""
Dim ResponseStream As Stream
Dim RequestStream As Stream
 
httprequest=CType(WebRequest.Create(URL),HttpWebRequest)
httprequest.Method="POST"
httprequest.ContentType="application/x-www-form-urlencoded"
httprequest.ContentLength=PostData.Length
RequestStream=httprequest.GetRequestStream()
RequestStream.Write(Encoding.Default.GetBytes(PostData),0,PostData.Length)
RequestStream.Close()
httpresponse=CType(httprequest.GetResponse(),HttpWebResponse)
ResponseStream=httpresponse.GetResponseStream()
BodyReader=New StreamReader(ResponseStream)
BodyText=BodyReader.ReadToEnd
RESPONSE.WRITE BodyText