Consulta Para Antonio Linares (Mensaje a Wathsapp)

[leandro]

Que buen aporte

Gracias

[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
 

[Silvio.Falconi]

perhaps in Italy not run

[jvtecheto]

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?

[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"/>
 

[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.

[Marcelo Roggeri]

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

[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

[Sistem]

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