Page 1 of 1

Enviar mensaje WhatsApp

Posted: Wed Jun 12, 2019 1:11 pm
by XeviCOMAS
De momento se puede enviar mostrando la ventana de Chrome + WhatsApp.
Seguro que se puede mejorar, por ejemplo, a hacerla correr en modo "silencioso", sin mostrar ninguna ventana.

Code: Select all

Function Main()
   Local oShell

   oShell := CreateObject( "WScript.Shell" )
   oShell:run("chrome.exe https://api.whatsapp.com/send?phone=34666666666" )
   Sleep(1500)
   oShell:sendkeys("{tab}{tab}")
   oShell:SendKeys("~")
   Sleep(5000)
   oShell:sendkeys("Mensaje de prueba")
   oShell:SendKeys("~")

Return nil

Re: Enviar mensaje WhatsApp

Posted: Tue Jul 16, 2019 1:42 pm
by bingen
Mejoraste algo este sistema Xevi?

Gracias.

Re: Enviar mensaje WhatsApp

Posted: Tue Jul 16, 2019 5:31 pm
by XeviCOMAS
Bingen,

No, así está.
No lo estoy utilizando, solo lo vi y me puse a probar, pero no lo he incluido en mis aplicaciones.

Re: Enviar mensaje WhatsApp

Posted: Wed Jul 17, 2019 8:33 am
by bingen
Asi desde luego no se puede incluir y no veo manera de mejorarlo minetras WSP no quiera por mas que los clientes lo pidan.

Gracias.