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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

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

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



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

وجزاكم الله خيرا

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

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

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

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

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

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

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

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

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

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

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

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

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

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

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

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

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

الكود:
Label1.Caption = getMachineName
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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