Prikazi cijelu temu 07.10.2015 10:12
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  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. Dim sResult As String * 255
  6.     GetComputerNameA sResult, 255
  7.     GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
  8. End Function
  9.  
  10. Public Function GetUserName() As String
  11. Dim UserName As String * 255
  12.     GetUserNameA UserName, 255
  13.     GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
  14. 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.