Yo no se mucho de la programacion de sockets sin embargo un simple comando
como net send te puede ayudar.
Si la maquina a la cual tu quieres que el mensaje llegue esta dentro de tu
propia red (red interna) esto lo puedes lograr facilmente con NET SEND
(claro si trabajas con NT)

NET SEND Nombre_Netbios_de_la_maquina_destino mensaje

o bien

NET SEND Usuario mensaje

Si la maquina es externa a tu red necesitaras otros detalles que te los
puedo explicar si es que aun te interesa esta solucion.

Suerte!

Jaime O.

Hola Felix
Podes hacer un programa de chat facilmente con sockets. El problema con
ello es que la aplicacion tiene que estar corriendo en las dos PC. Si
las dos PC corren NT, esto ya esta solucionado, porque haces que tu
programa ejecute NET SEND nombre texto (en donde nombre es el nombre de
la computadora que va a recibir el mensaje "texto"). Tiene que estar
corriendo el servicio de mensajeria de NT.
Otra solucion es usar el programa "Mensajes emergentes" (WinPopUp.exe)
de Windows 95 (compatible con Windows 3).
Te adjunto un pagina de http://www.planet-source-code.com/vb en donde
encontre una forma de usarlo desde VB . Hay que tener en cuenta que el
programa siempre tiene que estar corriendo.

Saludos



Send message to winpopup


Submitted on: 6/16/98

By: Dragoslav Stankovic

Category: VB 5.0,VB 4.0/32

Users have accessed this code 232 times.


Windows API/Global Declarations:

'****************************************************************
'Windows API/Global Declarations for :Send message to winpopup '****************************************************************
Global Const OPEN_EXISTING = 3
Global Const GENERIC_READ = &H80000000
Global Const GENERIC_WRITE = &H40000000
Global Const GENERIC_EXECUTE = &H20000000
Global Const GENERIC_ALL = &H10000000 Global
Const INVALID_HANDLE_VALUE = -1
Global Const FILE_SHARE_READ = &H1
Global Const FILE_SHARE_WRITE = &H2
Global Const FILE_ATTRIBUTE_NORMAL = &H80
Declare Function CloseHandle Lib "kernel32" (ByVal hHandle As Long) As Long Declare Function WriteFile Lib "kernel32" (ByVal hFileName As Long, ByVal lpBuff As Any, ByVal nNrBytesToWrite As Long, lpNrOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwAccess As Long, ByVal dwShare As Long, ByVal lpSecurityAttrib As Long, ByVal dwCreationDisp As Long, ByVal dwAttributes As Long, ByVal hTemplateFile As Long) As Long

Source Code:

'****************************************************************
' Name: Send message to winpopup '
' Description:Send message to WinPopUp from your programs.
' By: Dragoslav Stankovic
'
' Inputs:None
' Returns:None
' Assumes:None
' Side Effects:None
'
'Code provided by Planet Source Code(tm)
'as is
', without
' warranties as to performance, fitness, merchantability,
' and any other warranty (whether expressed or implied). '****************************************************************
Function SendToWinPopUp(PopFrom As String, PopTo As String, MsgText As String) As Long
Dim rc As Long
Dim mshandle As Long
Dim msgtxt As String
Dim byteswritten As Long
Dim mailslotname As String
'
' name of the mailslot
mailslotname = "\\" + PopTo + "\mailslot\messngr"
msgtxt = PopFrom + Chr(0) + PopTo + Chr(0) + MsgText + Chr(0)
mshandle = CreateFile(mailslotname, GENERIC_WRITE, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
rc = WriteFile(mshandle, msgtxt, Len(msgtxt), byteswritten, 0)
rc = CloseHandle(mshandle)
End Function

Private Sub Command1_Click()
  SendToWinPopUp txtFrom, txtTo, txtMsg
End Sub

Copyright© 1997 by ian@planet-source-code.com>Ian Ippolito All Rights Reserved

>Hola a todos!

Hola.

>Alguien me podría decir como se pueden enviar mensajes entre máquinas
desde
>Visual Basic ( ya sea con un control o mediante una función de la API), al
>estilo de los mensajes emergentes de Windows 95 y el servicio de
Mensajería
>de NT.

Puedes utilizar la misma conexión TCP/IP que proporciona el Windows 95 para
conectar máquinas en RED para enviar mensajes entre máquinas.
Tengo un ejemplo muy sencillo que hace una especie de chat -super simple,
¿eh?-, entre dos equipos.
Te lo adjunto.

Saludos.
Una obediencia ciega supone siempre una ignorancia extrema.
ORZO, <orzo@orzo.com>

 dospcs.zip