منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

الحصول على أسم جهاز الكمبيوتر للمستخدم

اذهب الى الأسفل

ok الحصول على أسم جهاز الكمبيوتر للمستخدم

مُساهمة من طرف بنت البلد في الجمعة أغسطس 30, 2013 5:05 pm

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



سؤالى / عن كيفية الحصول على أسم جهاز كمبيوتر المستخدم .

وجزاكم الله خيرا
بنت البلد
بنت البلد
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 84
النقاط : 159
التقيم : 11
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: الحصول على أسم جهاز الكمبيوتر للمستخدم

مُساهمة من طرف السنى في الجمعة أغسطس 30, 2013 5:17 pm

أستخدمى الوظيفة التالية :

الكود:
Public Function getMachineName() As String
    Dim reVal As String
    reVal = Environ$("computername")
    getMachineName = reVal
End Function

السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 245
النقاط : 459
التقيم : 26
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: الحصول على أسم جهاز الكمبيوتر للمستخدم

مُساهمة من طرف بنت البلد في الجمعة أغسطس 30, 2013 5:23 pm

أشكرك أخى الكريم ....لكن كيف يتم استخدام الكود .....أشغله ازاى
بنت البلد
بنت البلد
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 84
النقاط : 159
التقيم : 11
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: الحصول على أسم جهاز الكمبيوتر للمستخدم

مُساهمة من طرف NEXT في السبت أغسطس 31, 2013 7:11 am

نفترض مثلا أنك تريدى إظهار اسم جهاز الكمبيوتر للمستخدم فى أداة عنوان .....يتم أستخدام تلك الوظيفية على النحو التالى :

الكود:
Label1.Caption = getMachineName

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
الحصول على أسم جهاز الكمبيوتر للمستخدم Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 436
النقاط : 200646
التقيم : 24
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى