Enviar mensaje WhatsApp
Publicado: Mié Jun 12, 2019 1:11 pm
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.
Seguro que se puede mejorar, por ejemplo, a hacerla correr en modo "silencioso", sin mostrar ninguna ventana.
Código: Seleccionar todo
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