AccessTr.neT
Kullanıcı ve Bilgisayar Adı Bulduruyoruz - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kullanıcı ve Bilgisayar Adı Bulduruyoruz (/konu-kullanici-ve-bilgisayar-adi-bulduruyoruz.html)

Sayfalar: 1 2


Kullanıcı ve Bilgisayar Adı Bulduruyoruz - chopper07 - 28/11/2008

formumuza iki adres textbox koyuyoruz kodu yapıştırıyoruz. bu kadar

Kod:
Option Explicit
Private S1 As String
Private Declare Function GetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) 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 = ComputerUser
Text2.Text = FindComputerName
End Sub




Cvp: Kullanıcı ve Bilgisayar Adı Bulduruyoruz - syrup - 29/11/2008

ah ah erkan "ben çekiyorum sizde çekin" diyorsun yani. bu kadar uzun kod, function yazılır mı yahu. Biggrin environ kullansana.
environ("computername")
environ("username")

bu enverionla pcdeki istediğin değişkeni tek satırla albilirsin.


Cvp: Kullanıcı ve Bilgisayar Adı Bulduruyoruz - hakanuss - 10/10/2009

kıymetli arkadaşlar environ u nereye ekleyeceğim metin kutusunun denetim kaynağına eklediğimde hata veriyor.


Cvp: Kullanıcı ve Bilgisayar Adı Bulduruyoruz - mehmetdemiral - 10/10/2009

Formunuza bir metin kutusu ekleyin. Adı diyelim "metin0" olsun. Sonra da formun açıldığında olayına şu kodları yapıştırın:


Kod:
Metin0 = Environ("USERNAME")
Bu kadar.


Cvp: Kullanıcı ve Bilgisayar Adı Bulduruyoruz - hakanuss - 10/10/2009

mehmet hocam size çok teşekkür ederim minnettarım yardımlarınız için


Cvp: Kullanıcı ve Bilgisayar Adı Bulduruyoruz - benremix - 10/10/2009

Emeği geçenlere teşekkür ederim. Saygılar....