title image


Smiley Re: Registry bearbeiten
Hallo Fritz,'Aus Oberdalhoff, Klaus - KnowHow 3.0'http://www.online-products.de/accessware/files/knowhw30.zipPrivate Declare Function api_GetUserName Lib "advapi32.dll" _Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Declare Function api_GetComputerName Lib "kernel32" _Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function UserundComputer(UOrC As Integer) As String'***********************************************************************'UserundComputer(1)=User, UserundComputer(etwas anderes) = Computer'***********************************************************************On Error Resume Next Dim NBuffer As String Dim Buffsize As Long Dim Wok As Long Buffsize = 256 NBuffer = Space$(Buffsize) If UOrC = 1 Then Wok = api_GetUserName(NBuffer, Buffsize) UserundComputer = Trim$(NBuffer) Else Wok = api_GetComputerName(NBuffer, Buffsize) UserundComputer = Trim$(NBuffer) End If If Right(UserundComputer, 1) = Chr(0) Then UserundComputer = Left(UserundComputer, Len(UserundComputer) - 1) End IfEnd FunctionGrußWalter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: