1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim SMSReq As String = "" & String.Format("http://{0}:{1}/sendmsg?user={2}&passwd={3}&cat=1&to=""{4}""&text={5}", _
My.Settings.SMSBox, _
My.Settings.PortSMSBox, _
My.Settings.UserSMSBox, _
My.Settings.PwdSMSBox, _
numtel, _
txt)
Dim request As Net.WebRequest = DirectCast(Net.WebRequest.Create(SMSReq), Net.WebRequest)
Dim response As Net.WebResponse = request.GetResponse()
Dim reader As New StreamReader(response.GetResponseStream())
Dim idSMS As String = reader.ReadToEnd()
reader.Close() |