Untitled Page
google playGoogle Play +91 9406811127 support@msgclub.net Support Pricing

Select Language

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-- www.abc.com     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     objXML.Send      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     Next      End Function

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.

Parameter Name with Description

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.

Get quick and easy use of API and test

You will get account with some demo credit to test API that help you write applications and interact with MsgClub VB6 APIs

I want to write my own VB6 code



enterprise solutions




Industries we support

Frequently asked questions

How to integrate SMS API in VB6?

Sign in your MsgClub interface, click on the developer tool to get multiple send SMS API.

How to implement SMS Gateway in Vb6?

It's very simple, preview our ready code of VB6 language that has all details to integrate our bulk SMS gateway.

How to send online SMS from my website in VB 6?

Just create a request on our platform to call our bulk SMS API in one single click to integrate services on website.

How to send bulk SMS using API in VB 6?

Get XML and JSON both types of API at single place to send SMS in bulk. We also provide sample codes.

Do you provide VB6 script for SMS sending?

Yes, we provide ready scripts of multiple APIs to send text messages regarding transaction, registration & more.

How to send OTP SMS using vb6 API?

Use MsgClub send SMS API to select OTP or banking route for sending OTP codes to users directly from the software.

APIs we provide

APIs other than Send SMS


Send Schedule SMS

Delete Scheduled SMS

Reschedule SMS


Add Group

Delete Group

List Group


Add Contact

Edit Contact

List Contact


Add Draft

Delete Draft

List Draft


Add Client

Edit Client

Delete Client

Client List

Disable / Enable

Forgot Password

Transaction Log

Client Balance

Fund Transfer