WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Software

Software Rat & Tat bei Softwareproblemen

Microsoft KARRIERECAMPUS

 
 
Themen-Optionen Ansicht
Alt 28.09.2003, 23:24   #3
Potassium
Inventar
 
Registriert seit: 06.03.2003
Alter: 37
Beiträge: 3.954

Mein Computer

Standard

also ich hab was gefunden das funzt aber ich verwende nur ungerne fremde wuelletxt noch dazu wenn ich sie nicht verstehe.... vielleicht kann mit dsa jemand erklären was da alles vorsich geht???


Code:
Public Declare Function NetSend Lib "netapi32" Alias "NetMessageBufferSend" (ByVal cServerName As String, ByVal cMsgName As String, ByVal cFromName As String, ByVal cBuf As String, ByRef iBufLen As Integer) As Integer  

Public Sub Senden(Von As String, Zu As String, Meldung As String)         Dim Text As String   
Dim Adressat As String   
Dim Absender As String   
Dim i As Integer     
If Von = "" Then   
Von = Computername   
End If   
If Zu = "" Then   
MsgBox "Bitte geben Sie einen Empänger ein", , "Kein gültiger Empänger"    
Exit Sub        
End If   
If Meldung = "" Then   
MsgBox "Bitte geben Sie ihre Nachricht ein", , "Keine gültige Nachricht"   
Exit Sub    
End If      
Text = StrConv(Meldung, vbUnicode)   
Adressat = StrConv(Zu, vbUnicode)   
Absender = StrConv(Von, vbUnicode)     
i = NetSend(Absender, Adressat, vbNullString, Text, ByVal Len(Text))   End Sub
Potassium ist offline   Mit Zitat antworten
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 07:52 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag