Click here to Skip to main content
11,790,366 members (66,235 online)
Click here to Skip to main content

Simple Send using Net Send

, 24 May 2004 98K 2.3K 34
Rate this:
Please Sign up or sign in to vote.
Simple front end for sending text messages over LAN


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
         Dim lretval As Long = Shell("net send " & strname & _
    " """ & Mid(strMessage, lngPos, iChunk) & """", vbHide)
         lngPos += iChunk
         'pause to stop out of sequence message chunks
     Loop Until lngPos > Len(strMessage)
     strStatus &= strname.ToString
  Next strSeleted
End If

Points of Interest

Very useful for sending error messages to nearby developers.


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

United States United States
No Biography provided

You may also be interested in...

Comments and Discussions

GeneralThere's a much better article about this Pin
juanchosc25-May-04 8:47
sussjuanchosc25-May-04 8:47 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.1509028.1 | Last Updated 25 May 2004
Article Copyright 2004 by gordonchristie
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid