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
Con cuenta negocios seria :
Como vera el precio es bastante accesible
Un llamado de Enviar mensaje seria..
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
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
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
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
