Bulk SMS Service

SMS API VB 6.0 (GET API) codes and parameters

To make your task easier. We provide you Bulk SMS API with Sample code of SMS API VB 6.0 so that, you do not need to develop the API and source code and with this, you can directly integrate our ready to use Bulk SMS API and Source Code in your software (developed in VB 6.0 language).    

These codes will help a developer to understand and implement SMS gateway API into their own software, Windows or Web application. Whether your Software serves the purpose of Customer relationship management (CRM), Billing, accounting, Reports /content management, HR management, Marketing, Order management, Product life cycle (PLC) management, warehouse management or any other. The developed API and ready-made scripts in VB 6.0 by the technical team of Msgclub are making API Integration easy.

Sample code of SMS API VB 6.0 is mentioned below ( GET API)-

Private Sub Command1_Click()
Dim authKey, URL, mobiles, senderId, smsContentType, message, groupId, signature, routeId As String
   Dim V_signature, V_groupId, scheduleddate, V_scheduleddate As String
   Dim objXML As Object
   Dim getDataString As String
   authKey = "Sample Auth key" 'eg -- 16 digits alphanumeric
   URL = "Sample"  'eg--
   mobiles = "Sample" '99999999xx,99999998xx
   smsContentType = "english" 'eg - english or unicode  
   message = "Hello this is test"
   senderId = "Sample" 'eg -- Testin'
   routeId = “Sample" 'eg 1'
scheduleddate = "" ‘optional if(scheduledate  eg “26/08/2015 17:00”)
signature ="" ‘optional if(signature available  eg “1”)
groupId ="" ‘optional if(groupId available eg “1”)
   If (Len(signature) > 0) Then
       V_signature = "&signature=" & signature
   End If
   If (Len(groupId) > 0) Then
       V_groupId = "&groupId=" & groupId
   End If
   If (Len(scheduleddate) > 0) Then
       V_scheduleddate = "&scheduleddate=" & scheduleddate
   End If
   URL = "Sample"
   'use for API Reference
   Set objXML = CreateObject("Microsoft.XMLHTTP")
   'creating data for url
   getDataString = URL + "AUTH_KEY=" + authKey + "&smsContent=" + message + "&mobileNos=" + mobiles + "&senderId=" + senderId + "&routeId=" + routeId + "&smsContentType=" + smsContentType + V_scheduleddate + V_groupId + V_signature
   objXML.Open "GET", getDataString, False
    If Len(objXML.ResponseText) > 0 Then
           MsgBox objXML.ResponseText
    End If
End Sub
Function URLEncode(ByVal Text As String) As String
   Dim i As Integer
   Dim acode As Integer
   Dim char As String
   URLEncode = Text
   For i = Len(URLEncode) To 1 Step -1
       acode = Asc(Mid$(URLEncode, i, 1))
       Select Case acode
           Case 48 To 57, 65 To 90, 97 To 122
               ' don't touch alphanumeric chars
           Case 32
               ' replace space with "+"
               Mid$(URLEncode, i, 1) = "+"
           Case Else
               ' replace punctuation chars with "%hex"
               URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
                   (URLEncode, i + 1)
       End Select
End Function

Parameter Name with Description

Parameter Name

Data Type




Login Authentication Key(This key is unique for every user)

message *


Enter your message

Sender Id *


Enter sender Id it should be less then 6 character

routeId *


Which route you want use for sending sms enter routeId for particular route.use given Id for route. Transactional Route=1, Promotional=2, Promotional Sender Id=3

mobileNos *


Mobile number can be entered with country code or without country code Multiple mobile no. should be separated by comma

groupId *


To send sms to particular group enter group name created in MsgClub phone book.

SMS ContentType*


"English" for text sms and "Unicode" for Unicode sms

Parameters with (*) are mandatory.

Start using Msgclub mobile messaging software for bulk SMS API VB 6.0 as your preferred communication and marketing method.

Easily integrable Bulk SMS VB 6.0 (GET API) API and its source code are here. For more details, you can contact us.

Comments are closed