If you have an application that must run “unattended” and you want it to alert you if something goes wrong, your application can send you a message through WinPopUp. WinPopUp uses a mail slot to communicate with other computers in the network. Choose a mail slot name, such as \computernamemailslotmessngr, and use this code:

 Option ExplicitPrivate Declare Function CloseHandle Lib _	"kernel32" (ByVal hHandle As Long) As LongPrivate Declare Function WriteFile Lib _	"kernel32" (ByVal hFileName As Long, _	ByVal lpBuff As Any, _	ByVal nNrBytesToWrite As Long, _	lpNrOfBytesWritten As Long, _	ByVal lpOverlapped As Long) As LongPrivate Declare Function CreateFile Lib _	"kernel32" Alias "CreateFileA" ( _	ByVal lpFileName As String, _	ByVal dwAccess As Long, _	ByVal dwShare As Long, _	ByVal lpSecurityAttrib As Long, _	ByVal dwCreationDisp As Long, _	ByVal dwAttributes As Long, _	ByVal hTemplateFile As Long) As LongPrivate Const OPEN_EXISTING = 3Private Const GENERIC_READ = &H80000000Private Const GENERIC_WRITE = &H40000000Private Const GENERIC_EXECUTE = &H20000000Private Const GENERIC_ALL = &H10000000Private Const INVALID_HANDLE_VALUE = -1Private Const FILE_SHARE_READ = &H1Private Const FILE_SHARE_WRITE = &H2Private Const FILE_ATTRIBUTE_NORMAL = &H80 Function SendToWinPopUp(PopFrom As String, _	PopTo As String, MsgText As String) As Long	' parms:		PopFrom: user or computer that 	'			sends the message	'			PopTo: computer that receives the 	'			message	'			MsgText: the text of the message 	'			to send	Dim rc  As Long	Dim mshandle As Long	Dim msgtxt As String	Dim byteswritten As Long	Dim mailslotname As String	' name of the mailslot	mailslotname = "\" + PopTo + _		"mailslotmessngr" 	msgtxt = PopFrom + Chr(0) + PopTo + Chr(0) + _		MsgText + Chr(0) 	mshandle = CreateFile(mailslotname, _		GENERIC_WRITE, FILE_SHARE_READ, 0, _		OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)	rc = WriteFile(mshandle, msgtxt, _		Len(msgtxt), byteswritten, 0)	rc = CloseHandle(mshandle)End Function