hamata00
11-29-2006, 09:03 PM
بسم الله الرحمن ارحيم
سنتعلم اليوم ان شاء الله طريقة الكتابة الى مسجل النظام 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 مع القيمة التي اخترتها
الغرض او الفائده من ذلك هو ان تقوم بحفظ اعدادت معينه داخل الرجيستر تستطيع استعادتها
في المستقبل .
نفذ زر قراءة في البرنامج سيعطيك القيمة التي ادخلتها فيما سبق نفذ زر حذف ثم اطلب
قراءة سيكون المربع خالي لعدم وجود اي قيمه في المفتاح
ارجو الرد بعد التجربه
سنتعلم اليوم ان شاء الله طريقة الكتابة الى مسجل النظام 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 مع القيمة التي اخترتها
الغرض او الفائده من ذلك هو ان تقوم بحفظ اعدادت معينه داخل الرجيستر تستطيع استعادتها
في المستقبل .
نفذ زر قراءة في البرنامج سيعطيك القيمة التي ادخلتها فيما سبق نفذ زر حذف ثم اطلب
قراءة سيكون المربع خالي لعدم وجود اي قيمه في المفتاح
ارجو الرد بعد التجربه