Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

net send
Autor: Vendor2k
Datum: 25.02.02 19:40
Hi, ich habe diese Funktion zum senden von Nachrichten. Leider bekomme ich einen error wenn ich beim Absender etwas anderes al mein pc name angebe. Wie kann ich eine Nachricht mit bel. Absender versenden? - - Public Function NetSend(msg As String, ToNode As String) As Boolean Dim lReturnCode As Long Dim sUnicodeToName As String Dim sUnicodeFromName As String Dim sUnicodeMessage As String Dim lMessageLength As Long - Do DoEvents sUnicodeFromName = StrConv("mde-pc", vbUnicode) sUnicodeToName = StrConv("mde-pc", vbUnicode) sUnicodeMessage = StrConv("Hallo", vbUnicode) lMessageLength = Len(sUnicodeMessage) Screen.MousePointer = vbHourglass lReturnCode = NetMessageBufferSend("", sUnicodeToName, sUnicodeFromName, sUnicodeMessage, lMessageLength) - If lReturnCode = 0 Then Form1.StatusBar1.Panels(1).Text = "Your message was sent correct.." Else Form1.StatusBar1.Panels(1).Text = "Cannot Sent the message. Error No : " + CStr(lReturnCode) End If Exit Do Loop - Screen.MousePointer = vbDefault - End Function - Danke

net send	102	Vendor2k	25.02.02 19:40
Re: net send	62	cromec	26.02.02 11:34

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