Como enviar mensajes

Hola Mikes,

puedes utilizar el Shell de DOS para hacerlo.

Es una forma rápida y sencilla de cumplir con lo que quieres.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Mikes" wrote:

Hola a todos, como puedo en VB .Net enviar un mensaje a otra computadora de
la red. Utilizando el NET SEND o otro comando.
Saludos
Gracias de antemano

Hola Mikes...

Imports System.Runtime.InteropServices

Public Class NetXend

Declare Auto Function NetMessageBufferSend Lib "NETAPI32.DLL" (ByVal
yServer As String, ByVal yToName As String, ByVal yFromName As String, ByVal
yMsg As String, ByVal lSize As Integer) As Integer

Public Sub NetSend(ByVal [To] As String, ByVal Message As String)
Me.NetMessageBufferSend(Nothing, [To],
System.Net.Dns.GetHostName.Trim, Message, (Message.Length * 2) + 1)
End Sub

Public Sub NetSend(ByVal From As String, ByVal [To] As String, ByVal
Message As String)
Me.NetMessageBufferSend(Nothing, [To], From, Message,
(Message.Length * 2) + 1)
End Sub

Public Sub New()

End Sub

End Class

La primera funcion actuaria igual que el Net Send de línea de comando... El
segundo manda un mensaje con el emisor que quieras...

Espero que esto te sirva...




"Mikes" escribió en el mensaje
news:

Hola a todos, como puedo en VB .Net enviar un mensaje a otra computadora

de

la red. Utilizando el NET SEND o otro comando.
Saludos
Gracias de antemano

Quita lo de "Imports System.Runtime.InteropServices" ya que no esta haciendo
nada en el código, pensaba declarar la llamada al API de otra forma pero
solo he logrado que funcione asi.

Saludos



"Juan Pedro Gonzalez" escribió en el mensaje
news:

Hola Mikes...

Imports System.Runtime.InteropServices

Public Class NetXend

Declare Auto Function NetMessageBufferSend Lib "NETAPI32.DLL" (ByVal
yServer As String, ByVal yToName As String, ByVal yFromName As String,

ByVal

yMsg As String, ByVal lSize As Integer) As Integer

Public Sub NetSend(ByVal [To] As String, ByVal Message As String)
Me.NetMessageBufferSend(Nothing, [To],
System.Net.Dns.GetHostName.Trim, Message, (Message.Length * 2) + 1)
End Sub

Public Sub NetSend(ByVal From As String, ByVal [To] As String, ByVal
Message As String)
Me.NetMessageBufferSend(Nothing, [To], From, Message,
(Message.Length * 2) + 1)
End Sub

Public Sub New()

End Sub

End Class

La primera funcion actuaria igual que el Net Send de línea de comando...

El

segundo manda un mensaje con el emisor que quieras...

Espero que esto te sirva...




"Mikes" escribió en el mensaje
news:
> Hola a todos, como puedo en VB .Net enviar un mensaje a otra computadora
de
> la red. Utilizando el NET SEND o otro comando.
> Saludos
> Gracias de antemano