*======================================================== * Send a message to a computer. Same as NET SEND. *======================================================== Procedure SendMsg LParameter tcTarget, tcSender, tcReceipient, tcMessage Local lnHandle, llOK lnHandle = FCreate("\\"+m.tcTarget+"\MailSlot\Messngr") If m.lnHandle == -1 llOK = .F. Else FWrite( m.lnHandle, ; m.tcSender + Chr(0) + ; m.tcReceipient + Chr(0) + ; m.tcMessage+Chr(0) ; ) FClose( m.lnHandle ) llOK = .T. Endif Return m.llOK--