'This is done on visual studio
   'Just create a new project of vb on VS Studio
   'Right Click on Solution Exloprer of project and Selct Add Web Refernces
   'On popup box give url as 'http://www.smscountry.com/service.asmx' on textbox and select GO
   'And give the namespace, here we give 'SMSC_VB_CLIENT'


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          'create object to Service class, which is under namespace we given
        Dim client As New SMSC_VB_CLIENT.Service()
        
              'give the username,password,.....
            
        'method for sending text sms
        MsgBox(client.SendTextSMS("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", "TYPE YOUR TEXT SMS", "SENDERID"))

        'method for sending flash sms
        MsgBox(client.SendFlashSMS("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", "TYPE YOUR FLASH SMS", "SENDERID"))

        'method for sending binary sms
        MsgBox(client.SendBinarySMS("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", "TYPE YOUR Binary SMS", "SENDERID"))

        'method for sending unicode sms means laungauge sms,so u should enter text in Hexa Format 
        'Example:below is original arabic Text
       Dim langData as String="063506280627062D002006270644062E064A0631"        
         MsgBox(client.SendUnicodeSMS("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...",langData, "SENDERID"))

        'method for sending logo,so u should enter Text in HEXA Format,As Example Shown Below
        'for   'OTA Operater LOGO'
       Dim logoData As String="00480E0100003F0FF3F007900007FFFFFE3FFC0C900007FFFFF83FFF189000030
                               E1E3C7FFFFDB40001840C1E7FFFFF640000CDCCEFFFFFFE4C00007D616FFFFFFC1800003F
                               E1FFFFFFF800000030FDC3FFFE3C000000703803FFFCFC000003F89103FFFDFE0000047C7
                               E0FE3FB1E0000083F807FC1FF0E00000ABFFFFFD5FEA60000"  
        MsgBox(client.SendLOGO("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", logoData, "SENDERID"))

        ' method for sending picture sms, so u should enter in HEXA format, As Example Below
        ' for 'OTA PICTURE MESSAGE '           picData=OTA BIT FILE+BLANK SPACE+ TEXT MESSAGE
       Dim picData As String="00481C0100000000000000000000003FF0000FFC00000003FFE04207FFC00000
                              1FFFC06603FFF800007FFFC07E03FFFE0000FFFFC07E03FFFF0001FFFFE3FFC7FFFF8003FF
                              FFFFFFFFFFFFC007FFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFF01FFFFF3E7E7CFFFFF83FFFFF0C
                              7E30FFFFFC3BE3C3805A01C3C7DC61C181C0D303818386C080804010020101030000000
                              0000000000000000000000000000000000007BE000000000000000FBF00000000000000
                              0FBF0000000000000007BE0000000000000003BC00000000000003FFDFFC00000000000
                              7FFDFFE000000000001C3DF3C000000000003E7DE7E000000000007FFDFFF00000000000
                              F3F8FE7800000 Hello, this is a picture with text message"

        MsgBox(client.SendPictureSMS("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", picData, "SENDERID"))

        'method for sending wap URL,enter ur URL
        MsgBox(client.SendWapPush("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", "TYPE YOUR TEXT", "SENDERID", "URL"))

        'method for sending rintgtone,so u should enter Text in Hexa format, As Example Shown Below
         ' for OTA RINGTONE
        Dim ringData As String="024A3A5505519585B4041E4D1EA28849B628A1084126589368494490624C41
                                 26E0A28C49B628B314508420A24D511824DC1265A9364000"
        MsgBox(client.SendRingTone("USERNAME", "PASSWORD", "91XXXXXX,91XXXXX,...", ringData, "SENDERID"))

        'method for getbalance
        MsgBox(client.Getbalance("USERNAME", "PASSWORD"))

        'method for GetDeliveryReport
        MsgBox(client.GetDeliveryReport("USERNAME", "PASSWORD", SMS_Job_No))
        
    End Sub
End Class