هل في كود يظهر لي اسم اليوزر

هذا الكود ضعه في وحدة نمطية جديدة وخزنها

Private Const MAX_USERNAME As Long = 15

Private Declare Function GetUserName Lib "advapi32" _
   Alias "GetUserNameA" _
  (ByVal lpBuffer As String, _
   nSize As Long) As Long
      
Private Declare Function lstrlenW Lib "kernel32" _
  (ByVal lpString As Long) As Long
        
Public Function GetThreadUserName() As String

   Dim buff As String
   Dim nSize As Long
   
   buff = Space$(MAX_USERNAME)
   nSize = Len(buff)

   If GetUserName(buff, nSize) = 1 Then

      GetThreadUserName = TrimNull(buff)
      Exit Function

   End If

End Function


Private Function TrimNull(startstr As String) As String

   TrimNull = Left$(startstr, lstrlenW(StrPtr(startstr)))
   
End Function

ثم استدعِ الدالة GetThreadUserName من أي مكان ضمن برنامجك لتحصل على اسم المستخدم

شكرا اخي مهند لقد وجتها للتو وانا سويت البرنامج وسارفقه في القريب وشكرا مرة اخرى

إن كنت تستخدم VB.Net فيمكنك بهذه الطريقة ايجاد اسم اليوزر الحالي :

Dim x As System.Environment
        Me.Text = x.UserName

يلى نحنا في الإنتظار لرؤية المفاجأة بس لا تتأخر علينا

تفضل على هذا الرابط

/index.ph...T&f=116&t=42626