Imports System.IO Imports System.Net Dim client As WebClient = New WebClient ' Add a user agent header in case the requested URI contains a query. client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)") client.QueryString.Add("user", "[username]") client.QueryString.Add("password", "[password]") client.QueryString.Add("api_id", "[api_id]") client.QueryString.Add("to", "1234567890") client.QueryString.Add("text", "This is an example message") Dim baseurl As String = "http://api.clickatell.com/http/sendmsg" Dim data As Stream = client.OpenRead(baseurl) Dim reader As StreamReader = New StreamReader(data) Dim s As String = reader.ReadToEnd() data.Close() reader.Close() MessageBox.Show(s) Return
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)