Avko
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb
Predmet:
Computer Name i User Name API
modul:
Preuzmi
Izvorni kôd (Visual Basic):
Declare
Function
GetComputerNameA Lib
"kernel32"
(
ByVal
lpBuffer
As
String
, nSize
As
Long
)
As
Long
Declare
Function
GetUserNameA Lib
"advapi32.dll"
(
ByVal
lpBuffer
As
String
, nSize
As
Long
)
As
Long
Public
Function
GetComputerName()
As
String
'***************************************************************
'Ime: GetComputerName (Function)
'Sadržaj: daje ime kompjutora
'Autor: Gjoreski
'***************************************************************
Dim
sResult
As
String
* 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End
Function
Public
Function
GetUserName()
As
String
'***************************************************************
'Ime: GetUserName (Function)
'Sadržaj: daje ime korisnika
'Autor: Gjoreski
'***************************************************************
Dim
UserName
As
String
* 255
GetUserNameA UserName, 255
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End
Function
poziv:
Preuzmi
Izvorni kôd (Visual Basic):
Private
Sub
Command1_Click()
MsgBox GetUserName & vbNewLine & GetComputerName
End
Sub
zivot je moja domovina.
Ovaj post je ureden
2
puta. Posljednja izmjena 07.10.2015 11:15 od strane Avko.