>local lt, lhwnd >lt = "Whatsapp" >ox = createobject ( "Wscript.Shell" ) >wait "" timeout 3 >smensaje=strtran(alltrim(xsmensaje)," ", "%20") >stelefono=strtran(alltrim(xstelefono),"-", "") >comando="whatsapp://send?phone=1"+alltrim(stelefono)+"&text=%0A"+alltrim(smensaje) >if ximagen > =shellexecute(0, "open", comando,"", "", 1) Jose, I am afraid you cannot 'automate' for one thing Whatsapp on your pc only works with a Phone aside. How do you want to check that situation? Regards, Koen >else > =shellexecute(0, "open", comando,"", "C:\PROYECTO", 1) >endif >lhwnd = findwindow (0, lt) >if lhwnd!= 0 && Comprueba si la ventana está activada > setforegroundwindow (lhwnd) && Establece el foco en la ventana de la aplicación donde Tú envías la llave. > showwindow (lhwnd, 1) > ox.sendkeys ( "{ENTER}" ) >else > messagebox(" espere un momento por favor!!!!!!!",0,'AVISO',10000) > ox.sendkeys ( "{ENTER}" ) > if ximagen > ox.sendkeys ("^(V)") > endif > ox.sendkeys ("%{F4}") >endif >ox.sendkeys ("{ENTER}") > >ox.sendkeys ("%{F4}") >return 1 >