Hi Fivewin experts
I need to send a message and a beep to an network user, which will open on his screen
ex: msginfo( "Your next rendezvous is arrived")
How can i make that?
Thanks for your help
#include "Fivewin.ch"
static odlg
FUNCTION MAIN()
LOCAL msg := SPACE( 20 )
LOCAL muser := SPACE( 20 )
DEFINE DIALOG oDlg
@ 1, 1 GET msg OF oDlg
@ 2, 1 GET muser OF oDlg
@ 4, 5 BUTTON "&Ok" ACTION sendnetmsg(msg,muser)
@ 4, 15 BUTTON "&Close" ACTION oDlg:End() CANCEL
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
function sendnetmsg(msg,muser)
local U_ser
if empty(alltrim(msg))
return(NIL)
endif
if empty(alltrim(muser))
U_ser:= "*"
else
u_ser:= muser
endif
Shellexecute(gethwnd32(odlg:hwnd),"open","Net.exe", " Send " + u_ser + " " + MSG,,,0)
return(NIL)
Return to FiveWin for CA-Clipper
Users browsing this forum: No registered users and 15 guests