FoxPro/Visual FoxPro - Deseo enviar mensajes a Whatsapp desde FoxPro 9.0

DECLARE  INTEGER FindWindow IN WIN32API STRING , STRING

DECLARE  INTEGER SetForegroundWindow IN WIN32API INTEGER

DECLARE  INTEGER  ShowWindow  IN WIN32API INTEGER , INTEGER

DECLARE INTEGER ShellExecute IN shell32.dll ;

  INTEGER hndWin, ;

  STRING cAction, ;

  STRING cFileName, ;

  STRING cParams, ;

  STRING cDir, ;

  INTEGER nShowWin

  LOCAL lt, lhwnd

  **************************

  *** Carga Whatsapp

  **************************

  comando='whatsapp://send?phone=51XXXXXXXXX&text=Mensaje%0AWhatsapp%20espa..final...final'

  =ShellExecute(0, 'open', Comando,'', '', 1)

   **************************

  WAIT "" TIMEOUT 5

  lt = "Whatsapp"

  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 = CREATEOBJECT ( "Wscript.Shell" )

     ox.sendKeys ( '{ENTER}' )

 ELSE

     MESSAGEBOX ( "Whatsapp no activada!" )

 ENDIF

PROCEDURE WHATSAPP (celular)

 TEXTO = FOPEN(FULLPATH("ctacte.txt"))  && el archivo ctacte,txt contiene en texto plano y lo añade al texto a enviar

 nSize =  FSEEK(TEXTO, 0, 2)

 = FSEEK(TEXTO, 0, 0)

 ctexto = FREAD(texto, nSize)

 = FCLOSE(texto)

  LOCAL lt, lhwnd

*** Cierra si esta abierto Whatsapp ***

 lt = "Whatsapp"

 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.

    ox = CREATEOBJECT ( "Wscript.Shell" )

    ShowWindow (lhwnd, 1)

    ox.sendkeys ( '%{F4}' )

ENDIF

  **************************

  *** Carga Whatsapp

  **************************

 comando='whatsapp://send?phone='+celular+'&text='+ctexto+'%0A'

  =ShellExecute(0, 'open', Comando,'', '', 1)

   **************************

DO WHILE .t.

  WAIT "Esperando que Whatsapp este activo..." TIMEOUT 15

  lt = "Whatsapp"

  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 = CREATEOBJECT ( "Wscript.Shell" )

    ox.sendKeys ( '{ENTER}' )

    WAIT "Enviando mensaje" TIMEOUT 5

    ox.sendkeys ( '%{F4}' )

	exit

 ELSE

  =ShellExecute(0, 'open', comando,'', '', 1)  && sino no estaba activo lo activa ahora

 ENDIF

 ENDDO

*** cierra el whatsapp  ***

 lt = "Whatsapp"

 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.

    ox = CREATEOBJECT ( "Wscript.Shell" )

    ShowWindow (lhwnd, 1)

    ox.sendkeys ( '%{F4}' )

   ENDIF

**********************************

ENDPROC