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

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

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
الجنس : ذكر

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

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


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