محمد يحياوي قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 اخواني الكرام السلام عليكم و رحمة الله وبركاته الحقيقة انه كانت لدي هواية في التعامل مع الرجستري و في كل مرة ابحث عن كيفية تطويعه لخدمة برنامج الاكسل و كان اليوم هذا المثال في التعامل مع احدى اهم الدوال في التعامل مع الرجستري و هما الدالتان GetSetting SaveSetting الاولى للحصول على الاعدادات و الثانية لحفظها ... و يمكنكم ملاحظة هذا المثال و هو لاظهار رسالة لعد مرات فتح الملف و وقته و تاريخ فتحه اخر مرة counter times file.rar ستلاحظون انه اضاف مفاتيح جديدة و قيما في الرجستري في كل مرة نفتح فيها الملف ... و الصورة التالية تشرح ذلك 1
أ / محمد صالح قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 بارك الله لك أخي يحياوي كود رائع وخفيف وبسيط 1
محمد يحياوي قام بنشر ديسمبر 15, 2011 الكاتب قام بنشر ديسمبر 15, 2011 شكرا لك اخي الحبيب محمد صالح و بارك الله فيك
فضل حسين قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 اخى الفاضل / يحياوى عمل جميل ورائع بارك الله فيك وزادك علما وجزاك الله كل خير . ولكن انا عايز اعرف اوصل للرجيستير ازاى ؟ فمثلا عن طريق قائمة start واختيار امر run وكتابة امر ايه لظهور الريجيستر ؟ سامحنى على جاهلى الف شكر ومنتظر رد سيادتكم
فضل حسين قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 اخى العزيز يحياوى بعد التحية توصلت لكيفية الوصول الى الريجيستر عن طريق start ثم اختيار run ثم كتابة الامر regedit وبالفعل توصلت للمفاتيح الموجود بالصورة التى اوضحتها فى مشاركتك . وبالفعل فهمت الكود والكود رائع تسلم الايادى وبارك الله فيك ولكن يااخى العزيز ألا يوجد شرح او افكار اخرى للريجيستر نستطيع ان نفهم اكثر عن كيفية التعامل مع الريجيستر وفهمه . وشكرا
محمد يحياوي قام بنشر ديسمبر 15, 2011 الكاتب قام بنشر ديسمبر 15, 2011 اخي الكريم لاحظ الملف التالي enablemac.rar فك الضغط عن المرفق و بيمين الماوس edit او تحرير : يتكون كل كود من سطرين بعد اسم نسخة الرجستري ...الاول للمفتاح الرئيسي و المفاتيح الفرعية له و يمكن تتبع المسار في اسفل النافذة اما الثاني فهو لقيم المفتاح ... تتبع مسار المفتاح ثم اذهب الى محرر الرجستري و اذهب الى نفس المسار ثم اضغط على ملف الرجستري مرتين و وافق على ادخال المفتاح ثم اخرج من الرجستري ثم اعد الدخول و لاحظ التغيير في المفاتيح اخي الكريم هذه فكرة بسيطة حتى نقرب المفهوم و اذا اردت المزيد فيمكنك البحث عن الشروحات في المنتديات و هي كثيرة مثال ذلك اليك هذا الرابط -------------------
فضل حسين قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 اخى العزيز / يحياوى الموضوع ليس سهلا او بمعنى اصح الموضوع كبير احنا بنشتغل مع تقريبا الويندوز نفسه وفى اسراره . ولكن انا اللى قصده هو كيفية تسهيل التعامل مع الرجيستر من خلال برنامجنا العظيم الاكسل . على منوال او على نفس فكرة ملفك الموجود فى هذه المشاركة . على اى حالة ياملك الاكواد هذه بداية جميلة ومباركة من شخصك الكريم نتمنى ان نتابع لكم اعمال اخرى خاصة بالريجيستر . الف شكر ياملك الاكواد وكل الحب والاحترام والامتنان لشخصكم الكريم داعيا لكم المولى بالتوفيق .
أ / محمد صالح قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 بارك الله لك أخي يحياوي واسمح لي بهذا التوضيح هذه الدوال يمكن التعامل معها في vb و vba و vb.net الصورة العامة للتعامل مع الإعدادات من خلال الريجيستري لحفظ الإعدادات في الريجيستري SaveSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String) وهي بالترتيب كالتالي : اسم التطبيق ثم اسم القسم ثم اسم المفتاح ثم قيمة المفتاح (وجميعها مطلوب) وللقراءة من الريجيستري GetSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String) وترجع لنا قيمة من نوع النصي string ونلاحظ أنه يمكننا الاستغناء عن قيمة المفتاح لأنها اختيارية ولحذف إعداد من الريجيستري لحذف التطبيق ككل DeleteSetting(ByVal AppName As String) ولحذف القسم المحدد فقط DeleteSetting(ByVal AppName As String, ByVal Section As String) ......... والحمد لله أولا وآخرا 1
الـعيدروس قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 (معدل) السلام عليكم بارك الله فيك استاذ يحياوي كود جميل استاذ محمد صالح تشكر على هذا الشرح المفيد وفقكم الله نستثمر هذا الكود لعملية بسيطه وهو طلب لاحد الأعضاء على انه اذا فتح الملف في الكمبيوتر أول مرة يظهر رسالة وأما اذا فتح مسبقاً لاتظهر الرسالة بيكون الكود هكذا Private Sub Workbook_Open() Dim Counter As Long, LastOpen As String, Msg As String Counter = GetSetting("yah", "med", "العدد", 0) LastOpen = GetSetting("yah", "med", "الفتح", "") Counter = Counter + 1 LastOpen = Date & " " & Time SaveSetting "yah", "med", "العدد", Counter SaveSetting "yah", "med", "الفتح", LastOpen If Val(Counter) = 0 Then MsgBox "أهلا وسهلا", vbInformation, "منتدى أوفسينا" Else Exit Sub End If End Sub تم تعديل ديسمبر 16, 2011 بواسطه alidroos 1
عبدالله المجرب قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 ما شاء الله تبارك الرحمن ملومات جديدة بنتعلمها كل يوم بارك الله فيك استاذ محمد يحياوي وكل الشكر للاستاذان الكريمان ابو عبدالله (محمد صالح) ابونصار (العيدروس)
محمد يحياوي قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 الاخوة الافاضل محمد صالح , ابو نصار , ابو احمد شكرا على المرور و الاضافات الجميلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.