NetMessageBufferSend: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
Zeile 3: Zeile 3:
  
 
== Deklaration ==
 
== Deklaration ==
<syntaxhighlight lang="vb">
+
<syntaxhighlight lang="<syntaxhighlight lang="vb">">
 
Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
 
Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _
 
                 ByRef lpServerName As Byte, _
 
                 ByRef lpServerName As Byte, _
Zeile 17: Zeile 17:
  
 
''lpServerName''
 
''lpServerName''
:[in] Name der Maschine, die die Nachricht versenden soll. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit vbNullChar abgeschlossene Zeichenkette im Unicode-Format. Ist der Parameter [[NULL]] oder enthält die Zeichenkette nur vbNullChar, so wird die lokale Maschine zum Versenden der Nachricht verwendet. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.
+
:[in] Name der Maschine, die die Nachricht versenden soll. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format. Ist der Parameter [[NULL]] oder enthält die Zeichenkette nur <syntaxhighlight lang="vb">NullChar, so wird die lokale Maschine zum Versenden der Nachricht verwendet. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.
  
  
 
''lpMsgName''
 
''lpMsgName''
:[in] Nachricht, die versandt werden soll. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit vbNullChar abgeschlossene Zeichenkette im Unicode-Format.  
+
:[in] Nachricht, die versandt werden soll. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format.  
  
  
 
''lpFromName''
 
''lpFromName''
:[in] Absender der Nachricht. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit vbNullChar abgeschlossene Zeichenkette im Unicode-Format. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.
+
:[in] Absender der Nachricht. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.
  
  
 
''lpBuf''
 
''lpBuf''
:[in] Nachricht, die versandt werden soll.<BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit vbNullChar abgeschlossene Zeichenkette im Unicode-Format.
+
:[in] Nachricht, die versandt werden soll.<BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format.
  
  
Zeile 43: Zeile 43:
  
 
== Beispiel ==
 
== Beispiel ==
<syntaxhighlight lang="vb">
+
<syntaxhighlight lang="<syntaxhighlight lang="vb">">
 
Dim arrbytServer() As Byte      '  Maschine, die die Nachricht sendet
 
Dim arrbytServer() As Byte      '  Maschine, die die Nachricht sendet
 
Dim arrbytDest() As Byte        '  Empfänger
 
Dim arrbytDest() As Byte        '  Empfänger
Zeile 50: Zeile 50:
 
      
 
      
 
'  Strings in WideChar konvertieren
 
'  Strings in WideChar konvertieren
arrbytServer = vbNullChar
+
arrbytServer = <syntaxhighlight lang="vb">NullChar
arrbytDest = Environ$("USERNAME") & vbNullChar
+
arrbytDest = Environ$("USERNAME") & <syntaxhighlight lang="vb">NullChar
arrbytMessage = "Grüße von www.activevb.de" & vbNullChar
+
arrbytMessage = "Grüße von www.active<syntaxhighlight lang="vb">.de" & <syntaxhighlight lang="vb">NullChar
 
      
 
      
 
'  Meldung absetzen
 
'  Meldung absetzen
Zeile 86: Zeile 86:
 
== Verweise ==
 
== Verweise ==
  
*[http://www.activevb.de/tipps/vb6tipps/tipp0536.html ActiveVB.de: Tipp 0536: Nachrichten per API übers Netzwerk senden]
+
*[http://www.active<syntaxhighlight lang="vb">.de/tipps/<syntaxhighlight lang="vb">6tipps/tipp0536.html ActiveVB.de: Tipp 0536: Nachrichten per API übers Netzwerk senden]
*[http://www.microsoft.com/germany/msdn/library/visualtools/vb6/NachrichtenImNTNetzwerkVerschicken.mspx MSDN Library: Nachrichten im NT-Netzwerk verschicken]
+
*[http://www.microsoft.com/germany/msdn/library/visualtools/<syntaxhighlight lang="vb">6/NachrichtenImNTNetzwerkVerschicken.mspx MSDN Library: Nachrichten im NT-Netzwerk verschicken]
 
*[http://support.microsoft.com/kb/507565/de MS Knowledge Base: Kurznachrichten im Netzwerk verschicken]
 
*[http://support.microsoft.com/kb/507565/de MS Knowledge Base: Kurznachrichten im Netzwerk verschicken]
  

Version vom 5. November 2016, 23:11 Uhr

Diese Funktion sendet im Netzwerk Nachrichten mit Hilfe des Nachrichtendienstes.

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


Parameter

lpServerName

[in] Name der Maschine, die die Nachricht versenden soll.
Dieser Parameter ist ein Zeiger auf NULL oder auf eine mit
NullChar abgeschlossene Zeichenkette im Unicode-Format. Ist der Parameter [[NULL]] oder enthält die Zeichenkette nur <syntaxhighlight lang="vb">NullChar, so wird die lokale Maschine zum Versenden der Nachricht verwendet. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.


''lpMsgName''
:[in] Nachricht, die versandt werden soll. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format. 


''lpFromName''
:[in] Absender der Nachricht. <BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format. <BR>Ist der Zeiger ungleich [[NULL]], muß das Benutzerkonto, das diese Funktion aufruft, Mitglied in der Administratoren-, Druck- oder Server-Operator-Gruppe sein.


''lpBuf''
:[in] Nachricht, die versandt werden soll.<BR>Dieser Parameter ist ein Zeiger auf [[NULL]] oder auf eine mit <syntaxhighlight lang="vb">NullChar abgeschlossene Zeichenkette im Unicode-Format.


''lnBufLen''
:[in] Größe der Nachricht in Byte.<BR>Beachten Sie, daß Zeichenketten im Unicode-Format mindestens 2 Byte pro Zeichen belegen.



== Rückgaben ==
Diese Funktion gibt einen Wert vom Typ ''[[ErrorCodeEnum]]'' zurück.



== Beispiel ==
<syntaxhighlight lang="<syntaxhighlight lang="vb">">
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 = <syntaxhighlight lang="vb">NullChar
arrbytDest = Environ$("USERNAME") & <syntaxhighlight lang="vb">NullChar
arrbytMessage = "Grüße von www.active<syntaxhighlight lang="vb">.de" & <syntaxhighlight lang="vb">NullChar
    
'   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


Betriebsystem

Die Funktion ist unter folgenden Betriebssystemen funktionsfähig:

  • Windows NT 3.1
  • Windows NT 3.5
  • Windows NT 3.51
  • Windows NT 4.0
  • Windows NT 5.0 (2000)
  • Windows XP (32 Bit und 64 Bit)
  • Windows 2003 (32 Bit und 64 Bit)


Verweise


Quelle