+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف اعرف اسم المستخدم للوندوز (/showthread.php?tid=25957)
كيف اعرف اسم المستخدم للوندوز - ابوثامر الحامد - 02-08-18
اريد ان يظهر اسم مستخدم الوندوز في 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 SubRE: كيف اعرف اسم المستخدم للوندوز - Ahmed_Mansoor - 03-08-18
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , تم تصحيح الكود وتم وضعه في مثال مرفق .
RE: كيف اعرف اسم المستخدم للوندوز - ابوثامر الحامد - 03-08-18
تمام شكرا يالغالي والله يعيك العافيه