Predmet:Re: User Name & Local PC Name API
hvala na pomoci
uzecu od gjoreskog iz dva razloga
1. kratke
2. rade za razliku od zxzijeve
htio bi da se ove dvije od gjoreskog stave ovdje
Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet » Koristan VB kod*
isto tako da se stavi u Listu naslova
evo da olaksam stvar:
u modul
PreuzmiIzvorni 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
Dim sResult As String * 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End Function
Public Function GetUserName() As String
Dim UserName As String * 255
GetUserNameA UserName, 255
GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function
poziv:
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command1_Click()
MsgBox GetUserName & vbNewLine & GetComputerName
End Sub
zivot je moja domovina.