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

 1026728 visiteurs

 2 visiteurs en ligne

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 5460 fois

Vous êtes ici :   Accueil » NetSend (API)