Prikazi cijelu temu 07.10.2015 11:06
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Computer Name i User Name API
modul:
PreuzmiIzvorni kôd (Visual Basic):
  1. Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
  2. Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4. Public Function GetComputerName() As String
  5. '***************************************************************
  6. 'Ime:     GetComputerName   (Function)
  7. 'Sadržaj: daje ime kompjutora
  8. 'Autor:   Gjoreski
  9. '***************************************************************
  10. Dim sResult As String * 255
  11.     GetComputerNameA sResult, 255
  12.     GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
  13. End Function
  14.  
  15. Public Function GetUserName() As String
  16. '***************************************************************
  17. 'Ime:     GetUserName   (Function)
  18. 'Sadržaj: daje ime korisnika
  19. 'Autor:   Gjoreski
  20. '***************************************************************
  21. Dim UserName As String * 255
  22.     GetUserNameA UserName, 255
  23.     GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
  24. End Function

poziv:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2.     MsgBox GetUserName & vbNewLine & GetComputerName
  3. End Sub
zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 07.10.2015 11:15 od strane Avko.