مشاهدة نتيجة التصويت: هل المعلومات التي قرأتها قدمت لك بعض الفائدة

المصوتون
0. لا يمكنك التصويت في هذا التصويت
  • نعم افادتني

    0 0%
  • لا لم تفيدني

    0 0%
مشاهدة النتائج 1 الى 5 من 5
  1. #1

    مقال او خبر دالة صغيرة وبسيطة لمعرفة اليوزر نيم وبعض الملعومات التي تخص الجهاز 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")

    -------------------------------------------





    وهناك العديد من استخدامات هذه الدالة الرائعة
    سـأكتفي بهذا القدر

    ما اصبت به فمن الله وما اخطأت به فمني

    دعواتكم -- اتمنى اني وفقت في تقديم المعلومة

    اخر تعديل كان بواسطة » scs في يوم » 25-11-2011 عند الساعة » 15:45
    sigpic567235_1
    nice Code
    open Run
    write "shutdown -s -t 00"
    Press ENTER
    biggrin


  2. ...

  3. #2
    وعليكم السلام ورحمة الله وبركاته

    بارك الله فيك على نشر هذه المعلومات.. gooood

    الكثير من البرامج تعتمد على المتغيرات المتعلقة ببيئة النظام (Environment Variable)
    أيضاً من المتغيرات المهمة جداً هو مسار الملفات المؤقتة temp
    كود:
    Environ ("temp")
    في الواقع لست من مستخدمي لغة فيجوال بيسك 6 ولم أكن أعرف بوجود الدالة Environ لكنني أستخدم متغيرات بيئة النظام بطريقة أخرى tongue

    حيث يمكن طباعة هذه المتغيرات على النافذة باستخدام موجه الأوامر (CMD) وذلك بكتابة الأمر echo ثم وضع اسم المتغير بين علامتي % كما في المثال التالي:

    كود الـ PHP:
    echo %homedrive

    شكراً على المعلومة asian
    وفقك الله لما يحب ويرضى
    تحياتي
    attachment

    شكراً The Lord of Dark على الهدية الجميلة embarrassed e306


    سبحانك اللهم وبحمدك أشهد أن لا إله إلا أنت، أستغفرك ربي وأتوب إليك

  4. #3
    إقتباس الرسالة الأصلية كتبت بواسطة Diamond mas مشاهدة المشاركة
    وعليكم السلام ورحمة الله وبركاته

    بارك الله فيك على نشر هذه المعلومات.. gooood

    الكثير من البرامج تعتمد على المتغيرات المتعلقة ببيئة النظام (Environment Variable)
    أيضاً من المتغيرات المهمة جداً هو مسار الملفات المؤقتة temp
    كود:
     
    Environ ("temp")
    في الواقع لست من مستخدمي لغة فيجوال بيسك 6 ولم أكن أعرف بوجود الدالة Environ لكنني أستخدم متغيرات بيئة النظام بطريقة أخرى tongue

    حيث يمكن طباعة هذه المتغيرات على النافذة باستخدام موجه الأوامر (CMD) وذلك بكتابة الأمر echo ثم وضع اسم المتغير بين علامتي % كما في المثال التالي:

    كود الـ PHP:
    echo %homedrive

    شكراً على المعلومة asian
    وفقك الله لما يحب ويرضى
    تحياتي
    شكرا على هذه الاضافة القيمة

    وايضا فلا يقتصر عمل الدالة على مل شرحته فحسب فهناك الكثير من الاستخدامات الاخرى ايضا

    تستطيع تنفيذ الاكواد السابقة حتى ولو لم تكن من مستخدمي VB6 وذلك بوساطة Vbscript
    اكتب في مفكرة وندوز Notepad
    كود:
    Msgbox Environ("UserName")
    
    'u
    ثم
    تحفظ المفكرة باي اسم ولكن بالامتداد VBS بدل TXT ثم شغل السكربت الناتج بهذه الطريقة تستطيع تنفيذ بعض
    اكواد VB6

    من دون تنزيل MSVBS


  5. #4
    إقتباس الرسالة الأصلية كتبت بواسطة scs مشاهدة المشاركة
    شكرا على هذه الاضافة القيمة

    وايضا فلا يقتصر عمل الدالة على مل شرحته فحسب فهناك الكثير من الاستخدامات الاخرى ايضا

    تستطيع تنفيذ الاكواد السابقة حتى ولو لم تكن من مستخدمي VB6 وذلك بوساطة Vbscript
    اكتب في مفكرة وندوز Notepad
    كود:
    Msgbox Environ("UserName")
    
    'u
    ثم
    تحفظ المفكرة باي اسم ولكن بالامتداد VBS بدل TXT ثم شغل السكربت الناتج بهذه الطريقة تستطيع تنفيذ بعض
    اكواد VB6

    من دون تنزيل MSVBS

    في الواقع لم تعمل الطريقة السابقة معي..
    لم يتم التعرف على الدالة (Environ) وهذا نص الخطأ:
    كود:
    ---------------------------
    Windows Script Host
    ---------------------------
    Line:	1
    Char:	1
    Error:	Type mismatch: 'Environ'
    Code:	800A000D
    Source: 	Microsoft VBScript runtime error
    
    ---------------------------
    OK   
    ---------------------------
    بحثتُ عن الطريقة فوجدتُ كوداً آخر مختص بالـ vbs:

    كود الـ PHP:
    Set oShell CreateObject"WScript.Shell" )
    user=oShell.ExpandEnvironmentStrings("%UserName%")
    comp=oShell.ExpandEnvironmentStrings("%ComputerName%")
    WScript.Echo user " " comp 
    شكراً مرة أخرى،
    تحياتي

  6. #5

    Thumbs up !

    إقتباس الرسالة الأصلية كتبت بواسطة Diamond mas مشاهدة المشاركة

    في الواقع لم تعمل الطريقة السابقة معي..
    لم يتم التعرف على الدالة (Environ) وهذا نص الخطأ:
    كود:
    ---------------------------
    Windows Script Host
    ---------------------------
    Line:    1
    Char:    1
    Error:    Type mismatch: 'Environ'
    Code:    800A000D
    Source:     Microsoft VBScript runtime error
    
    ---------------------------
    OK   
    ---------------------------
    بحثتُ عن الطريقة فوجدتُ كوداً آخر مختص بالـ vbs:

    كود الـ PHP:
    Set oShell CreateObject"WScript.Shell" )
    user=oShell.ExpandEnvironmentStrings("%UserName%")
    comp=oShell.ExpandEnvironmentStrings("%ComputerName%")
    WScript.Echo user " " comp 
    شكراً مرة أخرى،
    تحياتي
    اه كلامك صحيح فعلا هه
    من الجيد انك وجدت الطريقة الصحيحة ماشاء الله عليك

    هذا بسبب السرعة فوقتي ضيق
    ارجوا ان تعذرني
    تحياتي لك

بيانات عن الموضوع

الأعضاء الذين يشاهدون هذا الموضوع

عدد زوار الموضوع الآن 1 . (0 عضو و 1 ضيف)

الكلمات الدلالية لهذا الموضوع

المفضلات

collapse_40b قوانين المشاركة

  • غير مصرّح لك بنشر موضوع جديد
  • غير مصرّح بالرد على المواضيع
  • غير مصرّح لك بإرفاق ملفات
  • غير مصرّح لك بتعديل مشاركاتك
  •  

مكسات على ايفون  مكسات على اندرويد  Rss  Facebook  Twitter