#include "fivewin.ch"
#include 'constant.ch'
Function test()
Local oDlg,oFont,oBold
local aGet:=array(10)
local oBtnSel
local cPhone:=space(14)
local cMsg:=space(255)
local aCooDlg := aParamDialog(6)
local nRow:= 40,nCol:= 10
local nInterlinea := 30
oFont := TFont():New( "TAHOMA", 0, 16,, )
oBold := TFont():New( "TAHOMA", 0, 14,,.t. )
DEFINE DIALOG oDlg SIZE aCooDlg[1], aCooDlg[2] PIXEL TRUEPIXEL;
FONT oFont TITLE "test WhatsApp Message" COLOR CLR_BLACK, nRgb( 245,244,234) TRANSPARENT;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX)
@ nRow,nCol Say "Phone :"
nRow-=2
@ nRow,nCol GET aGet[1] VAR cPhone SIZE 200,24 PIXEL of oDlg
@ nRow,nCol+200 BTNBMP oBtnSel FILE "PHONE.png" SIZE 30,23 PIXEL FLAT NOROUND;
ACTION ::ShowPopUp( Options( Self,cPhone,cMsg ) )
oBtnSel:nClrBorder := rgb(210,210,205)
ACTIVATE DIALOG oDlg CENTER ;
ON INIT (oDlg:resize())
RETURN NIL
//---------------------------------------------------------------------//
Function Options (oBtn,cPhone,cMsg)
local oMenu
If Empty(cPhone)
MsgAlert("Devi inserie un numero telefonico")
return nil
Endif
MENU oMenu POPUP
MENUITEM "Messaggio con SMS"
SEPARATOR
MENUITEM "Messaggio con WhathApp" NAME "whatsapp.png" ;
ACTION AskMsg(cMsg,cPhone)
ENDMENU
return oMenu
Function AskMsg(cMsg,cPhone)
If MsgGet("Messaggio da inviare","Messaggio :",cMsg )
SendToWhatsApp( cPhone, cMsg, aAttach )
endif
return nil
//----------------------------------------------------------------------//
FUNC SendToWhatsApp( cPhone, cMsg, aAttach )
LOCAL oShell, aFiles := {}, aOthers := {}, lRet
DEFAULT aAttach := {}
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_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
> )
oShell:SendKeys("~")
EndIf
RETURN lRet
Function aParamDialog(n)
local nBottom,nRight,nWd,nHt
local aTmp :={0,0}
Do Case
Case n=6
nBottom:= 12 //edit2
nRight := 78
Endcase
nHt := nBottom * DLG_CHARPIX_H
nWd := Max( nRight * DLG_CHARPIX_W, 180 )
aTmp[1]:=nWd
aTmp[2]:=nHt
return aTm
