En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222829 visiteurs

 11 visiteurs en ligne

Nous contacter

Contact

NetSend (API)

NetSend ( API )

Syntaxe : 

Call fNetSend("mon message", "NOMduPOSTE")

  

'/
'/ A placer dans la partie déclarative
'/
Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _
                   (ByVal servername As Byte, msgname As Byte, _
                    ByVal fromname As Byte, buf As Byte, _
                    ByVal buflen As Long) As Long

 La fonction :

Function fNetSend(strMsg As String, strTo As String)
    Dim bMessage() As Byte
    Dim bDestination() As Byte

    bMessage = strMsg & vbNullChar
    bDestination = strTo & vbNullChar

    If NetMessageBufferSend(0&, bDestination(0), 0&, bMessage(0), _
                            UBound(bMessage)) <> 0 Then
        MsgBox "Echec"
    End If
End Function

  

Télécharger la base exemple : A2KNetMsg.zip (51ko)

Catégorie : Les mémos - Net
Page lue 6399 fois
Vous êtes ici :   Accueil » NetSend (API)