API integration with VB6

How to Send a Message by WhatsApp API using VB6

Authentication

The first step is to register on the Whapi.Cloud website and create an account. It's free and doesn't require you to enter a credit card.

After registration you will immediately have access to a test channel with a small limitation. Wait for it to start (it usually takes about a minute). You will need to connect your phone for Whatsapp automation. It is from the connected phone that messages will be sent.

The big advantage of the service is that it takes only a couple of minutes to launch and start working.

Open your WhatsApp mobile app, navigate to Settings -> Linked devices -> Link a device -> Scan QR code

Our service enables you to interact with the API without the need for an uninterrupted phone connection. Operate WhatsApp on up to four paired devices and one mobile device concurrently.

Now save the generated API-Key token on channel page:

Get Started Free

How to Send WhatsApp API Message using VB6

Private Sub SendMessage()
    Dim xml As Object
    Dim strNumber As String, strMessage As String
    Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0")
   
    Dim url As String
    url = "https://gate.whapi.cloud/messages/text"
   
    Dim apiKey As String
   
    apiKey = "Your API Key Goes Here"
    strNumber = "Recipient Number"  'Number should be in format countrycode+mobilenumber without + sign
   
    strMessage = "This is My First Message"
   
    Dim jsonBody As String
   
    jsonBody = "{""to"":""" & strNumber & """,""body"":""" & strMessage & """}"
   
    With xml
        .Open "POST", url, False
        .setRequestHeader "Authorization", "Bearer " & apiKey
        .setRequestHeader "Content-Type", "application/json"
        .send jsonBody
    End With
   
   
    If xml.Status = 200 Then
        MsgBox "Message sent successfully: " & xml.responseText
    Else
        MsgBox "Error: " & xml.Status & " - " & xml.statusText & vbCrLf & xml.responseText
    End If
   
    Set xml = Nothing
End Sub

We offer a convenient service for testing requests and using ready-made code fragments in any programming language. You will only need to transfer the saved API-token and fill in the required parameters:

💬 Send text messageWhapi Cloud - Whatsapp API for developers

'to': The recipient’s WhatsApp number with international format e.g., 14409416972 or chatID for contact or group e.g 14409416972@s.whatsapp.net or 1203234567890@g.us
'body' : Message text.

Please note that this is a basic example and doesn't include any error handling. For a production environment, ensure to add appropriate error and exception handling.

In our comprehensive documentation, you'll discover step-by-step instructions and examples for utilizing methods that empower you to send diverse content, ranging from files of any format, locations, and contacts to stickers and in-message buttons.

Moreover, you can interact dynamically with emoji messages by quoting, marking them as read, or simulating real-time typing.

Furthermore, you can efficiently manage your groups by changing avatars, renaming them, inviting new members, or blocking unwanted users.

Send Media Message

🖼 Send media-image messageWhapi Cloud - Whatsapp API for developers

Please don't hesitate to reach out to share your experiences or pose any questions you might have.

Get Started Free

Send Document

📑 Send media-document messageWhapi Cloud - Whatsapp API for developers

Send Audio

🎵 Send media-audio messageWhapi Cloud - Whatsapp API for developers

Send Voice

You can Send a ppt audio recording to the phone number or group, But WhatsApp is sensitive to this extension, you need to be in OGG format and the codecs should be the opus. Our API has an automatic video and audio converter for the necessary codecs compatible with WhatsApp. For more information, you can check out this article.

🎤 Send media-voice messageWhapi Cloud - Whatsapp API for developers

Send Video

🎥 Send media-video messageWhapi Cloud - Whatsapp API for developers

Send GIF

Send Contact

Send Contact List

Send Location

Send Sticker

🎭 Send media-sticker messageWhapi Cloud - Whatsapp API for developers

PreviousWhatsapp API send message Java NextWhatsapp API send message GO (Golang)

Last updated 4 months ago

Private Sub SendMessage() Dim xml As Object Dim strNumber As String, strMessage As String Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0") Dim url As String url = "https://gate.whapi.cloud/messages/text" Dim apiKey As String apiKey = "Your API Key Goes Here" strNumber = "Recipient Number" 'Number should be in format countrycode+mobilenumber without + sign strMessage = "This is My First Message" Dim jsonBody As String jsonBody = "{""to"":""" & strNumber & """,""body"":""" & strMessage & """}" With xml .Open "POST", url, False .setRequestHeader "Authorization", "Bearer " & apiKey .setRequestHeader "Content-Type", "application/json" .send jsonBody End With If xml.Status = 200 Then MsgBox "Message sent successfully: " & xml.responseText Else MsgBox "Error: " & xml.Status & " - " & xml.statusText & vbCrLf & xml.responseText End If Set xml = Nothing End Sub