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