Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: net send
Autor: .:SecchO:.
Datum: 26.11.02 20:38
Per API......ist jedoch nur ne simple function... ------------------------------------------------------------------- Option Explicit Private Declare Function NetMessageBufferSend Lib "netapi32.dll" ( _ lpServerName As Any, _ lpMsgName As Byte, _ lpFromName As Any, _ lpBuf As Byte, _ ByVal lnBufLen As Long _ ) As Long Private Const NERR_Success As Long = 0& Public Function SendMsg(SendTo As String, Message As String) As Long Dim WrittenTo() As Byte Dim MSGBuffer() As Byte WrittenTo = SendTo & vbNullChar MSGBuffer = Message & vbNullChar SendMsg = (NetMessageBufferSend(ByVal 0&, WrittenTo(0), ByVal 0&, MSGBuffer(0), UBound(MSGBuffer)) = NERR_Success) End Function Private Sub Command1_Click() ' Aufruf der Funktion Dim Test Dim result result = SendMsg("XXXXX", Text2) 'XXXXXX = Computername / Benutzername im NW End Sub

net send	112	z00m	26.11.02 20:28
Re: net send	63	.:SecchO:.	26.11.02 20:38
Re: net send	46	.:SecchO:.	26.11.02 20:39
Re: net send	251	tobias2709	27.11.02 10:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen