نام یوزر

[iran2008]

سلام
من برنامه ای میخوام بنویسم که احتیاج به دانستن نام یوزر فعلی دارم.
میشه کمکم کنید که چطور نام یوزر کاربری رو که الان در کامپیوتر داره استفاده میکنه رو بدست بیارم. ( منظورم همون User Accounts کاربری هست )

[r0ot$harp]

دوست عزیز Google یار مهربان ما ....


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
MsgBox localUserName()
End Sub

Public Function localUserName() As String
Dim m_myBuf As String * 25
Dim m_Val As Long, UserName As String

m_Val = GetUserName(m_myBuf, 25)
localUserName = Left(m_myBuf, InStr(m_myBuf, Chr(0)) - 1)
End Function

باتشکر احسان

[xxxxx_xxxxx]

قبلاً VB خودش برای ما این کارو کرده. کافیه فراخوانیش کنید:


Msgbox Environ("UserName")