NetMessageBufferSend Win2000

Question

Bonjour je souhaite utiliser l'API NetMessageBufferSend pour pouvoir envoyer des message netsend anonyme.
Le problème est que ça ne veut pas marcher :(

Voici le code:

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

Si quelqu'un peut me dire pourquoi ca ne marche pas, ça serait sympa.
Si c'est impossible sous windows 2000 et que vous savez envoyer des message net send anonyme, merci de m'expliquer.

Merci d'avance 

Julie

cs_logarcon · Answer

http://www.vbfrance.com/code.aspx?ID=7052

NetMessageBufferSend Win2000

1 réponse

Discussions similaires