How to send msgbox over the network

[Per Svensson]

Im trying to send msgboxes over the network.
But i can't figur it out.

I would like my program to send messages to one och more computers.
In the same way the DOS command "net send" does.
Ex
net send client It's a nice weather today.

Can i use the net send command in VB or is there another solution to this
problem.

Greetings
Per

[Arthur Wood]

Per,

Try the VB Shell function:

Shell "net send " & toWhom & " " & strMessage

Can't guarantee it, but it is worth a try.

Arthur Wood


"Per Svensson" <zeb1999@hotmail.com> wrote:
>
>Im trying to send msgboxes over the network.
>But i can't figur it out.
>
>I would like my program to send messages to one och more computers.
>In the same way the DOS command "net send" does.
>Ex
>net send client It's a nice weather today.
>
>Can i use the net send command in VB or is there another solution to this
>problem.
>
>Greetings
>Per

[Kevin MacCallum]

Here is a small routine I use to wrap the net send comand.

Public Sub SendPopUpMsg(ByVal sComputerName As String, ByVal sMsg As String)
'use net send to send a popup message to another computer
'in testing determine that max chars is approximately 2000
On Error Resume Next
Dim lResult As Long
Const iMAXLEN As Integer = 2000
Dim vbDblQuotes As String

vbDblQuotes = Chr$(34)

If Len(sComputerName) > 0 Then
'in testing get error if len >2000
If Len(sMsg) > iMAXLEN Then sMsg = Left$(sMsg, iMAXLEN)
lResult = Shell("net send " & sComputerName & " " & vbDblQuotes & sMsg
& vbDblQuotes, vbMinimizedNoFocus)
DoEvents
End If
End Sub

Kevin

"Arthur Wood" <wooda@saic-trsc.com> wrote:
>
>Per,
>
> Try the VB Shell function:
>
> Shell "net send " & toWhom & " " & strMessage
>
>Can't guarantee it, but it is worth a try.
>
>Arthur Wood
>
>
>"Per Svensson" <zeb1999@hotmail.com> wrote:
>>
>>Im trying to send msgboxes over the network.
>>But i can't figur it out.
>>
>>I would like my program to send messages to one och more computers.
>>In the same way the DOS command "net send" does.
>>Ex
>>net send client It's a nice weather today.
>>
>>Can i use the net send command in VB or is there another solution to this
>>problem.
>>
>>Greetings
>>Per
>

[Giuseppe]

Ciao Per Svensson,

You can utilized the API function "NetMessageBufferSend"

Ciao Giuseppe.

"Per Svensson" <zeb1999@hotmail.com> wrote:
>
>Im trying to send msgboxes over the network.
>But i can't figur it out.
>
>I would like my program to send messages to one och more computers.
>In the same way the DOS command "net send" does.
>Ex
>net send client It's a nice weather today.
>
>Can i use the net send command in VB or is there another solution to this
>problem.
>
>Greetings
>Per