السلام عليكم :
طرحت البرنامج بموضوع سابق بصيغة ملف set up كامل " بهذا الموضوع "
فكرة عملت البرنامج :
البرنامج يقوم بادخال قيمة بداخل الرجستري بداخل المسار :
لازم انت عندك فكرة على الرجستري ودير بالك تسوي اي شيء بالرجستري وانت ما تعرف هذا الشيء شنو يسويكود:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
--------------------------------------------------------------------
هسه عرفنا المسار الي لازم ندخل الها البرنامج بحيث يعمل مع بدء التشغيل
الشغلة المهمة والثانية , شلون نكدر نخلي المستخدم هو يحدد البرنامج ويدخل القيمة للرجستري ؟
* لازم نخلي Dialog يظهر للمستخدم يعرض الملفات التنفيذية فقط ( exe ) عن طريق الكود ادناه :
كود:On Error Resume Next Dim ofd As New OpenFileDialog ofd.Title = "اختر" ofd.Filter = "ملفات تنفيذية (*.exe)|*.exe*.*" ofd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments If ofd.ShowDialog = DialogResult.OK Then TextBox1.Text = ofd.FileName TextBox2.Text = ofd.FileName End If
* الان : وبعد ان اختار المستخدم البرنامج . نريد ان نجعل مسار هذا البرنامج في Textbox1 , Textbox2 حتى ندرج القيمة في الرجستري
من خلال هذا الكود :
كود:TextBox1.Text = ofd.FileName TextBox2.Text = ofd.FileName
(( ملاحظة : ofd هو Dialog نفسه ولكن عرفناه هيج للاختصار بالكود لا اكثر ))
طبعا الكود اعلاه يدرج مع Dialog . حتى تتم العملية بنفس الوقت ( اختيار البرنامج + ملأ صناديق النصوص )
الان نحتاج الى ادخال القيمة بصورة فعلية ,, لان العمليات اعلاه مجرد تحضير وتعديل تمهيداً لادخال القيمة
هذا الكود ادناه خاص بادخال البرنامج المختار (( وطبعا الموجود في صناديق النص الاول والثاني الى الرجستري ))
كود:On Error Resume Next Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("" & TextBox2.Text & "", "" & TextBox1.Text & "") regKey.Close()
هذه هي فكرة البرنامج الاساسية :
تلخيص الفكرة :
1- يقوم المستخدم بأختيار البرنامج وبعد ذلك تقوم انت ( عن طريق الكود ) بأدخال اختيار المستخدم داخل صندوقين نص
2- نقوم باخذ القيمة الموجودة في صندوقي النص الاول والثاني وادخالها للرجستري عن طريق الكود اعلاه
3- تذكر مسار الادخال هو :
اي استفسار انا حاضركود:HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
رد مع اقتباس
...شكرا للمجهود القيم 
تقييم مستحق
