Estoy con un código de la API-Guide que lo que hace es a través de la API NetMessageBuff erSend enviar un mensaje por LAN como si fuera un "net send".
El código que viene es este:
Código:
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()
'Example created by X-MaD (x-mad@zolnetwork.com)
'Visit his website at http://www.zolnetwork.com/x-mad
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub
Pues bien. Asi, si tienes el servicio Messenger activo, funciona. El caso es que todo lo hace bien excepto lo de poner el From que se lo come en la funcion y pone un ByVal 0&.
He pensado que para conseguir que mandara el From podría cmabiar una parte de la función:
If NetMessageBuff erSend(ByVal 0&, RcptTo(0), From(0), _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If
Pero al hacer esta modificación deja de funcionar. Alguien sabe como hacer que funcione??
Gracias y salu2