Consulta Para Antonio Linares (Mensaje a Wathsapp)

User avatar
Sistem
Posts: 224
Joined: Sun May 13, 2012 7:52 am

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Sistem »

Silvio.Falconi wrote: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 \\ ?
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by cnavarro »

Sistem wrote:usando o proprio whatsapp

Code: Select all

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
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Xevi »

Gracias por el aporte.

FUNCIONANDO!!!

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
 
Ahora, estaría bien poder hacer que se ejecutara en modo silencioso... sin abrir ventana alguna.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by cnavarro »

Ah!, ahora si lo entiendo
Gracias Xevi
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Marcelo Roggeri
Posts: 275
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina
Contact:

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Marcelo Roggeri »

Hola Sistem, gracias por responder. Logro enviar el mensaje pero me sigue abriendo el Crhome al enviar el mensaje.
FWH - Harbour - BCC7 - PellesC - FivEdit (Cristobal Navarro)
User avatar
Sistem
Posts: 224
Joined: Sun May 13, 2012 7:52 am

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Sistem »

Xevi wrote:Gracias por el aporte.

FUNCIONANDO!!!

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
 
Ahora, estaría bien poder hacer que se ejecutara en modo silencioso... sin abrir ventana alguna.
ficou ótimo assim :)
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
Posts: 224
Joined: Sun May 13, 2012 7:52 am

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Sistem »

Marcelo Roggeri wrote: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
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Silvio.Falconi »

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

not send any message
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by 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.
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

Post by Xevi »

Silvio...

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

Porque a mi me está funcionando perfectamente.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
Post Reply