Prikazi cijelu temu 06.10.2015 15:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: User Name & Local PC Name API
Ovo na vrhu modula
PreuzmiIzvorni kôd (Visual Basic):
  1. Declare Function KorisnikK Lib "advapi32.dll" Alias "GetUserNameA" _
  2.    (ByVal lpBuffer As String, nSize As Long) As Long

Ovo u modulu
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ImeKorisnika() As Variant
  2. '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  3. 'FUNKCIJA ZA ITANJE IMENA KORISNIKA RA UNARA
  4. 'AutorZXZ
  5. '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  6.  
  7. '--------------------------------------------------------------------------------------------------------------
  8. 'TREBA DEKLARISATI OVAJ DLL (Vidi po
  9. etak modula)
  10. 'Declare Function KorisnikK Lib "advapi32.dll" Alias "GetUserNameA" _
  11. '(ByVal lpBuffer As String, nSize As Long) As Long
  12. '--------------------------------------------------------------------------------------------------------------
  13. On Error GoTo scoKorisnikK_Err
  14. Const strProcName As String = "KorisnikO"
  15. Dim intProcErrResp As Integer
  16. Dim strOSUName As String
  17. Dim lngLength As Long
  18. Dim lngResult As Long
  19.  
  20. strOSUName = String$(255, 0)
  21. lngLength = 255
  22. lngResult = KorisnikK(strOSUName, lngLength)
  23. ImeKorisnika = Left$(strOSUName, InStr(1, strOSUName, Chr(0)) - 1)
  24. KorisnikO_Exit:
  25. Exit Function
  26. scoKorisnikK_Err:
  27.   MsgBox "Error " & Err.Number & ":   " & Err.Description, vbInformation, "Error in " & strProcName, "Ime Baze"
  28.   Resume KorisnikO_Exit
  29. End Function

Ovo je sa API procedurom

a ovo je sa naredbom Environ
Procedura:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function InfoSIS(Naziv As String)
  2. Dim EnvString, Indx, I
  3. Do
  4. Indx = Indx + 1
  5.     EnvString = Environ(Indx)
  6.    I = InStr(1, EnvString, Naziv, vbTextCompare)
  7.     If I = 1 Then
  8.     InfoSIS = Mid(EnvString, Len(Naziv) + 2)
  9.     GoTo Kraj
  10.     End If
  11. Loop Until EnvString = ""
  12. Kraj:
  13. End Function

Primjer poziva:
Function poziv()
MsgBox InfoSIS("username")
End Function

E sad sta pisati u naziv kao ulazni parametar.
Evo spisak:
ALLUSERSPROFILE
AMDAPPSDKROOT
APPDATA
CM2014DIR
COMMANDER_DRIVE
COMMANDER_EXE
COMMANDER_INI
COMMANDER_PATH
CommonProgramFiles
CommonProgramFiles(x86)
CommonProgramW6432
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
ILBDIR
LOCALAPPDATA
LOGONSERVER
MOZ_PLUGIN_PATH
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_ARCHITEW6432
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramData
ProgramFiles
ProgramFiles(x86)
ProgramW6432
PSModulePath
PUBLIC
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERDOMAIN_ROAMINGPROFILE
USERNAME
USERPROFILE
VBOX_MSI_INSTALL_PATH
WecVersionForRosebud.E74
windir
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 06.10.2015 17:52 od strane zxz.