[ابوثامر الحامد]

اريد ان يظهر اسم مستخدم الوندوز في text

وجدة هذا الكود لاكن لم اعرف كيف استخدمه

كود :

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
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 = CurUser
End Sub

[Ahmed_Mansoor]

السلام عليكم ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تصحيح الكود وتم وضعه في مثال مرفق .

[ابوثامر الحامد]

تمام شكرا يالغالي والله يعيك العافيه