Imports System.Net Imports System.IO Dim client As WebClient = New WebClient client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)") client.QueryString.Add("id", "940000000") client.QueryString.Add("pw", "0000") client.QueryString.Add("to", "0772823050") client.QueryString.Add("text", "This is an example message") Dim baseurl As String = "http://textit.biz/sendmsg/index.php" Dim data As Stream = client.OpenRead(baseurl) Dim reader As StreamReader = New StreamReader(data) Dim s As String = reader.ReadToEnd() data.Close() reader.Close() Return
(Replace [id], [pw], with your username and password. Insert recipient number and text message to [to] and
fields)