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

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

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

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

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



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

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

تاريخ التسجيل : 18/02/2011
المساهمات : 83
النقاط : 158
التقيم : 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
المساهمات : 220
النقاط : 411
التقيم : 23
الجنس : ذكر

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

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

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

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

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

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

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

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

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

الكود:
Label1.Caption = getMachineName

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

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

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

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

ََ

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


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