Imports System.Net
Imports System.Web
Imports System.Collections.Specialized
Imports System.IO
Imports System.Text
     
Public Class sendSMS
Public Function sendSMS()
Dim uname = "youremail@address.com"
Dim hash = "Your API hash"
Dim message = "This is your message"
Dim numbers = "917735838811"
Dim strGet As String
Dim sender = "WEBADD"
Dim url As String = "http://sms.webadd/api2/send/?"
     
strGet = url + "username=" + uname _
+ "&hash=" + hash _
+ "&numbers=" + numbers _
+ "&message=" + WebUtility.UrlEncode(message) _
+ "&sender=" + sender
     
Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString(strGet)
Console.WriteLine(result)
Return result
End Function
End Class