Prikazi cijelu temu 06.10.2015 16:17
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: User Name & Local PC Name API
eve za User name
PreuzmiIzvorni kôd (Visual Basic):
  1. Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long
  2.  
  3. Public Function GetUserName() As String
  4. Dim UserName As String * 255
  5.     GetUserNameA UserName, 255
  6.     GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
  7. End Function

Kaj mene
komputer name=GJORESKI
User name = ALEKSANDAR