SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: javier3 en Jueves 5 de Junio de 2003, 22:42
-
Hola
Bueno quisiera saber como puedo enviar mensajes a otra maquina conectada en Red a mi maquina.
-
es lo mismo lo ke kieras enviar, lo primero es ke esas makinas esten conectadas con una estructura Cliente/Servidor, de forma que se conecten por IP una con otra y a traves de tu programa de VB. De esa forma puedes mandar lo ke kieras.
Por cier to el control es el WINSOCK.
:hippi:
-
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
:good::excl:
-
Hola:
puedes revisar tambien el ejemplo que adjunto. Para win 9x tiene que estar cargado el winpopup para leer los mensaje.
Saludos;
-
Pero como se haria una comunicacion entre 2 pc's por visual basic atraves de los puertos, como un pequeño chat.:think:
-
Esta aplicacion si creo que te pueda ayudar
Saludos...