Bulk SMS API

SMSCluster » Service » Bulk SMS API

Need help? Call us now on +91- 94068-11127

Send SMS Gateway API – VB6

This command can be used to send text messages to either individual numbers or entire contact groups.

Sample Request

                    
    
                        
  1. Private Sub Command1_Click()
    2. 
                        
  2.  Dim authKey, URL, mobiles, senderId, smsContentType, message, groupId, signature, routeId As String
    3. 
                        
  3.     Dim V_signature, V_groupId, scheduleddate, V_scheduleddate As String
    4. 
                        
  4.     Dim objXML As Object
    5. 
                        
  5.     Dim getDataString As String
    6. 
                        
  6. 	
    7. 
                        
  7.     authKey = "Sample Auth key" 'eg -- 16 digits alphanumeric
    8. 
                        
  8.     URL = "Sample"  'eg-- www.abc.com
    9. 
                        
  9.     mobiles = "Sample" '99999999xx,99999998xx
    10. 
                        
  10.     smsContentType = "english" 'eg - english or unicode
    11.   
                        
  11.     message = "Hello this is test"
    12. 
                        
  12.     senderId = "Sample" 'eg -- Testin'
    13. 
                        
  13.     routeId = “Sample" 'eg 1'
    14. 
                        
  14.     scheduleddate = "" ‘optional if(scheduledate  eg “26/08/2015 17:00”)
    15. 
                        
  15.     signature ="" ‘optional if(signature available  eg “1”)
    16. 
                        
  16.     groupId ="" ‘optional if(groupId available eg “1”)
    17. 
                        
  17. 
                        
  18.     If (Len(signature) > 0) Then
    19. 
                        
  19.         V_signature = "&signature=" & signature
    20. 
                        
  20.     End If
    21. 
                        
  21.     If (Len(groupId) > 0) Then
    22. 
                        
  22.         V_groupId = "&groupId=" & groupId
    23. 
                        
  23.     End If
    24. 
                        
  24.     If (Len(scheduleddate) > 0) Then
    25. 
                        
  25.         V_scheduleddate = "&scheduleddate=" & scheduleddate
    26. 
                        
  26.     End If
    27. 
                        
  27.     URL = "Sample"
    28. 
                        
  28.     'use for API Reference
    29. 
                        
  29.     Set objXML = CreateObject("Microsoft.XMLHTTP")
    30. 
                        
  30.     'creating data for url
    31. 
                        
  31.     getDataString = URL + "AUTH_KEY=" + authKey + "&smsContent=" + message + "&mobileNos=" + mobiles + "&senderId=" + senderId + "&routeId=" + routeId + "&smsContentType=" + smsContentType + V_scheduleddate + V_groupId + V_signature
    32. 
                        
  32.     objXML.Open "GET", getDataString, False
    33. 
                        
  33.     objXML.Send
    34. 
                        
  34.      If Len(objXML.ResponseText) > 0 Then
    35. 
                        
  35.             MsgBox objXML.ResponseText
    36. 
                        
  36.      End If
    37. 
                        
  37. End Sub
    38. 
                        
  38. 
                        
  39. Function URLEncode(ByVal Text As String) As String
    40. 
                        
  40.     Dim i As Integer
    41. 
                        
  41.     Dim acode As Integer
    42. 
                        
  42.     Dim char As String
    43. 
                        
  43.     
                        
  44.     URLEncode = Text
    45. 
                        
  45.     
                        
  46.     For i = Len(URLEncode) To 1 Step -1
    47. 
                        
  47.         acode = Asc(Mid$(URLEncode, i, 1))
    48. 
                        
  48.         Select Case acode
    49. 
                        
  49.             Case 48 To 57, 65 To 90, 97 To 122
    50. 
                        
  50.                 ' don't touch alphanumeric chars
    51. 
                        
  51.             Case 32
    52. 
                        
  52.                 ' replace space with "+"
    53. 
                        
  53.                 Mid$(URLEncode, i, 1) = "+"
    54. 
                        
  54.             Case Else
    55. 
                        
  55.                 ' replace punctuation chars with "%hex"
    56. 
                        
  56.                 URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
    57. 
                        
  57.                     (URLEncode, i + 1)
    58. 
                        
  58.         End Select
    59. 
                        
  59.     Next
    60. 
                        
  60.     
                        
  61. End Function
    62. 
                    

              
                    
    
                        
  1. Private Sub Command1_Click()
    2. 
                        
  2. 
                        
  3.     Dim As Object
    4. 
                        
  4.     Dim message As String
    5. 
                        
  5.     Dim authKey As String
    6. 
                        
  6.     Dim mobileNos As String
    7. 
                        
  7.     Dim senderId As String
    8. 
                        
  8.     Dim routeId As String
    9. 
                        
  9.     Dim groupId As String
    10. 
                        
  10.     Dim sURL, URL As String
    11. 
                        
  11.     Dim smsContentType As String
    12. 
                        
  12.     Dim signature As String
    13. 
                        
  13.     Dim returnData As String
    14. 
                        
  14.     'Set these variables
    15. 
                        
  15. 
	                    
  16.     authKey = "Sample Auth key"'eg -- 16 digits alphanumeric
    17. 
                        
  17.     URL = "Sample"'eg-- www.abc.com
    18. 
                        
  18.     mobileNos = "Sample"'99999999xx,99999998xx
    19. 
                        
  19.     smsContentType = "english"'eg - english or unicode
    20.   
                        
  20.     message = "Hello this is test"
    21. 
                        
  21.     senderId = "Sample" 'eg -- Testin'
    22. 
                        
  22.     routeId = “Sample" 'eg 1'
    23. 
                        
  23.     scheduleddate = "" ‘optional if(scheduledate  eg “26/08/2015 17:00”)
    24. 
                        
  24.     signature ="" ‘optional if(signature available  eg “1”)
    25. 
                        
  25.     groupId ="" ‘optional if(groupId available eg “1”)
    26.     
                        
  26.  
    27. 	
	                    
  27.     'adding URL + AuthKey
    28. 
                        
  28.     sURL = URL & "?AUTH_KEY=" & authKey
    29. 
                        
  29.     Set objXML = CreateObject("Microsoft.XMLHTTP")
    30. 
                        
  30.     objXML.Open "POST", sURL, False
    31. 
                        
  31.     objXML.SetRequestHeader "Content-Type", "application/json"
    32. 
                        
  32.  
    33.        
                        
  33.             returnData = SendSMSPostData(message, senderId, routeId, mobileNos, smsContentType, signature, groupId, scheduleddate)
    34. 
                        
  34.  
    35.        
                        
  35.       '  Text1.Text = returnData
    36. 
                        
  36.  
    37. 
                        
  37.     objXML.Send returnData
    38. 
                        
  38.     MsgBox returnData
    39. 
                        
  39.  
    40.  
                        
  40.  ' objXML.Send (returnData)
    41. 
                        
  41.  
    42.    
                        
  42.     '"AUTH_KEY=" + authKey + "smsContent=" + message + "&mobileNumbers=" + mobiles + "&senderId=" + sender + "&routeId=" + route + "&smsContentType=" + smsContent
    43. 
                        
  43.      If Len(objXML.ResponseText) > 0 Then
    44. 
                        
  44.             MsgBox objXML.ResponseText
    45. 
                        
  45.  
    46.            
                        
  46.      End If
    47. 
                       
  47.  End Sub
    48. 
                       
  48. 
                       
  49.  Function SendSMSPostData(smsContent As String, senderId As String, routeId As String,
    50. 
                       
  50.  mobileNos As String, smsContentType As String, signature As String, groupId As String, scheduleddate As String) As String
    51. 
                       
  51.  Dim data, V_groupId, V_mobileNos, V_senderId, V_smsContentType, V_signature, V_routeId, V_authKey, V_smsContent, V_scheduleddate As String
    52. 
                       
  52. 
                       
  53.  'V_authKey = "AUTH_KEY=" & authKey
    54. 
                       
  54.  'sURL = "Sample"
    55. 
                       
  55. 
                       
  56.  V_smsContent = "{""smsContent""" & ":""" & smsContent & ""","
    57. 
                       
  57. 
                       
  58.  V_routeId = """routeId""" & ":""" & routeId & ""","
    59. 
                       
  59. 
                       
  60.  V_groupId = """groupId""" & ":""" & groupId & ""","
    61. 
                       
  61.  V_mobileNos = """mobileNumbers""" & ":""" & mobileNos & ""","
    62. 
                       
  62.  V_senderId = """senderId""" & ":""" & senderId & ""","
    63. 
                       
  63.  V_smsContentType = """smsContentType""" & ":""" & smsContentType & """"
    64. 
                       
  64.  data = V_smsContent & V_senderId & V_routeId & V_mobileNos & V_smsContentType & V_signature
    65. 
                       
  65. 
                       
  66.  If (Len(signature) > 0) Then
    67. 
                       
  67.      V_signature = ",""signature""" & ":""" & signature & """"
    68. 
                       
  68.      data = data + V_signature
    69. 
                       
  69.     
                       
  70.     ' MsgBox V_signature
    71. 
                       
  71.     
                       
  72.  End If
    73. 
                       
  73.  If (Len(groupId) > 0) Then
    74. 
                       
  74.      V_groupId = ",""groupId""" & ":" & """ groupId & """""
    75. 
                       
  75.      data = data + V_groupId
    76. 
                       
  76.      'MsgBox V_signature
    77. 
                       
  77.     
                       
  78.  End If
    79. 
                       
  79.  If (Len(scheduleddate) > 0) Then
    80. 
                       
  80.      V_scheduleddate = ",""scheduleddate""" & ":" & """ scheduleddate & """""
    81. 
                       
  81.     ' data = data + V_scheduleddatev
                       
  82.     
                       
  83.    
                       
  84.  End If
    85. 
                       
  85. 
                       
  86.  data = data + "}"
    87. 
                       
  87. 
                       
  88.   SendSMSPostData = data
    89. 
                       
  89. 
                       
  90.  End Function
    91. 
                       
  91.  Function URLEncode(ByVal Text >As String) As String
    92. 
                       
  92.      Dim i As Integer
    93. 
                       
  93.      Dim acode As Integer
    94. 
                       
  94.      Dim char As String
    95. 
                       
  95.     
                       
  96.      URLEncode = Text
    97. 
                       
  97.     
                       
  98.      For i = Len(URLEncode) To 1 Step -1
    99. 
                       
  99.          acode = Asc(Mid$(URLEncode, i, 1))
    100. 
                       
  100.          Select Case acode
    101. 
                       
  101.              Case 48 To 57, 65 To 90, 97 To 122
    102. 
                       
  102.                  ' don't touch alphanumeric chars
    103. 
                       
  103.              Case 32
    104. 
                       
  104.                  ' replace space with "+"
    105. 
                       
  105.                  Mid$(URLEncode, i, 1) = "+"
    106. 
                       
  106.              Case Else
    107. 
                       
  107.                  ' replace punctuation chars with "%hex"
    108. 
                       
  108.                  URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
    109. 
                       
  109.                      (URLEncode, i + 1)
    110. 
                       
  110.          End Select
    111. 
                       
  111.      Next
    112. 
                       
  112. 
                       
  113. Function
    114. 
                    

              
                    
    
                        
  1. Private Sub Command1_Click()
    2. 
                        
  2.      Dim objXML As Object
    3. 
                        
  3.      Dim message As String
    4. 
                        
  4.      Dim authKey As String
    5. 
                        
  5.      Dim mobileNos As String
    6. 
                        
  6.      Dim senderId As String
    7. 
                        
  7.      Dim routeId As String
    8. 
                        
  8.      Dim groupId As String
    9. 
                        
  9.      Dim sURL, URL As String
    10. 
                        
  10.      Dim smsContentType As String
    11. 
                        
  11.      Dim signature As String
    12. 
                        
  12.      Dim returnData As String
    13. 
                        
  13.       'Set these variables
    14. 
                        
  14. 
	                    
  15.      authKey = "Sample Auth key" 'eg -- 16 digits alphanumeric
    16. 
                        
  16.      URL = "Sample"  'eg-- www.abc.com
    17. 
                        
  17.      mobileNos = "Sample" '99999999xx,99999998xx
    18. 
                        
  18.      smsContentType = "english" 'eg - english or unicode
    19.   
                        
  19.      message = "Hello this is test"
    20. 
                        
  20.      senderId = "Sample" 'eg -- Testin'
    21. 
                        
  21.      routeId = “Sample" 'eg 1'
    22. 
                         
  22.      scheduleddate = "" ‘optional if(scheduledate  eg “26/08/2015 17:00”)
    23. 
                         
  23.      signature ="" ‘optional if(signature available  eg “1”)
    24. 
                         
  24.      groupId ="" ‘optional if(groupId available eg “1”)
    25.     
                         
  25.    
    26. 
                         
  26.    'adding URL + AuthKey
    27. 
                         
  27.     sURL = URL & "?AUTH_KEY=" & authKey
    28. 
                         
  28.     Set objXML = CreateObject("Microsoft.XMLHTTP")
    29. 
                         
  29.     objXML.Open "POST", sURL, False
    30. 
                         
  30.     objXML.SetRequestHeader "Content-Type", "application/xml"
    31. 
                         
  31.        
    32. 
                         
  32.        returnData = SendSMSXMLData(authKey, message, senderId, routeId, mobileNos, smsContentType, signature, groupId, "")
    33. 
                         
  33.        
    34. 
                         
  34.      '  Text1.Text = returnData
    35. 
                         
  35.     objXML.Send (returnData)
    36. 
                         
  36.    
    37. 
                         
  37.    '"AUTH_KEY=" + authKey + "smsContent=" + message + "&mobileNumbers=" + mobiles + "&senderId=" + sender + "&routeId=" + route + "&smsContentType=" + smsContent
    38. 
                         
  38.     If Len(objXML.ResponseText) > 0 Then
    39. 
                         
  39.            MsgBox objXML.ResponseText
    40. 
                         
  40.            
    41. 
                         
  41.     End If
    42. 
                       
  42.  End Sub
    43. 
                        
  43. 
                        
  44. Function URLEncode(ByVal Text As String) As String
    45. 
                        
  45.          Dim i As Integer
    46. 
                        
  46.          Dim acode As Integer
    47. 
                        
  47.          Dim char As String
    48. 
                        
  48.     
    49. 
                        
  49.     URLEncode = Text
    50. 
                        
  50.     
    51. 
                        
  51.     For i = Len(URLEncode) To 1 Step -1
    52. 
                        
  52.         acode = Asc(Mid$(URLEncode, i, 1))
    53. 
                        
  53.         Select Case acode
    54. 
                        
  54.             Case 48 To 57, 65 To 90, 97 To 122
    55. 
                        
  55.                 ' don't touch alphanumeric chars
    56. 
                        
  56.             Case 32
    57. 
                        
  57.                 ' replace space with "+"
    58. 
                        
  58.                 Mid$(URLEncode, i, 1) = "+"
    59. 
                        
  59.             Case Else
    60. 
                        
  60.                 ' replace punctuation chars with "%hex"
    61. 
                        
  61.                 URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
    62. 
                        
  62.                     (URLEncode, i + 1)
    63. 
                        
  63.         End Select
    64. 
                        
  64.     Next
    65. 
                        
  65.     
    66. 
                        
  66. End Function
    67. 
                        
  67. 
                        
  68. Function SendSMSXMLData(authKey As String, smsContent As String, senderId As String, routeId As String, mobileNos As String, 
    69. 
                        
  69. smsContentType As String, signature As String, groupId As String, scheduleddate As String) As String
    70. 
                        
  70. Dim data, V_groupId, V_mobileNos, V_senderId, V_smsContentType, V_signature, V_routeId, V_authKey, V_smsContent, V_scheduleddate As String
    71. 
                        
  71. 
                        
  72. 'V_authKey = "AUTH_KEY=" & authKey
    73. 
                        
  73. 'sURL = "http://167.114.186.70/rest/services/sendSMS/sendGroupSms" 
    74. 
                        
  74. 
                        
  75. V_smsContent = "<smsContent>" & smsContent & "</smsContent>"
    76. 
                        
  76. 
                        
  77. V_routeId = "<routeId>" & routeId & "</routeId>"
    78. 
                        
  78. 
                        
  79. V_mobileNos = "<mobileNumbers>" & mobileNos & "</mobileNumbers>" '"""mobileNumbers""" & ":""" & mobileNos & ""","
    80. 
                        
  80. V_senderId = "<senderId>" & senderId & "</senderId>" '"""senderId""" & ":""" & senderId & ""","
    81. 
                        
  81. V_smsContentType = "<smsContentType>" & smsContentType & "</smsContentType>" '"""smsContentType""" & ":""" & smsContentType & """"
    82. 
                        
  82. 
                        
  83. If (Len(signature) > 0) Then
    84. 
                        
  84.     V_signature = "<signature>" & signature & "</signature>" ' ",""signature""" & ":""" & signature & """"
    85. 
                        
  85.     
                        
  86. End If
    87. 
                        
  87. If (Len(groupId) > 0) Then
    88. 
                        
  88.     V_groupId = ",""groupId""" & ":" & """ groupId & """""
    89. 
                        
  89.     
                        
  90. End If
    91. 
                        
  91. If (Len(scheduleddate) > 0) Then
    92. 
                        
  92.     V_scheduleddate = ",""scheduleddate""" & ":" & """ scheduleddate & """""
    93. 
                        
  93.     
                        
  94. End If
    95. 
                        
  95. 
                        
  96. 'data = data + "</SMS>"
    97. 
                        
  97. 
                        
  98. data = "<Sms>" + "<AUTH_KEY>" + authKey + "</AUTH_KEY>" + V_smsContent & V_senderId & V_routeId & V_mobileNos & V_smsContentType & V_signature + "</Sms>"
    99. 
                        
  99.  SendSMSXMLData = data
    100. 
                        
  100. 
                        
  101. End Function
    102.

Caution: Some users opt to place their request inside a code loop, while testing we highly recommend setting the test parameter to true , as occasionally an infinite loop can occur and users can consume all their credits very quickly.

We aim to make messaging easy and therefore,we provide our Bulk SMS API functionality so that the user can Send SMS from anywhere and everywhere. We do provide our SMS APIs for each and every purpose i.e. text message API, Bulk SMS API, Scheduled SMS API, GetBalance, Add Balance, Delivery status, SMS API, Send SMS Gateway API etc.

We provide our users with a wide range of Bulk SMS APIs which in turn help our users to avoid unnecessary coding and struggling which saves their time.

Discover appropriate Bulk SMS API for your need and utilise messaging services to its best. We provide our users with APIs for each and every purpose. Integrate distinct API with sample codes as per choice of programming language. You can easily Send Bulk SMS in case of heavy traffic via our VB6 API. We are providing various SMS VB6 API to integrate it in your software and increase its functionality.

How to integrate bulk sms gateway api in VB 6 ?

    • Sign up with SMS Cluster and go to developer tool for VB 6 Api and follow the simple steps to integrate bulk SMS API in your website. You will get POST and GET both type of send sms VB 6 API which are ready to use and source code for sms gateway. Our Send sms VB 6 script is used by many software companies and startups as sms verification api in India.Our sms api documentation is one of best for sms api for VB 6 developers
      We are sms api providers for sms notification system, signup messages, alert message and verification code using VB 6 code. Our developer guide also help our clients sms gateway api integration in VB 6 websites or softwares
      We also have ready wordpress sms api and drupal sms api.

How to send verification code to mobile using VB 6 ?

    • To send the verification code to mobile through SMS using VB 6 is possible only with the API Integration.

How can I send bulk sms from my website by integrating sms gateway api in VB 6 .

    • API is the best way to send SMS directly from your website. As it allows you to integrate SMS services into your own System/application/Website for better functionality.
      A request to the Bulk SMS API is done by calling a URL with some required parameters (User Name, Password, Sender ID, Mobile Number, Message).When a request is made, the API along with all the parameters send to SMS Gateway server and it process the request and generate response for the particular request immediately. SMS Cluster provides the Bulk SMS Gateway with HTTP API (HTTP) to be integrated in different programming language like VB 6 ,php,Java, VB 6.net, C#.
x

SMSCluster SignUp

Bulk SMS Services

Bulk SMS

Voice SMS

International SMS

Long Code

EMAIL ME INFO

  •  
  •  
  •   
  •    
  •  

Parameter

Parameter Name Data Type Description
AUTH_KEY * Alphanumeric Login Authentication Key(This key is unique for every user)
message * Text Enter your message
senderId * Text Enter senderId it should be less then 6 character
routeId * Integer Which route you want use for sending sms enter routeId for particular route.use given Id for route. Transactional Route=1, Promotinal=2, Promotional SenderId=3
mobileNos * Integer Mobile number can be entered with country code or without country code Multiple mobile no. should be separated by comma
groupId * Integer To send sms to particular group enter group name created in MsgClub phone book.
smsContentType* Text "English" for text sms and "Unicode" for Unicode sms

Parameters with( * ) are mandatory.

Note: While both numbers and group_id are optional parameters, one or the other must be included in the request for the message to be sent.

Error Code

Error Codes Description
3001 * for Success
3002 * Invalid URL
3003 * Invalid User/Password
3004 * Invalid Message Type
3005 * Invalid Message
3006 * Invalid Destination
3007 * Invalid Source
3008 * Invalid DLR Field
3009 * Authentication Failed
3010 * Internal Error
3011 * Insufficient Balance
3012 * Responce Time Out
3013 * Invalid Request Content Type
3014 * Missing Mobile Number
3015 * SMs Content for Approval
3016 * Missing Required Parameter
3017 * FAIL
3018 * Expired Account
3019 * Null Pointer Exception code
3020 * Empty User Name
3021 * Empty Password
3022 * User Name not Available
3023 * Session Expired
3024 * Already Exist
3025 * Empty Group Name
3026 * Empty Contact Name
3027 * Empty Mobile Number
3028 * Empty Group Id
3029 * Empty City Name
3030 * Empty Occupation
3041 * Empty E-Mail Id
3042 * Group not Exist
3043 * Empty Message
3044 * Empty Route Id
3045 * Empty Sender Id
3047 * Empty Draft Id
3048 * Empty First Name
3049 * Empty Last Name
3050 * Empty Balance
3051 * Empty Role Id
3052 * For User Name Length
3053 * Empty Expiry Date/td>
3054 * Invalid Date
3055 * Empty Client Id
3056 * Invalid Status
3057 * Empty Country Name
3058 * Empty State Name
3059 * Session Expired
3060 * Empty Date
3061 * Access Denied
3062 * Empty Old Password
3063 * Password not Maching
3064 * Empty SMS
3065 * Empty Amount
3066 * Empty Address
3067 * Empty RequestId
3068 * Empty Group and MobileNo
3069 * Empty Description
3070 * Fail to Change RoleId
3071 * Empty CallerId
3072 * Empty File URL and Draft
3073 * Empty Duration
3074 * Invalid Request
3075 * Invalid Aoudio file
3076 * Missing Upload File

Warnings

Warning Codes
3 Invalid number.