Page 3 of 3

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

PostPosted: Thu Jun 13, 2019 8:37 pm
by leandro
Que buen aporte :D

Gracias

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

PostPosted: Fri Jun 14, 2019 5:58 am
by Sistem
https://youtu.be/ESk_XIycGt8
Code: Select all  Expand view
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)

PostPosted: Fri Jun 14, 2019 6:37 am
by Silvio.Falconi
perhaps in Italy not run

Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)

PostPosted: Fri Jun 14, 2019 7:04 am
by jvtecheto
Xevi wrote: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.


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)

PostPosted: Fri Jun 14, 2019 8:25 am
by Xevi
Alguna lib te está faltando incluir.
Yo lo compilo, mínimamente con...

Code: Select all  Expand view

      <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)

PostPosted: 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)

PostPosted: 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)

PostPosted: 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)

PostPosted: 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 :idea: