En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Çalışılan bilgisayarın ve çalışan kullanıcının adını ögrenmek için aşagıdaki windows API'lerini kullanabiliriz.
Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
GetComputerName fonksiyonu bilgisayarın adını bulur ve ilk parametrede verilen stringin içine doldurur. İkinci parametre ise bu stringin uzunluğudur.
GetUserName fonksiyonu kullanıcının adını bulur ve ilk parametrede verilen stringin içine doldurur. İkinci parametre ise bu stringin uzunluğudur.
Bu fonksiyonlar kernel32.dll ve advapi32.dll dosyalarının içinde bulunmaktadır. Eger bu iki fonksiyonda geriye 1 degerini döndürürlerse işlem başarılmıştır.
Kodlar :
| Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim ret As Long Dim c_name As String * 255 Dim u_name As String * 255 'Programda kullanylacak de?i?kenler tanymlanyyor. Label1.Caption = "Computer Name :" Label3.Caption = "User Name :" ret = GetComputerName(c_name, Len(c_name)) If ret = 1 Then Label2.Caption = c_name End If ret = GetUserName(u_name, Len(u_name)) If ret = 1 Then Label4.Caption = u_name End If End Sub |