دالة صغيرة وبسيطة لمعرفة اليوزر نيم وبعض الملعومات التي تخص الجهاز vb6
السلام عليكم ورحمة الله وبركاته
اما بعد
فلقد وجدت الكثير من الاستفسارات حول كيفية معرفة اسم المستخدم لجهاز ما او جذر النظام
او القرص SYStem
والعديد من الاستفسارات
وللأسف العديد -- تكون لديهم الاجابة التلقائية --- التوجه إلى API
ولكن لاداعي لكل هذه الاكواد و الاستدعائات فكثرة الاستدعائات تجعل البرنامج -- " ممل " --
وتكثر من الشوائب البرمجية -- "BUGS" وستفاجئ احياناً بالخطأ اللطيف والجميل
Run Time error
على كل حال لا أحب الاطالة
لنرى كيف تعمل الدالة الجميلة والبسيطة
الدالة هي Environ من مكاتب VBA/VB6
الاستخدام فقط نكتفي بكتابة اسم الدالة Environ ثم بين قوسين وعلامتي تنصيص نكتب البارامتر المراد استخدامه لهذه الدالة
لها عدة فوائد
1- الحصول على اسم المستخدم : Environ("UserName") اي البارامتر هنا هو UserName
Eg.
msgbox Environ("UserName")
-----------------------
2- الحصول على قرص النظام : System Drive والمتعارف عليها بين العرب ب C
Environ("HomeDrive")
Eg.
text1.text = Environ("HomDrive")
---------------------------
3- الحصول على مسار النظام c:\windows
Environ("WinDir")
Eg.
Debug.print Environ("WinDir")
-------------------------------------
4- الحصول على مسار Apliction Date
Environ ("APPDATA")
-----------------------------------------
5- الحصول على اسم الجهاز
Environ ("ComputerName")
-------------------------------------------
وهناك العديد من استخدامات هذه الدالة الرائعة
سـأكتفي بهذا القدر
ما اصبت به فمن الله وما اخطأت به فمني
دعواتكم -- اتمنى اني وفقت في تقديم المعلومة