API integration with VB6

How to Send a Message by WhatsApp API using VB6

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

Last updated 9 months ago

Was this helpful?

API integration with VB6

How to Send a Message by WhatsApp API using VB6

Authentication

The first step is to register on the 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:

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:

'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.