Consulta Para Antonio Linares (Mensaje a Wathsapp)

[Sistem]

Application
===========
Path and name: C:\Work\Errori\whatup\test.Exe (32 bits)
Size: 3,795,456 bytes
Compiler version: Harbour 3.2.0dev (r1712141320)
FiveWin version: FWH 19.03
C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 06/12/19, 10:42:46
Error description: (DOS Error -2147352567) WINOLE/1007 (0x80070002): RUN
Args:
[ 1] = C C:\Program Files (x86)\Google\\chrome\chrome.exe https://api.whatsapp.com/send?phone=553 ... 1&text=msg teste01

Stack Calls
===========
Called from: => TOLEAUTO:RUN( 0 )
Called from: test.prg => WHATSAPP( 32 )
Called from: test.prg => TEST( 19 )

Silvio, 55327326548101 55 = Brasil
\Google\\chrome\ <= 2 barras \\ ?

[cnavarro]

usando o proprio whatsapp

Code: Select all  Expand view

for x=1 to 10
    Whatsapp("85999999999", "859999904"+strzero(x,2), "msg teste"+strzero(x,2))
next

*--------------------------------------------------------------------------------
Function Whatsapp(cDe, cPara, cmsg)
Local clink := "https://api.whatsapp.com/send?phone=55"+cPara+"&text="+cmsg

   oShell := CreateObject( "WScript.Shell" )
   oShell:run(uRegPath+"\chrome\chrome.exe "+clink)
   syswait(2)
   oShell:sendkeys("{tab}")
   syswait(2)
   oShell:sendkeys("{tab}")
   syswait(2)
   oShell:SendKeys("~")
   syswait(5)
   oShell:sendkeys("ola, *"+cPara+"* essa e uma mensagem automatica")
   oShell:SendKeys("~")
   syswait(3)
   oShell:SendKeys(cMsg)
   oShell:SendKeys("~")
   syswait(3)
   oShell:SendKeys("~")
Return nil

Gracias por el código, pero tengo una duda
Dónde es utilizado el parámetro cDe, no lo veo

[Xevi]

Gracias por el aporte.

FUNCIONANDO!!!

Code: Select all  Expand view

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
 

Ahora, estaría bien poder hacer que se ejecutara en modo silencioso... sin abrir ventana alguna.

[cnavarro]

Xevi, el teléfono que añades es el teléfono de quien recibe el mensaje?
Si es así, cómo sabe esa persona quién es el que le ha enviado el mensaje.

[Xevi]

Cristobal,

el script utiliza la aplicación/extensión WhatsApp de Chrome, por lo que el usuario que manda el mensaje es el que esté en esa aplicación. El script solo abre, manda texto y las pulsaciones de tecla tab e intro para no tener que teclearlas.

[cnavarro]

Ah!, ahora si lo entiendo
Gracias Xevi

[Marcelo Roggeri]

Hola Sistem, gracias por responder. Logro enviar el mensaje pero me sigue abriendo el Crhome al enviar el mensaje.

[Sistem]

Gracias por el aporte.

FUNCIONANDO!!!

Code: Select all  Expand view

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
 

Ahora, estaría bien poder hacer que se ejecutara en modo silencioso... sin abrir ventana alguna.

ficou ótimo assim

[Sistem]

Hola Sistem, gracias por responder. Logro enviar el mensaje pero me sigue abriendo el Crhome al enviar el mensaje.

Marcelo também não sei como fazer invisível, só fiz isto ontem .... sei que existe o parametro 0 oShell:run("chrome.exe https://api.whatsapp.com/send?phone=34666666666", 0-1or2, logic ), talvez não seja possível pelo fato do Foco

[Silvio.Falconi]

here open only https://web.whatsapp.com/

not send any message

[Xevi]

Silvio,

aumenta el primer sleep(1500) a 3000 o 5000

Yo lo he "ajustado" a mi máquina, y me funciona correctamente con 1500ms

[Silvio.Falconi]

can you post a gif to see what happen ?

because here open only the page https://web.whatsapp.com/ and then ask to put the telephone camera on qrcode
not send any message

[Xevi]

Silvio...

Claaaaaroooo.
Primero de todo, hay que "configurar" WhatsAppWeb con el PC-TELEFONO.
El ordenador DEBE saber quien es el que va a utilizar whatsappweb, una vez casado el PC con el MOVIL, ya se puede utilizar el script.

[Silvio.Falconi]

claroooo

I allready open the web.what s up page

then I run your test

and the page give me this message

Questo link è sbagliato. Chiudi questa finestra e prova un link diverso.

Este enlace es incorrecto. Cierra esta ventana y prueba un enlace diferente.

[Xevi]

Silvio...

cambias el num de telefono 34666666666 por uno real???

Porque a mi me está funcionando perfectamente.