Module SMS Sub Main()
'SPIRIcom HTTP GET VB.NET example 'Change this to your username Dim user As String = "myuser" 'Change this to your password Dim pass As String = "mypass" 'Sender of the short message Dim from As String = "+467123456789" 'Recipient of the short message Dim toNumber As String = "+467123456789" 'This is the short message to be sent Dim msg As String = "test" 'Create and send the GET-request and then parse the response as a string Dim result As String Try Dim webClient As System.Net.WebClient = New System.Net.WebClient() result = webCLient.DownloadString("http://get.spiricom.spirius.com:55000/cgi-bin/sendsms?User=" + user + "&Pass=" + pass + "&From=" + from + "&To=" + toNumber + "&Msg=" + msg) Catch ex as Exception result = ex.Message End Try System.Console.Write(result) End Sub End Module