اريد كود يجبلي اسم المستحدم الحالي للويندوز

انا عاملها عندى فى فورم والكود بتاعها دة ممكن تغير اسماء التكست على حسب الاسماء اللى عندك

Dim dl, ariesong

Dim S As String

Dim aries As Double

aries = 200

S = Space$(aries)

dl = Len(S)

Call GetComputerName(S, dl)

Text84.SetFocus

Text84.Text = Left$(S, dl)

General.SetFocus

Text84.Locked = True

شكرا لك أخي mo_shafik

لكن الكود ناقص أين الدالة ؟ GetComputerName

انت كاتب Call GetComputerName

هذا استدعاء للدالة المذكورة بينما ليست موجودة في المشاركة وبذلك أصبح الكود عديم الفائدة

مثل ما قال الأخ ekseer :

الكود ناقص ما يمكن تطبيق ذلك !!

هل من أحد يستطيع أن يقوم بتكملة الكود أو تعديله وإضافة الدالة المناسبة ..

الموضوع غاية في الاهمية يا شباب ..

تحياتي ،،

هذا مثال قدييييييييييييييييييم (ايام المتوسط )

على الرابط التالي فيه اشياء واجد غير اسم المستخدم

/index.php?showtopic=42626

السلام عليكم ....

يسعدني ان تكون هذه مشاركتي الاولى في هذا المنتدى الرائع

وأتمنى ان يكون الملف المرفق يلبي المطلوب وهو على طريقتين :

1- عند الضغط على زر username يقوم البرنامج بعرض اسم المستخدم على شكل رسالة

2- عند فتح النموذج يتم التعرف على اسم المستخدم تلقائيا

تحياتي

NET2006 :rolleyes:

get_username.rar

مشكوووووووووور الاخ net2006 ع المشاركة والموضوع وبارك الله فيك

عمل رائع

شكرا جزيلا

الف شكر لك