أرجوا المساعدة ى ال Registry

#124 مارس 2006 في 12:47 صاحب الموضوع

أريد صنع جزء من البرنامج يقوم بأظهار رسالة تسأل المستخدم لو كان يريد إلغاء (مفتاح) فى الريجيسترى و بعد الموافقة يقوم البرنامجح بالتأكد لو كان المفتاح موجود أو لا و لو كان غير موجود يظهر رسالة خطأ و لو كان موجود يقوم بإلغائة

برجاء المساعدة فقد بحثت و وجدت عدد من الأكواد و لكن لم أستطع ربطها معا

ياريت المساعدة

المفاتيح المطلوب إلغائها:

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\

Ratings

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\

Ratings

برجاء المساعدة :unsure:

#224 مارس 2006 في 13:44

السلام عليكم,

الكود الخاص بالتعريفات سيكون كالتالي :

Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Public Enum regPredefinedKey
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
End Enum

Public Function DeleteKey(Location As regPredefinedKey, KeyName As String) As Integer

    DeleteKey = RegDeleteKey(Location, KeyName)

End Function

و ثم لتنفيذ ما طلبت عليك كتابة شيء مشابه لـ :

Private Sub Command1_Click()
Dim RetVal As Integer, RetVal1 As Integer
If MsgBox("do u want to delete the register keys ?", vbYesNo) = vbYes Then
    RetVal = DeleteKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ratings")
    RetVal1 = DeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ratings")
    If (RetVal <> 0 Or RetVal1 <> 0) Then
        MsgBox "at least one of the keys does not exist", vbCritical
    End If
        
End If
End Sub

و بالتوفيق , ;)

لكل داء دواء يستطب به ................. إلا الحماقة أعيت من يداويها

#325 مارس 2006 في 07:48

بسم الله السميع العليم

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

اجاب الاخ باسل مشكورا بإستخدام الـ API و للإفادة اقول يمكنك ايضا القيام بذلك اخي الكريم بإستخدام الفيجوال بيسك بشكل مشابه للتالي :

     Dim Shl As Object
    Const Key = "\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Ratings\"
        
    On Error Resume Next
    Set Shl = CreateObject("Wscript.Shell")
    
    If MsgBox("هل تريد حذف مفاتيح الريجستري", vbYesNo + vbQuestion) = vbYes Then
        Shl.regDelete "HKCU" + Key
        Shl.regDelete "HKLM" + Key
        If Err.Number Then
            MsgBox "لم يتم العثور على احد هذه المفاتيح"
        End If
    End If

اكرر شكري للاخ الكريم باسل ولك

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

تم تعديل هذه المشاركة بواسطة رغيد الطيب في 25 مارس 2006 في 07:53

مواضيع برمجية تقنية جديدة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج للبحث في الملفات ومحتواياتها (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

مواضيع برمجية تقنية قديمة

----------------------------------------------------------------------------------------------------------------------------------------------

• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NET VB6.0)

----------------------------------------------------------------------------------------------------------------------------------------------

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

----------------------------------------------------------------------------------------------------------------------------------------------

أرجوا المساعدة ى ال Registry

مواضيع مشابهة