-09
الإخوة الكرام رواد المنتدى ..
تحدثنا في موضوع سابق عن كيفية التعامل مع الريجستري، وقمنا بتضمين Module لتسهيل التعامل مع الريجستري وذلك من خلال استخدام توابع ال API ..
واليوم وفي هذا الموضوع سنشرح طريقة أخرى للتعامل مع الريجستري وهي طريقة سهلة جداً سنعتمد فيها على استخدام الكائن Wscript ..
الأمر لا يتعدى ثلاثة أسطر من الكود ..
في البداية لابد أن نقوم بتعريف الكائن بواسطة الكود التالي:
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")بعدها سيكون تعاملنا مع الريجستري إما بالإضافة أو الحذف أو استرجاع القيم، وكل عملية من هذه العمليات لا تحتاج إلى أكثر من سطر كودي واحد لعملها .. ولنر ذلك معاً:
لإضافة مدخل قيمة جديد إلى الريجستري:
WSH.RegWrite "HKCU\ArabTeam\Example", 1, "REG_DWORD"
لاحظ أننا استخدمنا الوظيفة RegWrite وقمنا بتمرير ثلاث قيم إلى هذه الوظيفة، وهي:
1. اسم مدخل القيمة الجديد الذي نريد إضافته ومساره.
2. قيمة هذا المدخل الجديد.
3. نوع هذا المدخل ولاحظ أنه هنا من نوع REG_DWORD، ويمكن أن يكون REG_STRING أو REG_BINARY أو REG_MULTI_SZ أو أي نوع تريده ..
ولإضافة مفتاح سنستخدم نفس الطريقة السابقة، مع تغيير طفيف، لاحظ:
WSH.RegWrite "HKCU\ArabTeam\Codes\", 1, "REG_DWORD"
لحذف مدخل قيمة موجود مسبقاً:
WSH.RegDelete "HKCU\ArabTeam\Example"
لاحظ أننا سنمرر اسم المدخل الذي نريد حذفه إلى الوظيفة RegDelete ..
ولحذف مفتاح موجود مسبقاً نستخدم نفس الطريقة السابقة مع تغيير بسيط، لاحظ:
WSH.RegWrite "HKCU\ArabTeam\Codes\"
ولمعرفة قيمة مدخل موجود بالريجستري:
Print WSH.RegRead("HKCU\Al-ebda3.info\Example")ولمعرفة قيمة مفتاح موجود بالريجستري:
Print WSH.RegRead("HKCU\ArabTeam\Codes\")أتمنى أن أكون قد وُفقت في شرحي لذلك .. وأتمنى للجميع التوفيق
