FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Consulta Para Antonio Linares (Mensaje a Wathsapp)
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Thu Jun 13, 2019 08:37 PM

Que buen aporte :D

Gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Sistem
Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 05:58 AM
https://youtu.be/ESk_XIycGt8
Code (fw): Select all Collapse
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 <!-- m --><a class="postlink" href="https://api.whatsapp.com/send?phone=">https://api.whatsapp.com/send?phone=</a><!-- m -->"+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
FWH2008 | xHarbour | BCC74 | SQLRDD
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 06:37 AM

perhaps in Italy not run

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 07:04 AM
Xevi wrote:Gracias por el aporte.

FUNCIONANDO!!!

Code (fw): Select all Collapse
Function Main()
   Local oShell

   oShell := CreateObject( "WScript.Shell" )
   oShell:run("chrome.exe <!-- m --><a class="postlink" href="https://api.whatsapp.com/send?phone=34666666666">https://api.whatsapp.com/send?phone=34666666666</a><!-- m -->" )
   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?
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
Xevi
Posts: 174
Joined: Wed Nov 29, 2017 11:42 AM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 08:25 AM
Alguna lib te está faltando incluir.
Yo lo compilo, mínimamente con...

Code (fw): Select all Collapse
      <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"/>
Un Saludo,

Xevi.



Aprendiz de la vida!!!
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 09:17 PM

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.

Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
Marcelo Roggeri
Posts: 344
Joined: Sat Jul 22, 2006 09:04 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Fri Jun 14, 2019 09:21 PM

Siguiendo el hilo, alguien pudo ocultar el Chrome al enviar un mensaje, osea que sea algo transparente al usuario
Saludos
Marcelo

FWH - Harbour - BCC7 - PellesC
Admpss
Posts: 26
Joined: Wed Oct 31, 2018 07:37 PM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Mon Jun 17, 2019 01:47 AM

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

Sistem
Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: Consulta Para Antonio Linares (Mensaje a Wathsapp)
Posted: Mon Jun 17, 2019 07:48 PM
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 :-)
FWH2008 | xHarbour | BCC74 | SQLRDD

Continue the discussion

Static archive · New replies & topics via GitHub Discussions