NetMessageBufferSend

Deklaration

Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
                ByRef lpServerName As Byte, _
                ByRef lpMsgName As Byte, _
                ByRef lpFromName As Byte, _
                ByRef lpBuf As Byte, _
                ByVal lnBufLen As Long) As Long

lpServerName

lpMsgName

lpFromName

lpBuf

lnBufLen

Beispiel

Dim arrbytServer() As Byte      '   Maschine, die die Nachricht sendet
Dim arrbytDest() As Byte        '   Empfänger
Dim arrbytMessage() As Byte     '   Nachricht
Dim lngResult As Long
    
'   Strings in WideChar konvertieren
arrbytServer = vbNullChar
arrbytDest = Environ$("USERNAME") & vbNullChar
arrbytMessage = "Grüße von www.activevb.de" & vbNullChar
    
'   Meldung absetzen
lngResult = NetMessageBufferSend( _
                    arrbytServer(0), _
                    arrbytDest(0), _
                    ByVal 0&, _
                    arrbytMessage(0), _
                    UBound(arrbytMessage))
                    
'   Falls ein Fehler aufgetreten ist, diesen auslesen
If lngResult <> NERR_Success Then
    Debug.Print "Fehlercode: " & Err.LastDllError
End If

---

Diese Deklaration wurde von Helge Rex erstellt. Sollten Sie Fragen zur Verwendung der entsprechenden Funktion haben, so verwenden Sie hierfür bitte das Visual Basic Forum, die Artikeldiskussionsseite oder die Nutzerdiskussionsseite.