Guten Tag,

API-Function:
Code: Declare Function NetMessageBufferSend Lib "Netapi32" (ByVal sServerName$, ByVal sMsgName$, ByVal sFromName$, ByVal sMessageText$, ByVal lBufferLength&) As Long


Erkärung:
1. Argument: sServerName$ : Der Server über welche die Message gesendet werden soll. Hier geben wir einen Nullstring an, dann wird die Message über den eigenen Rechner verschickt.
2. Argument: sMsgName$ : Der Empfänger (PC-Name oder IP) als Unicode-String.
3. Argument: sFromName$ : Der Sender (Im Normalfall der Name oder die IP des eigenen Rechners. Man kann aber auch irgendwas anderes angeben ). Auch dieses Argument als Unicode-String.
4. Argument: sMessageText$ : Die Nachricht die verschickt werden soll. (Auch das mit StrConv konvertieren ...)
5. Argument: lBufferLength& : Die Buffer-Länge. (In diesem Fall die Länge der zu sendenden Nachricht.)

Was man zur API wissen sollte, ist dass alle Strings als Unicode übergeben werden müssen.
Nun schauen wir uns mal an was wir der API-Funktion alles übergeben müssen.

Beispielaufruf:
Code: Private Declare Function NetMessageBufferSend Lib "Netapi32" (ByVal sServerName$, ByVal sMsgName$, ByVal sFromName$, ByVal sMessageText$, ByVal lBufferLength&) As Long

Private Sub Form_Click()
NetMessageBufferSend "", StrConv("localhost", vbUnicode), StrConv("Ich", vbUnicode), StrConv("hallo", vbUnicode), Len(StrConv("hallo", vbUnicode))
End Sub


Mit freundlicher Unterstüzung von Black-Rat

MFG