Simple Send using Net Send

• Download demo project - 9 Kb
• Download source - 11 Kb

Introduction

This article shows a basic front-end for Net Send that allows sending messages to multiple recipients.

Using the code

The heart of the whole operation lies below :-

If lstnames.SelectedItems.Count > 0 Then
  For Each strSeleted As String In lstnames.SelectedItems
    'somehow a list item is in fact a string
     Dim strname As String = " " & strSeleted
     Dim lngPos As Long = 1
     Do
         Dim lretval As Long = Shell("net send " & strname & _
    " """ & Mid(strMessage, lngPos, iChunk) & """", vbHide)
         lngPos += iChunk
         'pause to stop out of sequence message chunks
         Sleep(100)
     Loop Until lngPos > Len(strMessage)
     strStatus &= strname.ToString
  Next strSeleted
End If

Points of Interest

Very useful for sending error messages to nearby developers.