[غروب]

تحيه طيبه 
بعد حفظ مشروعي
كيف اجعله يشتغل  تلقائي فجيوال بسيك .نت 5

[معاند الحظ]

اذا كنت تقصد تشغيل البرنامج تلقائيا في كل مرة يشتغل قيها النظام
فهذا ممكن بطريقتين هما

1- نسخ ملف البرنامج الى مجلد startup 
2- عن طريق استخدام تسجيل النظام registry

استخدم الكود هذا وضعه في حدث تريده 

كود :

' The following code is a rendition of one provided by
   ' Firestarter_75, so he gets the credit here:

   Dim applicationName As String = Application.ProductName
   Dim applicationPath As String = Application.ExecutablePath

   If CheckBox1.Checked Then
     Dim regKey As Microsoft.Win32.RegistryKey
     regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
     regKey.SetValue(applicationName, """" & applicationPath & """")
     regKey.Close()
   Else
     Dim regKey As Microsoft.Win32.RegistryKey
     regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
     regKey.DeleteValue(applicationName, False)
     regKey.Close()
   End If

   ' Assuming that you'll run this as a setup form of some sort
   ' and call it using .ShowDialog, simply close this form to
   ' return to the main program

فلو تلاحظ ان الكود يقوم باضافة قيمة الى المفتاح SOFTWARE\Microsoft\Windows\CurrentVersion\Run لكي يتم تشغيل البرنامج مع بدء النظام وسوف تجد ان اسم برنامجك قد ضهر في تبويب بدء التشغيل ضمن برنامج مدير المهام
ويقوم الكود بحذف القيمة التي تم اضافتهاالى المفتاح سابفا لكي يلفي تشعيل البرنامج مع بدء النظام

مع ملاحظة انه قد يختلف المفتاح بحسب نوع نظام التشغيل وغيبره

[غروب]

(13-10-21, 08:17 AM)معاند الحظ كتب : اذا كنت تقصد تشغيل البرنامج تلقائيا في كل مرة يشتغل قيها النظام
فهذا ممكن بطريقتين هما

1- نسخ ملف البرنامج الى مجلد startup 
2- عن طريق استخدام تسجيل النظام registry

استخدم الكود هذا وضعه في حدث تريده 

كود :

' The following code is a rendition of one provided by
   ' Firestarter_75, so he gets the credit here:

   Dim applicationName As String = Application.ProductName
   Dim applicationPath As String = Application.ExecutablePath

   If CheckBox1.Checked Then
     Dim regKey As Microsoft.Win32.RegistryKey
     regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
     regKey.SetValue(applicationName, """" & applicationPath & """")
     regKey.Close()
   Else
     Dim regKey As Microsoft.Win32.RegistryKey
     regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
     regKey.DeleteValue(applicationName, False)
     regKey.Close()
   End If

   ' Assuming that you'll run this as a setup form of some sort
   ' and call it using .ShowDialog, simply close this form to
   ' return to the main program

فلو تلاحظ ان الكود يقوم باضافة قيمة الى المفتاح SOFTWARE\Microsoft\Windows\CurrentVersion\Run لكي يتم تشغيل البرنامج مع بدء النظام وسوف تجد ان اسم برنامجك قد ضهر في تبويب بدء التشغيل ضمن برنامج مدير المهام
ويقوم الكود بحذف القيمة التي تم اضافتهاالى المفتاح سابفا لكي يلفي تشعيل البرنامج مع بدء النظام

مع ملاحظة انه قد يختلف المفتاح بحسب نوع نظام التشغيل وغيبره

لم فهم اينا اضع الكود 
انا خطأت قلت استخدم فيجوال بسيك .نت انا  استخدم فيجوال بسيك Express 2010
انا موبتدأ في برمجه
لي خبره قليله في ستخدام البرنامج