SoloCodigo

Hola
Bueno quisiera saber como puedo enviar mensajes a otra maquina conectada en Red a mi maquina.

Hola colega espero te sirva esto ( Prueba ) :


Public Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Global Const NERR_Success As Long = 0&

Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean
   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte
   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar
   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If
End Function

En un formulario pones un command button y en el evento click
pones los siguiente :

dim XpcRed as string 'Variable que captura el nombre de la pc a dirigir el mensaje
dim Xtitulo as string 'Variable que captura el título
Dim Xmensaje as string 'Variable que captura el mensaje a dirigir
XpcREd="Maquina05" 'Por ejemplo
Xtitulo="Mensaje del administrador" 'Por ejemplo
Xmensaje="Como estas amigo" 'Por ejmeplo

SendMessage XpcRed,Xtitulo,Xmensaje

Espero te sirva colega hasta la proxima

:excl:

Pero como se haria una comunicacion entre 2 pc's por visual basic atraves de los puertos, como un pequeño chat.