كيف عمل مع مشكله - غروب - 13-10-21
تحيه طيبه
بعد حفظ مشروعي
كيف اجعله يشتغل تلقائي فجيوال بسيك .نت 5
RE: كيف عمل مع مشكله - معاند الحظ - 13-10-21
اذا كنت تقصد تشغيل البرنامج تلقائيا في كل مرة يشتغل قيها النظام
فهذا ممكن بطريقتين هما
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 لكي يتم تشغيل البرنامج مع بدء النظام وسوف تجد ان اسم برنامجك قد ضهر في تبويب بدء التشغيل ضمن برنامج مدير المهام
ويقوم الكود بحذف القيمة التي تم اضافتهاالى المفتاح سابفا لكي يلفي تشعيل البرنامج مع بدء النظام
مع ملاحظة انه قد يختلف المفتاح بحسب نوع نظام التشغيل وغيبره
RE: كيف عمل مع مشكله - غروب - 13-10-21
(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
انا موبتدأ في برمجه
لي خبره قليله في ستخدام البرنامج
|