Spanish Envio de Mensajes desde la B4X por Whatssap TUTORIAL

Situ LLC

Active Member
Licensed User
Estimados amigos de foro

He encotrado una link Envio de mensajes Whatssap, es de paga pero si es posible enviar mensajes desde B4X , no lo encontre caro y la verdad que esta bastante bien . Ademas de los APIS esta bien facilies y trae bastantes ejemplos.

Nos permite enviar mensajes. recibir mensajes . adjuntos, voz y , fotos , documentos, localizacion , entre otras opciones. En lo personal hay varios enlaces de opciones en el foro , pero bueno , para aquellos que deseen hacer su propio aplicacion es facil implemetarla.

Suerte
Espero que les sea util.
 
Last edited:

josejad

Expert
Licensed User
Longtime User
Gracias, si pudieses subir un pequeño ejemplo de cómo llamar a la API para que la gente del foro lo tenga como referencia, sería de ayuda.
Incluso podrías anteponer al asunto del mensaje algo como [TUTORIAL] o algo así para tener claro que no estás preguntando, sino que es un recurso de ayuda.

Muchas gracias por compartir¡¡
 

Situ LLC

Active Member
Licensed User
Perfecto
Pronto subire un ejmplo en B4A/B4J
Ademas ire implementando varias cosillas , como leer mensajes ,envío de archivos Entre otras posibilidades del API
Aclaro que es de paga pero el precio es accesible.
Salud
 

Situ LLC

Active Member
Licensed User
Estimados compañeros.

El compañero Mariano Ismael Castro arriba esta su contacto esta en desarrollo del API para whatssap. Ha desarrollado ya muchas funciones en base a API enlace de la pagina . Esta Api es de paga pero permite a desarrolladores todas las funciones disponibles.

Segun los pruebas permite las siguienes funciones. importantes

Envio de mensajes chats personales o grupos
Envio de archivos adjuntos con mensaje
Envio de localizacion
Verificacion de numero si pertenece al Whatzap
Lactura de mensajes segun chat o grupo despliega un mapa con las coversaciones
Envio de contacto.

Se entregara una libreria DEMO con llamado a funciones arriba mencionadas. El precio seria un coste de $30 Dolares pagados por PayPal a Mariano Ismael Castro .

Requerimientos para uso de Libreria seria:

Crear una cuenta con Enlace a la paguina oficial , obtener las credenciales que serian idInstance y el apiTokenInstance luego de obtenerlos podran utilizar la libreria.

Para la demo se dara credenciales de programador para las pruebas , pero luego de su evaluacion se recomiendo ya crear sus o contratar un cuenta de negocios o programador. Ahora la cuenta para programador tendran limites como
1697868581364.png


Con cuenta negocios seria :
1697868641176.png


Como vera el precio es bastante accesible

Un llamado de Enviar mensaje seria..

B4X:
Private Sub mensaje
    Dim phone As String = "561XXXXXXX"
    Dim message As String = "Hola Mundo"
 
    Wait For (SendMessage(phone, message)) Complete(res As Boolean)
    Log(res)
End Sub

retorno -->
{"idMessage":"BAE50FD4259E842A"}
true
Id Message Send >BAE598415547BE78


Otro ejemplo
ChatHistory:
Private Sub  ChatHistory
    Dim phone As String = "561XXXXX"
    Wait For (GetChatHistory(phone, 10)) Complete(res As List)
    If res.IsInitialized Then
        For Each item As Map In res
            Log(item)
        Next
    End If
End Sub

Retorno ---->

*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create (first time) **
Call B4XPages.GetManager.LogEvents = True to enable logging B4XPages events.
** Activity (main) Resume **
*** Receiver (httputils2service) Receive (first time) ***
{"idMessage":"BAE5A8AD07E154E6"}
true
( typeMessage=extendedTextMessage, chatId=5212216875025@c.us, textMessage=Esta es una prueba desde miPDA
, extendedTextMessage={text=Esta es una prueba desde mi PDA
, description=, title=, previewType=None, jpegThumbnail=, forwardingScore=0, isForwarded=false}, statusMessage=, sendByApi=true}
(MyMap) {type=outgoing, idMessage=BAE5D71FF3743EF9, timestamp=1697263940, typeMessage=extendedTextMessage, chatId=5212216875025@c.us, textMessage=asas cvcv
yo
yo
eso lo mande yo mismo , extendedTextMessage={text=asas cvcv
yo
yo


CheckWhatsApp:
Private Sub  CheckWhatsApp
    Dim phone As String = "5615xxxxxxx"
    Wait For (checkWhatsApp(phone)) Complete(res As Boolean)
    Log(res)
End Sub

Retorno -->

Id Message Send >BAE5353FB866342F
Tiene WhatsApp? true
true

Otra Funcion seria

btnSendLocation:
Private Sub btnSendLocation
    Dim phone As String = "561XXXXX"
    Dim latitude As String = "12.3456789"
    Dim    longitude As String = "10.1112131"
    Dim nameLocation As String ="Restaurant"
    Dim address As String = "123456, Perm"
    Wait For (SendLocation(phone, latitude, longitude, nameLocation, address)) Complete(idMessage As String)
    Log("Id Message Send >"& idMessage)
End Sub

Retorno -->

Id Message Send >BAE51F3D5A7AA2E9




Como veran se facilita mucho el envio de mensajes , estara disponible B4A/B4j y proximamente b4I.

Esperamos liberar el ralease de esta libreria y otra cosa importante que es bueno mensionar NO se ocupa tener instalado el whatssap en el movil o PC.

Saludes

1697871310198.png
 
Last edited:

Situ LLC

Active Member
Licensed User
Bueno compañeros el Proyecto esta listo


Por ahi podran empezar a el Whatssap APi utilizando una cuenta de desarrollador, podran utiliza varios metodos para que puedan hacer sus pruebas.

El señor @Mariano Ismael Castro (ver arriba) estara para dar el soporte necesario para la implementacion . Recuerden podran dar una donacion y antes de cualquier donacion por favor hablar con Mariano los detalles.

Saludes.
 
Top