Page 3 of 3
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Thu Jun 13, 2019 8:37 pm
by leandro
Que buen aporte
Gracias
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 5:58 am
by Sistem
https://youtu.be/ESk_XIycGt8
Code: Select all
Function Whatsapp(cPara, cMsg)
Local oShell, oClp, hBmp := FWSaveScreen( GetDesktopWindow() )
DEFINE CLIPBOARD oClp FORMAT BITMAP OF oWndP
oClp:Open()
oClp:SetBitmap( hBmp )
oClp:Close()
oShell := CreateObject( "WScript.Shell" )
oShell:run("chrome.exe https://api.whatsapp.com/send?phone="+cPara)
Sleep(1500)
oShell:sendkeys("{tab}{tab}")
oShell:SendKeys("~")
Sleep(5000)
oShell:sendkeys("^(v)") // Ctrl+v
Sleep(2500)
oShell:sendkeys(cMsg)
oShell:SendKeys("~")
Return nil
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 6:37 am
by Silvio.Falconi
perhaps in Italy not run
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 7:04 am
by jvtecheto
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.
Hola Xevi:
No logro compilar, la funcion createobject no la reconoce,
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from C:\USERS\JOSÉ VTE. CHETO\DOCUMENTS\HARBOUR\PROJECTS\WHATSAPP\OBJ\MAIN.OBJ
Error: Unresolved external '_HB_FUN_SLEEP' referenced from C:\USERS\JOSÉ VTE. CHETO\DOCUMENTS\HARBOUR\PROJECTS\WHATSAPP\OBJ\MAIN.OBJ
Error: Unresolved external '_HB_FUN_FW_GT' referenced from C:\USERS\JOSÉ VTE. CHETO\DOCUMENTS\HARBOUR\PROJECTS\WHATSAPP\OBJ\MAIN.OBJ
Error: Unable to perform link
1 Files, 1 Warnings, 4 Errors
Tiempo de compilación: 0.84s Tiempo de enlazado: 0.38s Tiempo total: 1.22s
falta algun include
tengo el fivewin.ch
alguno mas?
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 8:25 am
by Xevi
Alguna lib te está faltando incluir.
Yo lo compilo, mínimamente con...
Code: Select all
<Library Filename="C:\FW\fwh\lib\FiveH.lib"/>
<Library Filename="C:\FW\fwh\lib\FiveHC.lib"/>
<Library Filename="[Harbour]hbwin.lib"/>
<Library Filename="[Harbour]gtgui.lib"/>
<Library Filename="[Harbour]gtwin.lib"/>
<Library Filename="[Harbour]hbrtl.lib"/>
<Library Filename="[Harbour]hbvm.lib"/>
<Library Filename="[Harbour]hblang.lib"/>
<Library Filename="[Harbour]hbmacro.lib"/>
<Library Filename="[Harbour]hbrdd.lib"/>
<Library Filename="[Harbour]rddntx.lib"/>
<Library Filename="[Harbour]rddfpt.lib"/>
<Library Filename="[Harbour]hbsix.lib"/>
<Library Filename="[Harbour]hbdebug.lib"/>
<Library Filename="[Harbour]hbcommon.lib"/>
<Library Filename="[Harbour]hbpp.lib"/>
<Library Filename="[Harbour]hbcpage.lib"/>
<Library Filename="[Harbour]hbcplr.lib"/>
<Library Filename="[Harbour]hbct.lib"/>
<Library Filename="[Harbour]hbpcre.lib"/>
<Library Filename="[Harbour]xhb.lib"/>
<Library Filename="[Harbour]hbziparc.lib"/>
<Library Filename="[Harbour]hbmzip.lib"/>
<Library Filename="[Harbour]hbzlib.lib"/>
<Library Filename="[Harbour]minizip.lib"/>
<Library Filename="[bcc]c0w32.obj"/>
<Library Filename="[bcc]cw32.lib"/>
<Library Filename="[bcc]import32.lib"/>
<Library Filename="[bcc]\lib\psdk\shell32.lib"/>
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 9:17 pm
by jvtecheto
Gracies Xevi.
Era culpa mia, para pruebas rapidas utilizo otro ide para no cargar de proyectos a FivEdit. Pero luego tengo problemas, jaja.
Me faltaban las librerias de Fivewin.
Saludos.
Jose.
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 9:21 pm
by Marcelo Roggeri
Siguiendo el hilo, alguien pudo ocultar el Chrome al enviar un mensaje, osea que sea algo transparente al usuario
Saludos
Marcelo
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Mon Jun 17, 2019 1:47 am
by Admpss
HI, can i use with Microsoft edge? i can use in network, send a message from an remote computer in network connected with whats? and to send pdf files? very thanks
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Mon Jun 17, 2019 7:48 pm
by Sistem
Admpss wrote:HI, can i use with Microsoft edge? i can use in network, send a message from an remote computer in network connected with whats? and to send pdf files? very thanks
can i use with Microsoft edge?
yes...you can use another browser
i can use in network, send a message from an remote computer in network connected with whats?
i do not understand the question
send pdf files?
you can upload files to some web server...use the web server link 