BlackBoard (http://www.black-board.net/index.php)
- Design, Programmierung & Entwicklung (http://www.black-board.net/board.php?boardid=55)
-- Programmieren (http://www.black-board.net/board.php?boardid=4)
--- VB Befehl zum Auslesen des Benutzernamens (http://www.black-board.net/thread.php?threadid=15217)

Geschrieben von Tehocan am 23.12.2003 um 14:44:

  Befehl zum Auslesen des Benutzernamens

moin, ich will ein vb programm schreiben dass mir den Benutzernamen ausliest. wie geht das?


Geschrieben von Medusa am 23.12.2003 um 16:59:

 

Hi,
Dafür gibts die api-Funktion "GetUserName" in der advapi32.dll

code: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

private Declare function GetUserName Lib "advapi32.dll" _
        Alias "GetUserNameA" (ByVal lpBuffer As String, _
        nSize As Long) As Long

sub command1_click()
dim Buffer as string, UsrName as String
buffer = string(255,chr(0))
call GetUsername (buffer, len(buffer))
UsrName=left(Buffer,instr(1, Buffer, chr(0))-1)

msgbox UsrName, 0, "Benutzername"

end sub


Geschrieben von Tehocan am 24.12.2003 um 14:59:

 

sorry der bricht ab mit der fehlermeldung
ungültiger prozedur aufruf oder ungültiges Argument
in zeile 9


Geschrieben von Medusa am 24.12.2003 um 16:30:

 

Oh, sorry.. habs nicht getestet.
Mach aus der 0 eine 1.
code: 
1:

UsrName=left(Buffer,instr(1, Buffer, chr(0))-1)


Geschrieben von scr!pTk!d am 25.12.2003 um 13:26:

 

alternativ:
code: 
1:
2:
3:
4:

set mynetwork = createobject("wscript.network")
msgbox "Benutzername: " & mynetwork.username


Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH