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 Description
AUTH_KEY *AlphanumericLogin Authentication Key(This key is unique for every user)
message *TextEnter your message
Sender Id *TextEnter sender Id it should be less then 6 character
routeId *IntegerWhich 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 *IntegerMobile number can be entered with country code or without country code Multiple mobile no. should be separated by comma
groupId *IntegerTo send sms to particular group enter group name created in MsgClub phone book.
SMS ContentType*Text“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.

Social media & sharing icons powered by UltimatelySocial