FiveTech Support Forums

IF lWhatsapp_escr //Si configuró que tiene whatsapp de escritorio
        ShellExecute( oDlg:hwnd,'open',"whatsapp://send?phone="+ALLTRIM(oQryComWeb:prefijo)+ALLTRIM(cTelefono)+"&text=")
        Sleep(1000)
        ShellExecute( oDlg:hwnd,'open',"whatsapp://send?phone="+ALLTRIM(oQryComWeb:prefijo)+ALLTRIM(cTelefono)+"&text="+cTexto)
    ELSE 
        // Whatsapp Web
        ShellExecute( oDlg:hwnd,'open',"https://api.whatsapp.com/send?phone="+ALLTRIM(oQryComWeb:prefijo)+ALLTRIM(cTelefono)+"&text="+cTexto)
ENDIF

#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg1, oBrw, oBot1, lWhatsapp_escr := .f., oChe, aCols := {;
      {'5492324463274','Jose','Venezuela'},;
      {'5492324463274','Enrico','Italia'},;
      {'5492324463274','Cesar','Argentina'}}
DEFINE DIALOG oDlg1 TITLE "Enviar Mensaje por Whatsapp" FROM 05,15 TO 22,72
   @ 25, 05 XBROWSE oBrw SIZE 200,90 pixel OF oDlg1 ARRAY aCols  ;
      HEADERS "Telefono","Nombre", "Texto";
      COLUMNS 1,2,3;
      SIZES 100, 100,200;
      CELL LINES NOBORDER
   WITH OBJECT oBrw
      :CreateFromCode()
   END
@  5,  5 BUTTON oBot1 PROMPT "&Enviar" OF oDlg1 SIZE 50,15 ;
         ACTION EnviarWhatsapp(aCols[oBrw:nRowSel],lWhatsapp_escr,oDlg1) PIXEL 
@  5,160 CHECKBOX oChe VAR lWhatsapp_escr PROMPT "Whatsapp Escritorio" OF oDlg1 SIZE 100,12  PIXEL   
ACTIVATE DIALOG oDlg1 CENTERED 
RETURN nil

STATIC FUNCTION EnviarWhatsapp(a,lWhatsapp_escr, oDlg)
LOCAL cTexto

    cTexto:="Hola *"+ALLTRIM(a[2])+"*!"+CHR(13)+;
        "Queremos avisarte que tu detectamos que eres de *"+ALLTRIM(a[3])+"* "    
    cTexto := STRTRAN(cTexto," ","%20")
    cTexto := STRTRAN(cTexto,"&","%26")
    cTexto := STRTRAN(cTexto,chr(13),"%0D%0A")
    IF lWhatsapp_escr
        ShellExecute( oDlg:hwnd,'open',"whatsapp://send?phone="+ALLTRIM(a[1])+"&text=")
        Sleep(1000)
        ShellExecute( oDlg:hwnd,'open',"whatsapp://send?phone="+ALLTRIM(a[1])+"&text="+cTexto)
    ELSE 
        ShellExecute( oDlg:hwnd,'open',"https://api.whatsapp.com/send?phone="+ALLTRIM(a[1])+"&text="+cTexto)
    ENDIF

RETURN nil

#include "FiveWin.ch"
FUNCTION Main()
//SendToWhatsApp('5492324463274')
//SendToWhatsApp('5492324463274','Esto es una prueba')
SendToWhatsApp('5492324463274','Primer Prueba, un archivo adjunto y una foto de la web',;
               {'c:\fwh21\samples\whatsapp3.prg'})
SendToWhatsApp('5492324463274','Segunda Prueba, 2 adjunotos en un array, y dos imagenes desde la web en un array',;
              {'c:\fwh21\bitmaps\agua2.bmp','c:\fwh21\bitmaps\cara3.bmp'})
RETURN nil




FUNC SendToWhatsApp( cPhone, cMsg, aAttach )
LOCAL oShell, aFiles := {}, aOthers  := {}, lRet
 If (lRet := !Empty( cPhone ))
  If !Empty( aAttach )
   If( !HB_ISARRAY( aAttach ), aAttach := { aAttach }, )
   AEval( aAttach, {|cFile| If( HB_ISSTRING( cFile ) .AND. File( cFile ), AAdd( aFiles, cFile), AAdd( aOthers, cFile ) ) } )
  EndIf
  cMsg  := StrTran( cMsg, CRLF, "%0D%0A" )
  oShell := CreateObject( "WScript.Shell" )
  ShellExecute( 0, "Open", "whatsapp://send?phone="+cPhone+"&text="+cMsg)
  SysWait( 0.2 )
  If !Empty( aFiles )
   If FW_1CopyToClipBoard( aFiles, 15 )
    SysWait( 2 )
    oShell:SendKeys( "^v" )
    SysWait( 1 )
   EndIf
  EndIf
  AEval( aOthers, <|u|
                      If FW_1CopyToClipBoard( u, 2 ) .OR. FW_CopyToClipBoard( u )
                       SysWait( 1 )
                       oShell:SendKeys( "^v" )
                       SysWait( 1 )
                      EndIf
                      RETURN NIL
                  > )
   oShell:SendKeys("~")
 EndIf
RETURN lRet

function FW_1CopyToClipBoard( uValue, nFormat )

   local lCopied  := .f.
   local aBmp

   if HB_ISPOINTER( uValue ) // assumes GDI+ Image object
      GDIPLUSImageToClipBoard( uValue, GetDesktopWindow() )
      return .t.
   endif

   if uValue != nil

      if nFormat == 15
         if !HB_ISARRAY( uValue ); uValue := { uValue }; endif
         _fwhtmp_ := uValue
         uValue   := {}
         AEval( _fwhtmp_, { |c| If( File( c ), AAdd( uValue, TrueName( c ) ), nil ) } )
         _fwhtmp_ := nil
         if Empty( uValue )
            return .f.
         endif
      endif

      if Empty( nFormat ) .and. HB_ISARRAY( uValue ) .and. ;
         AScan( uValue, { |u| !( ValType( u ) == "C" .and. File( u ) ) } ) == 0
            AEval( uValue, { |c,i| uValue[ i ] := TrueName( c ) } )
            nFormat  := 15
      endif

      if nFormat == 2 .and. HB_ISSTRING( uValue )
         aBmp  := FW_ReadImage( nil, uValue, , .f. )
         if !Empty( aBmp[ 1 ] )
            uValue := aBmp[ 1 ]
         else
            return .f.
         endif
      endif

      if Empty( nFormat )
         if HB_ISSTRING( uValue )
            if IsBinaryData( uValue )
               if Left( MemoryBufferType( uValue ), 4 ) == "IMG."
                  aBmp := FW_ReadImage( nil, uValue, , .f. )
                  if !Empty( aBmp[ 1 ] )
                     uValue   := aBmp[ 1 ]
                     nFormat  := 2
                  endif
               endif
               if Empty( nFormat )
                  return .f.
               endif
            elseif Left( uValue, 4 ) == "http"
               aBmp := FW_ReadImage( nil, uValue, , .f. )
               if !Empty( aBmp[ 1 ] )
                  uValue   := aBmp[ 1 ]
                  nFormat  := 2
               else
                  nFormat  := 1
               endif
            else
               nFormat  := 1
            endif
         elseif HB_ISNUMERIC( uValue )
            if ISHBITMAP( uValue )
               nFormat := 2
            elseif ISENHMETA( uValue )
               nFormat  := 14
            endif
         endif
      endif

      if Empty( nFormat )
         if ValType( uValue ) $ "AH"
            uValue   := FW_ValToExp( uValue )
         elseif ValType( uValue ) $ "DT"
            uValue   := CharRem( "'", FW_DateToSQL( uValue ) )
         else
            uValue   := cValToChar( uValue )
         endif
         nFormat  := 1
      endif

      if nFormat != nil
         if nFormat == 2
            if HB_ISNUMERIC( uValue ) .and. ISHBITMAP( uValue )
               GDIPLUSHBITMAPTOCLIPBOARD( uValue, GetDeskTopWindow() )
               lCopied  := .t.
            endif
         elseif OpenClipBoard( GetDeskTopWindow() )
            EmptyClipboard()
            if nFormat == 1 .and. IsUtf8( uValue )
               uValue    := utf8toutf16( uValue )
               if !( Right( uValue, 2 ) == Chr( 0 ) + Chr( 0 ) )
                  uValue    += ( Chr( 0 ) + Chr( 0 ) )
               endif
               lCopied  := SetClipboardData( 13, uValue )
            elseif nFormat == 15
               lCopied  := SetClipboardData( 15, uValue )
            else
               lCopied  := SetClipboardData( nFormat, uValue )
            endif
            CloseClipboard()
         endif
      endif
   endif

   if aBmp != nil
      PalBmpFree( aBmp )
   endif

return lCopied

// REQUIERE VERSION WhatsApp - Escritorio
 
FUNCTION PRUEBA__WhatsApp()


LOCAL cPhone := "57"+"325874510"  // NO HACER PRUEBAS CON EL MISMO NUMERO DE QUIEN ENVIA
LOCAL cMenEnv := "Anexo factura de venta en formato PDF"
LOCAL cNomFil := "e:\temp\FACTURA_SP1012.PDF"
       
enviaLinkWhatsApp(ALLTRIM(cPhone),cMenEnv,cNomFil)

RETURN 


//***********************************************************

function enviaLinkWhatsApp(cPhone,cMsg,cFilPdf)

   LOCAL aImgEnv := {}


   IF !FILE(cFilPdf)
      ALERTA("Aviso. Archivo a transferir no existe : "+cFilPdf)
   ENDIF

   IF cFilPdf <> NIL .AND. !EMPTY(cFilPdf)
      aImgEnv := {cFilPdf}
   ENDIF

   IF !EMPTY(cPhone)

      _SendToWhatsApp( AllTrim( cPhone ), AllTrim( cMsg ),  aImgEnv )


   ELSE
      ALERTA("Aviso. Falto el n£mero para WhatSapp ")
   ENDIF


return nil


//****************************************************

function _SendToWhatsApp( cPhone, cMsg, aAttach )

   local oShell
   local aFiles   := {}
   local aOthers  := {}


   if Empty( cPhone ); return .f.; endif

   DEFAULT cMsg := "Hello"

   if !Empty( aAttach )

      if !HB_ISARRAY( aAttach ); aAttach := { aAttach }; endif

      AEval( aAttach, {|c| if( HB_ISSTRING( c ) .and. File( c ), ;
            AAdd( aFiles, c ), AAdd( aOthers, c ) ) } )

   endif

   cMsg  := StrTran( cMsg, CRLF, "%0D%0A" )

   oShell := CreateObject( "WScript.Shell" )
   ShellExecute( 0, "Open", "whatsapp://send?phone="+cPhone+"&text="+cMsg )

   SysWait( 0.2 )


   if !Empty( aFiles )
      if FW_CopyToClipBoard( aFiles, 15 )
         SysWait( 2 ); oShell:SendKeys( "^v" ); SysWait( 1 )
      endif
   endif


   AEval( aOthers, <|u|
      if FW_CopyToClipBoard( u, 2 ) .or. FW_CopyToClipBoard( u )
         SysWait( 1 ); oShell:SendKeys( "^v" ); SysWait( 1 )
      endif
      return nil
      > )
   SysWait( 1 )
   oShell:SendKeys("~")


return nil

//********************************************