FiveTech Software tech support forums

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
 

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.

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

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