B4J Tutorial CallMeBot: A Free "Personal Use" Bot to send WhatsApp, Telegram, Messenger & Voice Calls

Hi

I am currently trying this out: https://www.callmebot.com/

The instructions are rather simple to follow.

 

[Mashiane]

Sending messages to Telegram...

One can use HTTPUtils to achieve this also. Your parameters for HTTPUtils should be user and the encoded text to send.

I am using this in BANano and thus using fetch for a GET method

Private Sub btnSendTelegram_Click (e As BANanoEvent)
    'save settings
    Dim ls As Map = CreateMap()
    ls.Put("phone", txtTelephone.Value)
    ls.Put("api", txtAPIKey.Value)
    banano.SetLocalStorage2("callmebot", banano.ToJson(ls))
    '
    btnSendTelegram.Loading = True
    Dim api As SDUIFetch
    api.Initialize("https://api.callmebot.com/text.php")
    api.AddParameter("user", txtTelephone.Value)
    api.AddParameter("text", txtMessage.Value)
    banano.Await(api.GetWait)
    btnSendTelegram.Loading = False
End Sub

The received message will go to your callmebot API contact on your telepram.

 

[Mashiane]

Sending Messages to WhatsApp

1. You will need your APIKey
2. You will need you cellphone number including county code.

Private Sub btnSend_Click (e As BANanoEvent)
    'save settings
    Dim ls As Map = CreateMap()
    ls.Put("phone", txtTelephone.Value)
    ls.Put("api", txtAPIKey.Value)
    banano.SetLocalStorage2("callmebot", banano.ToJson(ls))
    '
    btnSend.Loading = True
    Dim api As SDUIFetch
    api.Initialize("https://api.callmebot.com/whatsapp.php")
    api.AddParameter("source", "web")
    api.AddParameter("phone", txtTelephone.Value)
    api.AddParameter("apikey", txtAPIKey.Value)
    api.AddParameter("text", txtMessage.Value)
    banano.Await(api.GetWait)
    btnSend.Loading = False
End Sub

The parameters to use are, source, phone (country code + number), apikey + text as message.

output:

Input...

 

[Mashiane]

Sending Messages to Facebook Messenger

Private Sub btnSendMessenger_Click (e As BANanoEvent)
    'save settings
    Dim ls As Map = CreateMap()
    ls.Put("phone", txtTelephone.Value)
    ls.Put("api", txtAPIKey.Value)
    banano.SetLocalStorage2("callmebot", banano.ToJson(ls))
    '
    btnSendMessenger.Loading = True
    Dim api As SDUIFetch
    api.Initialize("https://api.callmebot.com/facebook/send.php")
    api.AddParameter("apikey", txtAPIKey.Value)
    api.AddParameter("text", txtMessage.Value)
    banano.Await(api.GetWait)
    btnSendMessenger.Loading = False
End Sub

 

[syerif]

hi
it is possible to send interactive messages?

best regards

 

[Mashiane]

hi
it is possible to send interactive messages?

best regards

I am not sure, you can visit their site on the first post and find out.