چطور می تونم نام کاربری که کاربر با آن log on کرده را بفهمم

[erfanmohamadi]

چطور می تونم نام کاربری که کاربر با آن log on کرده را در vb6 بفهمم خیلی برام مهمه حتما جواب بدید.

[saber67]

چطور می تونم نام کاربری که کاربر با آن log on کرده را در vb6 بفهمم خیلی برام مهمه حتما جواب بدید.

فکر کنم منظورت اینه که بفهمیم اسم اکانتی که برنامه توش در حال اجراست چیه! درسته!؟
دو تا لیبل به برنامه اضافه کن و کد زیر رو توی برنامت کپی کن، هم اسم کاربر جاری رو میده و هم میگه که Admin هست یا نه
Option Explicit


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


Private Sub Form_Load()
Dim s As String
Dim cnt As Long
Dim dl As Long
Dim CurUser As String
cnt = 199
s = String$(200, 0)
dl = GetUserName(s, cnt)
If dl <> 0 Then CurUser = Left$(s, cnt) Else CurUser = ""
Label1.Caption = "User Name: " & CurUser
If IsUserAnAdmin Then
Label2.Caption = "Is A Admin User"
Else
Label2.Caption = "Is Not A Admin User"
End If
End Sub

[mehran901]

از طریق متغییر های سیستمی هم میتونید


environ$("username")