السلام عليكم :
اذا اردت ان تستفاد من الموضوع هذا .. على الاقل يجب معرفة اساسيات نظام الرجستري وماهية عمله
نبدي على بركة الله :
مقدمة بسيطة عن نظام الرجستري regedit :
نظام الرجستري هو عبارة عن قاعدة بيانات ضخمة جداً خاصة في تخزين خصائص واعدادات نظام الويندوز من برامج
واعدادات اخرى . ويحتوي نظام الرجستري على كل صغيرة وكبيرة في النظام .
يتكون نظام الرجستري من :
1- مفاتيح keys : وتتكون بدورها من subkeys و value
2- قيم values : وهي المسؤولة على تنفيذ الاوامر ( اشبه بالكود )
يعني بالمختصر المفيد .. نظام الرجستري يحتوي على keys و value .. والـ keys يحوي على مفاتيح فرعية
والمفتاح يحتوي على قيم value .. وعند فتح الرجستري تظهر لدينا القيم ( الجهة اليمنى ) و المفاتيح ( اليسرى )
لفتح نظام الرجستري :: اضغط على زر الويندوز من لوحة المفاتيح + حرف R رح يظهر لك الـ run اكتب regedit
ثم اضغط انتر من لوحة المفاتيح .. ادناه صورة توضيحية لنظام الرجستري ::
هسه احنة مو هنا سالفتنا .. انت لازم عندك فكرة بسيطة على نظام الرجستري حتى تعرف شنو جاي نسوي
المهم ما علينا . خل نبدي في البرمجة وادخال القيم من خلال لغات البرمجة وليس يدوياً
1- افتح لغة البرمجة vb.net 2008 او 2005 او 2010 او 2012 براحتك
2- في قسم التصريحات العامة اكتب الكود ادناه :
كود:
Imports Microsoft.Win32
قمنا باستيراد الدالة
3- اذا اردنا ان ننشئ مفتاح key بداخل الرجستري تحديداً بداخل software نكتب الكود :
كود:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("spyman")
regKey.Close()
لاحظ الكود اعلاه وكيفية اختيار المسار المراد انشاء المفتاح فيه وهو :
4- اما اذا اردنا ان نفتح مفتاح معين في الرجستري ونقوم باضافة value .. كأن اريد ان افتح المفتاح
الذي عملناه في الكود اعلاه (( اقصد المفتاح spyman )) ونضيف له قيمتين , الاولى jackal والثانية h4x0r
نكتب الكود ادناه :
كود:
Dim regKey As RegistryKey
Dim ver As Decimal
regKey = Registry.LocalMachine.OpenSubKey("Software\spyman", True)
regKey.SetValue("jackal", "12345")
ver = regKey.GetValue("h4x0r", 0.0)
If ver < 1.1 Then
regKey.SetValue("h4x0r", 1.1)
End If
regKey.Close()
ملاحظات حول الكود ::
jackal : القيمة الاولى (( تتضمن الارقام 12345 كـ data لها )
h4x0r : القيمة الثانية ,وتحتوي على data ايضا , لاحظ الصورة ادناه
5- لحذف قيمة نكتب الكود التالي :
كود:
Dim regKey As RegistryKey
كود:
regKey = Registry.LocalMachine.OpenSubKey("Software", True)
regKey.DeleteSubKey("spyman", True)
regKey.Close()
كذلك بالحذف .. نحدد المسار ولكن نغير بالكود .. بدل Create نكتب Delete
وسلامتكم
رد مع اقتباس
