Imports System
Imports System.Net
Imports System.Web
Imports System.IO
Imports System.Text

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim username As String = "YourUserName"
        Dim password As String = "YourPassword"
        Dim mobileNumber As String = "919XXXXXXXXX"
        Dim message As String = HttpUtility.UrlEncode("Hello from VB.NET SMS API!")
        Dim senderId As String = "SMSCountry"

        Dim apiUrl As String = String.Format(
            "http://smscountry.com/SMSCwebservice_Bulk.aspx?User={0}&passwd={1}&mobilenumber={2}&message={3}&sid={4}&mtype=N&DR=Y",
            username, password, mobileNumber, message, senderId
        )

        Try
            Dim request As HttpWebRequest = CType(WebRequest.Create(apiUrl), HttpWebRequest)
            request.Method = "GET"

            Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
                Using reader As New StreamReader(response.GetResponseStream(), Encoding.UTF8)
                    Dim serverResponse As String = reader.ReadToEnd()
                    Response.Write("Server Response: " & serverResponse)
                End Using
            End Using
        Catch ex As Exception
            Response.Write("Error sending SMS: " & ex.Message)
        End Try
    End Sub
End Class