Foros del Web » Programación para mayores de 30 ;) » Programación General »

Código para enviar mensajes a través de la IP ??

Estas en el tema de Código para enviar mensajes a través de la IP ?? en el foro de Programación General en Foros del Web. Habrá disponible algún código para enviar mensajes instataneos mediante la IP del receptor ?? Se que existen algunos programa que hacen eso pero creo que ...
  #1 (permalink)  
Antiguo 15/01/2004, 09:46
jcl
 
Fecha de Ingreso: enero-2002
Mensajes: 673
Antigüedad: 22 años, 4 meses
Puntos: 1
Código para enviar mensajes a través de la IP ??

Habrá disponible algún código para enviar mensajes instataneos mediante la IP del receptor ??

Se que existen algunos programa que hacen eso pero creo que son pagos ... ¿habrá alguno gratis?

¿sabe alguien de esto?

Saludos y gracias.
  #2 (permalink)  
Antiguo 15/01/2004, 09:48
 
Fecha de Ingreso: diciembre-2003
Mensajes: 288
Antigüedad: 20 años, 4 meses
Puntos: 0
prueba el netstat de msdos, en redes locales diferentes funcionan
  #3 (permalink)  
Antiguo 15/01/2004, 10:18
jcl
 
Fecha de Ingreso: enero-2002
Mensajes: 673
Antigüedad: 22 años, 4 meses
Puntos: 1
No te entiendo ... o tu no entiendes lo que pido
  #4 (permalink)  
Antiguo 15/01/2004, 10:30
Avatar de Jorge_Mota  
Fecha de Ingreso: diciembre-2002
Ubicación: Chapinlandia :-D
Mensajes: 725
Antigüedad: 21 años, 5 meses
Puntos: 11
revisa si esto te sirve (Tomado de www.AllApi.net)

'Requires Windows NT 3.1 or later; Win9x/ME: Not supported
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()
'Example created by X-MaD ([email protected])
'Visit his website at http://www.zolnetwork.com/x-mad
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub
__________________
Jorge Mota
Blog
Gubiz estafa
  #5 (permalink)  
Antiguo 15/01/2004, 11:37
jcl
 
Fecha de Ingreso: enero-2002
Mensajes: 673
Antigüedad: 22 años, 4 meses
Puntos: 1
Gracias ... pero ¿ya tu lo probastes?

Visité las direcciones que me indicas y me temo no haber visto algún texto explicativo. No es bueno probar códigos a ciegas ... puede costar caro. Al menos se debe saber qué hace o qué puede hacer, etc. Sobre todo, me llamó la atención cuando dice "Requires Windows NT 3.1 or later; Win9x/ME: Not supported" .... ¿significa que sólo funciona en Windows NT? ... ¿y cómo?

Saludos.

Última edición por jcl; 15/01/2004 a las 11:42
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:30.