تعلم اليوم - الكتابة في مسجل النظام ( الريجيستري )

بسم الله الرحمن ارحيم

سنتعلم اليوم ان شاء الله طريقة الكتابة الى مسجل النظام REGESTRY

وذلك في النطاق الذي يستطيعه VB فقط حيث يقوم بالكتابة في الموقع الأتي فقط

HKEY_CURRENT_USERSoftwareVB and VBA Program Settings

ولكن باستخدام API تستطيع الكتابة في اي موقع من الريجستري

// قم بفتح مشروع جديد وضع فيه مربع نص وعدد اربع ازرار أمر ورتب الادوات كما في الصوره

تحت زر الامر المسمى إنشاء الكود الاتي

'APP.EXENAME     هو اسم برنامجك
' MXXM     هذا هو القسم الذي سوف ينشء
' TEST      هو المفتاح ويحمل قيمه معينه تحدد سابقاً
' NUM       هذه هي القيمة التي تحدد للمفتاح

num = InputBox("أدخل قيمة المفتاح ", "تمرين")
SaveSetting App.EXEName, "MXXM", "TEST", num

وضع تحت زر القراءة الكود الاتي :

Text1 = GetSetting(App.EXEName, "MXXM", "TEST")

وتحت زر مسح الكود الأتي

DeleteSetting App.EXEName, "MXXM", "TEST"

وتحت زر خروج الود الاتي

END

اذهب الى زر ابد واختر تشغيل واكتب :

C:WINDOWSREGEDIT.EXE

اختر بعد ذلك المفتاح

HKEY_CURRENT_USERSoftwareVB and VBA Program Settings

نفذ البرنامج وانقر على زر انشاء ثم اذهب للرجيستر واضغط F5 سترى

مفتاح جديد انشاء هناك اسمه Project1 وتحته MXXM داخلها TEST مع القيمة التي اخترتها

الغرض او الفائده من ذلك هو ان تقوم بحفظ اعدادت معينه داخل الرجيستر تستطيع استعادتها

في المستقبل .

نفذ زر قراءة في البرنامج سيعطيك القيمة التي ادخلتها فيما سبق نفذ زر حذف ثم اطلب

قراءة سيكون المربع خالي لعدم وجود اي قيمه في المفتاح

[M] :cool: وبالتوفيق يا شباب :cool:[/M]

[عدلت بواسطة MANSUR ت:11-03-2001 س: 11:04 AM]