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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الريجستري (/showthread.php?tid=9077)

الريجستري - abuzzouz - 29-05-13

أخواني الأفاضل
لو تكرمتم أحتاج إلى أكواد لتسجيل مفتاح ريجستري يسجل تاريخ اليوم الأول لفتح البرنامج وكذلك التأكد من وجوده وقراءته ومن ثم القيام بحذفه
حيث اجد صعوبة في تطبيق ما قرأته عن الريجستري ولم يسبق لي التعامل معه كما أني أخاف من ارتكاب أي خطأ يتسبب بمشكلة في الجهاز

فهل لي بذلك جزاكم الله ألف خير
تقبلوا جميعاً تحياتي

الريجستري - Sajad - 29-05-13

السلام عليكم

تفضل أخي العزيز المثال في المرفقات لكن بال#c



الريجستري - kslawy - 29-05-13

السلام عليكم ورحمة الله وبركاته

دالة إنشاء المفتاح الذي سيحوى التاريخ مع إضافة تاريخ اليوم مع الوقت كقيمة للمفتاح المنشأ :
كود :
Private Sub CreateMyRegistryValue()
        Try
            Application.CommonAppDataRegistry.SetValue("abuzzouz", Now)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Create Value")
        End Try
    End Sub

في حدث تحميل النموذح FormLoad نتحقق من عدم خلو المفتاح السابق من أي قيمة ، إذا كان خالي سيتم تعيين تاريخ اليوم له بالدالة السابقة :

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim MyValue As String = Nothing
        MyValue = Application.CommonAppDataRegistry.GetValue("abuzzouz")


        If MyValue = Nothing Then
            MsgBox("هذه أول مرة تشغل البرنامج سيتم حفظ تاريخ اليوم")
            CreateMyRegistryValue()
        End If


    End Sub





حسناً إذا أردت حذف المفتاح استخدم هذه الدالة :

كود :
Private Sub DeleteMyRegisrtyValue()
        Try
            Application.CommonAppDataRegistry.DeleteValue("abuzzouz")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Delete Value")
        End Try
    End Sub

****
***
**
*

الريجستري - abuzzouz - 30-05-13

لكما مني جزيل الشكر أخواني الأعزاء kslawy و sajad هذا ما أبحث عنه مع أن المثال المرفق غير مكتوب بالـ vb.net لكن لا مشكلة أخي sajad جزاكما الله خيراً
لكن سامحوني لدي أيضا استفسار يتعلق بتحديد hot key عن طريق الريجستري وذلك ليتمكن المستخدم من فتح البرنامج بالضغط عليه وليكن على سبيل المثال (Ctrl+F8)
فكيف يتم ذلك بالكود أيضاً

عذراً مرة أخرى لكن خبرتي متواضعة وأسعى لتطويرها بمساعدة أمثالكم بارك الله فيكم
تقبلوا تحياتي

الريجستري - سعود - 30-05-13

اسمحوا لي بالتدخل
كود :
MsgBox("هذه أول مرة تشغل البرنامج سيتم حفظ تاريخ اليوم")
كيف نمنع المستخدم من استخدام البرنامج عند هذه النقطة؟
لانه ربما تم حذف القيمة يدويا.

الريجستري - abuzzouz - 30-05-13

أخي العزيز سعود .. ربما كما فهمت ان هذه المسج هي مجرد مثال وليس كتطبيق فعلي في البرنامج

الريجستري - سعود - 30-05-13

ادري اخي
لكن هل التحقق بخلو المفتاح من اي قيمة دليل على التعديل غير المصرح به؟ ان كان نعم فهذا شيء رائع بدل الرسالة نكتب كود الانهاء.