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.
| |||
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. |
| ||||
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 |
| |||
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 |