Search Tools Links Login

Send a message to a user in your network

Posted: 2019-09-27
By: AndreaTincani
Viewed: 249

Filed Under:

VB6 Windows API, VB6 Network, VB6 Code Cache

No attachments for this post

This is sort of like the old DOS command NET SEND, allowing you to send messages to other users in your network.


Option Explicit

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" _
(ByVal servername As String, _
ByVal msgname As String, _
ByVal fromname As String, _
ByVal Buffer As String, _
ByVal BufSize As Long) As Long

Private Const NERR_SUCCESS As Long = 0
Private Const NERR_BASE As Long = 2100
Private Const NERR_NetworkError As Long = (NERR_BASE + 36)
Private Const NERR_NameNotFound As Long = (NERR_BASE + 173)
Private Const NERR_UseNotFound As Long = (NERR_BASE + 150)
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_BAD_NETPATH As Long = 53
Private Const ERROR_NOT_SUPPORTED As Long = 50
Private Const ERROR_INVALID_PARAMETER As Long = 87
Private Const ERROR_INVALID_NAME As Long = 123

Public Function NetSendMessage(ByVal sSendTo As String, ByVal sMessage As String) As Long
    Dim ret As Long
    'convert ANSI strings to UNICODE
    sSendTo = StrConv(sSendTo, vbUnicode)
    sMessage = StrConv(sMessage, vbUnicode)
    'Send a network message to a remote computer
    NetSendMessage = NetMessageBufferSend(vbNullString, sSendTo, vbNullString, _
        sMessage, Len(sMessage))
End Function

'returns the description of the Netapi Error Code
Public Function NetSendErrorMessage(ErrNum As Long) As String
    Select Case ErrNum
        Case NERR_SUCCESS
            NetSendErrorMessage = "The message was successfully sent"
        Case NERR_NameNotFound
            NetSendErrorMessage = "Send To not found"
        Case NERR_NetworkError
            NetSendErrorMessage = "General network error occurred"
        Case NERR_UseNotFound
            NetSendErrorMessage = "Network connection not found"
            NetSendErrorMessage = "Access to computer denied"
            NetSendErrorMessage = "Sent From server name not found."
            NetSendErrorMessage = "Invalid parameter(s) specified."
            NetSendErrorMessage = "Network request not supported."
            NetSendErrorMessage = "Illegal character or malformed name."
        Case Else
            NetSendErrorMessage = "Unknown error executing command."
End Select
End Function


Private Sub Command2_Click()
    Dim ret As Long

    'send a message to "andrea" user in your network, replace "andrea" with the name
    'of the user or the computer you want to send the message to

    'in order to receive and send messages in both computers (sender and receiver) you
    'must start the messenger service
    ret = NetSendMessage("andrea", "this is a message from a VB application")
    If ret <> 0 Then
        MsgBox NetSendErrorMessage(ret), vbCritical, "Error"
        MsgBox NetSendErrorMessage(ret), vbInformation, "NetSend"
    End If
End Sub

Special Instructions

This code originally appeared on, and has been republished here with the permission of Andrea Tincani.

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.