FiveTech Software tech support forums

Code: Select all | Expand

FUNCTION  WHATSAPP(cNombre, cTelef, elpass)  
          
          cTEXT := "Estimado/a cliente: "+ cNombre+"%0A"
          ctext1 :=  HBA("A partir de hoy podrá ver su resúmen de cuenta en ")+" "+"" + "%0A" 
          cText2 := HBA("Ud. deberá ingresar su nro. de cuenta y clave. %0A"+"En el campo fecha deberá ingresar una fecha cualquiera del mes que desea ver. %0A" )
          cText3 := "Su clave es "+"("+Alltrim(elpass)+")%0A" +  HBA("Los paréntesis NO son parte de la clave")+"%0A"
          cText4 :=  "%0A Le saluda atte. %0A"+" "+""
  
          ShellExecute( 0, "open", "whatsapp://send?phone="+cTelef+" &text="+cText+cText1+cText2+cText3+cText4 )
          SysWait( 8 )
          CreateObject( "WScript.Shell" ):SendKeys( "~" )
 

Code: Select all | Expand

LOCAL oShell
   LOCAL nTimEsp := 2500   , cTimEsp := "2500"


   oShell := CreateObject( "WScript.Shell" )
                                          //https://web.whatsapp.com/
   try
     oShell:run("msedge.exe https://web.whatsapp.com/send?phone="+cNroTel )
   catch
     oShell:run("chrome.exe https://web.whatsapp.com/send?phone="+cNroTel )
   end

   Sleep(nTimEsp)
   oShell:sendkeys("{tab}{tab}")
   oShell:SendKeys("~")
   Sleep(5000)
   oShell:sendkeys(cTexMen)
   oShell:SendKeys("~")

 

Code: Select all | Expand

          cTelef:= cCelu
          cText := "Estimado/a cliente: "+ cNombre+"%0A"+"%0A"
          ctext1 :=  HBA("A partir de hoy podrá ver su resúmen de cuenta en ")+" "+cmen[3]+ "%0A" 
          cText2 := HBA("Ud. deberá ingresar su nro. de cuenta y clave. %0A"+"En el campo fecha deberá ingresar una fecha cualquiera del mes que desea ver. %0A" )
          cText3 := "Su clave es "+"("+Alltrim(elpass)+")%0A" +  HBA("Los paréntesis NO son parte de la clave")+"%0A"
          cText4 :=  "%0A Le saluda atte. %0A"+" "+""
          cText := cText+=ctext1+=ctext2+=ctext3+ctext4
          oShell := CreateObject( "WScript.Shell" )
         
          ShellExecute( 0, "Open", "whatsapp://send?phone="+cTelef+"&text="+cText+"%0A")

          Sleep(nTimEsp)
          oShell:SendKeys("~")  
          oShell:SendKeys("~")  
          CreateObject( "WScript.Shell" ):SendKeys( '~' )