- Yasaklandı
-
- #1
Çalışılan bilgisayarın ve çalışan kullanıcının adını ögrenmek için aşagıdaki windows API'lerini kullanabiliriz.
Xmaze Abimizin Yayınına Gelmeyi Unutmayın Hergün Yayın
Murat tv:
Xmaze Abimizin Yayınına Gelmeyi Unutmayın Hergün Yayın
Murat tv:
Bağlantıları görmek için lütfen
Giriş Yap
Visual Basic:
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 LongGetComputerName 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.
Örnek :
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.
Örnek :
Visual Basic:
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