'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
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
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
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