إخوتي لقد صنعت هذه الأداة لتسهيل الكتابة والقراءة من محرر التسجيل .
للأداة دالتين الأولى read وهي تقرا من محرر التسجيل ... ولها ثلاث برامترات
الأول : المفتاح الجذري
الثاني : المسار
الثالث : إسم المفتاح
للإظهار أسماء المفاتيح الجذرية في البرامتر الأول اكتب الكلمة father ومن ثم بعدها نقطة .
وهذا مثال لقراءة إسم صاحب الجهاز في محرر التسجيل .
أنشئ زر واكتب بداخلة مايلي :
[ALIGN=LEFT] Label2.Caption = mma1.read(father.HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoftWindowsCurrentVersion", "RegisteredOwner")[/ALIGN]
وهذا مثال لقراءة إسم الشركة :
"SoftwareMicrosoftWindowsCurrentVersion", "RegisteredOrganization")
Label3.Caption = mma1.read(father.HKEY_LOCAL_MACHINE, _
لاحظ أنه لاتفرق التمارين عن بعضها إلا في إسم المفتاح الأخير ...
أو في الجذر الرئيسي إن كان هناك إختلاف ....
*************************
أم الكتابة فاستخدم المثال التالي لتغيير الإسم في محرر التسجيل :
Dim new_name As String
new_name = InputBox("ألرجاء أن تضع الإسم الجديد", "تغيير الإسم في محرر التسجيل", "موفق جمال زكريا")
a = mma1.writer(father.HKEY_LOCAL_MACHINE, _
"SoftwareMicrosoftWindowsCurrentVersion", "RegisteredOwner", new_name)
Dim a As Long
نلاحظ أن الدالة writer تزيد عن دالة الكتابة بالبرامتر الأخير وهو قيمة المفتاح الذي سنغيره
إخوتي على كل حال المثال مرفق مع الرسالة والأداة موجودة فيه ..........
(gift)(f)