#include "FiveWin.ch"
STATIC oImg
FUNCTION Main()
LOCAL oDlg1, oBrw, oBot1,;
aCols := {;
{'5499999999997','Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y Kétchup.'+chr(13)+' Incluye Papas Fritas.',"c:\fwh21\samples\prueba.xls"},;
{'5499999999998','Carne 120 grs. Cheddar, Lechuga, Tomate y Mayonesa, Mostaza y Kétchup.'+chr(13)+' Incluye Papas Fritas.',"c:\fwh21\samples\prueba.bmp"},;
{'5499999999999','Carne 120 grs. Cheddar, Huevo Bacon y BBQ.'+chr(13)+' Incluye Papas Fritas.',"c:\fwh21\samples\prueba.pdf"}}
DEFINE DIALOG oDlg1 TITLE "Envio de whatsapp" SIZE 700,600 PIXEL TRUEPIXEL RESIZABLE
@ 60, 20 XBROWSE oBrw SIZE 400,600 pixel OF oDlg1 ARRAY aCols ;
HEADERS "Telefono", "Texto","Adjunto";
COLUMNS 1,2,3;
SIZES nil, 100,nil;
CELL LINES NOBORDER
WITH OBJECT oBrw
:nRowHeight := 150
:CreateFromCode()
END
@ 05,05 BUTTON oBot1 PROMPT "&Enviar" OF oDlg1 SIZE 100,40 ACTION Enviar(aCols,oBrw) PIXEL
@ 05,450 IMAGE oImg FILE "c:\fwh21\bitmaps\sea.bmp" OF oDlg1 SIZE 200,200 PIXEL ADJUST
ACTIVATE DIALOG oDlg1 CENTERED
RETURN nil
*--------------------------------------------------------------------------------
STATIC Function Enviar(aData, oBrw)
Local oShell, cTexto, i
oImg:CopyToClipboard()
oBrw:GoTop()
FOR i := 1 TO LEN(aData)
cTexto := aData[i,2]
cTexto := STRTRAN(cTexto," ","%20")
cTexto := STRTRAN(cTexto,"&","%26")
cTexto := STRTRAN(cTexto,chr(13),"%0D%0A")
ShellExecute( 0, "open", "whatsapp://send?phone="+alltrim(aData[i,1])+"&text="+cTexto)
oShell := CreateObject( "WScript.Shell" )
syswait(.2)
oShell:SendKeys( "~" )
syswait(3)
oShell:SendKeys( "^v" )
syswait(4)
oShell:SendKeys("~")
syswait(4)
oShell:SendKeys("+{TAB}")
syswait(.2)
oShell:SendKeys("~")
syswait(.2)
oShell:SendKeys("{DOWN}")
syswait(.2)
oShell:SendKeys("~")
syswait(2)
oShell:SendKeys(aData[i,3])
syswait(.2)
oShell:SendKeys("~")
syswait(4)
oShell:SendKeys("~")
syswait(.2)
oShell:SendKeys("{TAB}")
oBrw:Skip()
NEXT i
Return nil