Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: (fast) Unlösbar danke ich
Autor: M_Weckner
Datum: 08.03.02 09:29
das geht so net 'Hier die benötigten API-Deklarationen Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long 'Die Prozedur ermittelt den angemeldeten 'Benutzernamen Public Function GetBenutzer() As String Dim UserName As String Dim Result As Long UserName = Space$(256) Result = GetUserName(UserName, Len(UserName)) If InStr(UserName, Chr$(0)) > 0 Then _ UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1) GetBenutzer = UserName End Function da kommt immer ne msgbox mit : Fehler beim Komplimieren! Nach end sub end function usw... können nur kommentare stehen !¿! Mfg maik

(fast) Unlösbar danke ich	83	M_Weckner	08.03.02 08:50
Re: (fast) Unlösbar danke ich	256	Dieter	08.03.02 09:15
Re: (fast) Unlösbar danke ich	49	M_Weckner	08.03.02 09:29
Re: (fast) Unlösbar danke ich	243	Dieter	08.03.02 09:34
Re: (fast) Unlösbar danke ich	44	M_Weckner	08.03.02 09:45

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