Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Uso de la api sendmessage???? Ayuda

Estas en el tema de Uso de la api sendmessage???? Ayuda en el foro de Visual Basic clásico en Foros del Web. hola a todos. una ves mas acudo a ustedes con una pregunta. Es posible de alguna manera enviar mensajes desde un equipo a otro (conectados ...
  #1 (permalink)  
Antiguo 26/05/2005, 16:00
 
Fecha de Ingreso: marzo-2005
Mensajes: 22
Antigüedad: 19 años, 1 mes
Puntos: 0
Uso de la api sendmessage???? Ayuda

hola a todos.

una ves mas acudo a ustedes con una pregunta.

Es posible de alguna manera enviar mensajes desde un equipo a otro (conectados en red) usando la api sendmessage obteniendo solo la ip de ese equipo y sin necesidad de tener un programa Servidor.

cualquier ayuda la agradesco de antemano.
  #2 (permalink)  
Antiguo 26/05/2005, 16:02
 
Fecha de Ingreso: abril-2005
Mensajes: 3.083
Antigüedad: 19 años, 1 mes
Puntos: 17
¡¡SendMessage es para enviar mensajes Windows a aplicaciones de Windows!!

Lo que tú pides es comunicación entre ordenadores por sockets.

También tienes la opción de usar el comando "net send"...
  #3 (permalink)  
Antiguo 26/05/2005, 16:56
 
Fecha de Ingreso: marzo-2005
Mensajes: 22
Antigüedad: 19 años, 1 mes
Puntos: 0
Gracias Maxextreme voy a intntarlo.
  #4 (permalink)  
Antiguo 27/05/2005, 06:41
 
Fecha de Ingreso: noviembre-2003
Ubicación: Madrid
Mensajes: 109
Antigüedad: 20 años, 6 meses
Puntos: 0
Cita:
Iniciado por ensaltalobas
Gracias Maxextreme voy a intntarlo.
prueba con la API SendMessage así:

Código:
Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private 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

Private Sub Form_Load()
    Dim RetVal As Boolean
    ' FORMATO
    ' RetVal = SendMessage("pcDestino", "usuarioQueLoManda", "Mensaje")
    RetVal = SendMessage("172.22.72.81", "yo", "te escribo esto")
End Sub
__________________
Lo importante no es saber, sino tener el teléfono del que sabe :risa:
  #5 (permalink)  
Antiguo 27/05/2005, 07:50
Avatar de Eternal Idol  
Fecha de Ingreso: mayo-2004
Ubicación: Lucentum
Mensajes: 6.192
Antigüedad: 20 años
Puntos: 74
Cita:
Iniciado por sdemingo
prueba con la API SendMessage así:
Muy gracioso, asi confundis a la persona que pregunto ...
__________________
¡Peron cumple, Evita dignifica! VIVA PERON CARAJO
  #6 (permalink)  
Antiguo 30/05/2005, 02:58
 
Fecha de Ingreso: noviembre-2003
Ubicación: Madrid
Mensajes: 109
Antigüedad: 20 años, 6 meses
Puntos: 0
Cita:
Iniciado por Eternal Idol
Muy gracioso, asi confundis a la persona que pregunto ...
Qué ladras?
__________________
Lo importante no es saber, sino tener el teléfono del que sabe :risa:
  #7 (permalink)  
Antiguo 30/05/2005, 05:04
 
Fecha de Ingreso: abril-2005
Mensajes: 3.083
Antigüedad: 19 años, 1 mes
Puntos: 17
Cita:
Iniciado por sdemingo
Qué ladras?
Te está diciendo que esas no son maneras.

El símbolo SendMessage está para la función de la API. Si tú vas y implementas otra, lo estás confundiendo, a él y encima puede haber conflictos si se intentan los dos.
  #8 (permalink)  
Antiguo 30/05/2005, 07:00
Avatar de Eternal Idol  
Fecha de Ingreso: mayo-2004
Ubicación: Lucentum
Mensajes: 6.192
Antigüedad: 20 años
Puntos: 74
Cita:
Iniciado por sdemingo
Qué ladras?
¿Tenes algun problema de comprension acaso?
__________________
¡Peron cumple, Evita dignifica! VIVA PERON CARAJO
  #9 (permalink)  
Antiguo 30/05/2005, 07:24
Avatar de VisualGuallabo  
Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 19 años, 1 mes
Puntos: 2
Puedes aserlo atraves del comando de msdos.
Shell "Net send pc mensaje"
o utilizando las api.

del segundo caso tengo un ejemplo muy completo escribeme a privado si te interesa.
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"

Yosvanis Cruz Alias VisualGuallabo
Ycruz
  #10 (permalink)  
Antiguo 30/05/2005, 07:40
Avatar de Eternal Idol  
Fecha de Ingreso: mayo-2004
Ubicación: Lucentum
Mensajes: 6.192
Antigüedad: 20 años
Puntos: 74
Cita:
Iniciado por VisualGuallabo
Puedes aserlo atraves del comando de msdos.
Shell "Net send pc mensaje"
o utilizando las api.

del segundo caso tengo un ejemplo muy completo escribeme a privado si te interesa.
Ya hay un ejemplo de como HACERLO con la API de Windows en este hilo.
__________________
¡Peron cumple, Evita dignifica! VIVA PERON CARAJO
  #11 (permalink)  
Antiguo 30/05/2005, 10:50
 
Fecha de Ingreso: abril-2005
Mensajes: 3.083
Antigüedad: 19 años, 1 mes
Puntos: 17
Cita:
Iniciado por Eternal Idol
Ya hay un ejemplo de como HACERLO con la API de Windows en este hilo.
Hablamos sin leer el topic dándonoslas de importantes ¿¡eh!?
  #12 (permalink)  
Antiguo 31/05/2005, 06:35
Avatar de VisualGuallabo  
Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 19 años, 1 mes
Puntos: 2
Yo se que hay un ejemplo con las API. pero yo me refiero a un ejemplo mas completo.
que además te informa si el mensaje fue resibido y en caso que no sea resibido la causa.
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"

Yosvanis Cruz Alias VisualGuallabo
Ycruz
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:31.