Gelen Loglarda Tarih ve Bilgisayar Adı İp Adresi İstiyorum Loglarda Çıkmasını İstiyorum? Nasıl Yapmam Gerektiğini Açık Bir Şekilde Anlatırsanız Sevinirim.

forma herhangibirşey eklemeden bilgisayar adını almak için aşağıdaki kodu kullanabilirsiniz Option Explicit Private S1 As String Private Declare Function GetUser Lib "mpr. dll" Alias "WNetGetUserA" As Long Private Declare Function GetUserName Lib "advapi32. dll" Alias "GetUserNameA" As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" As Long Public Function FindUserName As String S1 = Space(512) GetUserName S1, Len(S1) FindUserName = Trim$(S1) End Function Public Function FindNetUserName As String S1 = Space(512) GetUser vbNullString, S1, Len(S1) FindNetUserName = Trim$(S1) End Function Public Function FindComputerName As String S1 = Space(512) GetComputerName S1, Len(S1) FindComputerName = Trim$(S1) End Function Private Sub Form_Load Dim ComputerName, ComputerUser ComputerUser = FindNetUserName Text1. Text = "Kullanıcı Adınız: " & ComputerUser Text2. Text = "Bilgisayar Adınız: " & FindComputerName End Sub

Kardeş yanılıyorsun bu kadar basit değil api olacak pc adı için sanırım denedim ama olmadı

date & %USERPROFILE% %USERPROFILE% = bilgisayar adi date = tarih time = zaman

Private Sub Form_Load Text1 = Winsock1. LocalHostName Text2 = Winsock1. LocalIP End Sub

Stub Ekleyeceğim?