+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عايز البرنامج يشتغل مع بداية تشغيل الويندوز (/showthread.php?tid=14031)
عايز البرنامج يشتغل مع بداية تشغيل الويندوز - مدحت زقزوق - 05-12-15
بصمم برنامج اذان وعايز البرنامج يشتغل مع بداية تشغيل الويندوز فياريت الكود اللي يخليه يفتح مع بداية التشغيل
RE: ياريت حد يساعدني بسرعة - hassan - 05-12-15
(05-12-15, 12:10 PM)مدحت زقزوق كتب : بصمم برنامج اذان وعايز البرنامج يشتغل مع بداية تشغيل الويندوز فياريت الكود اللي يخليه يفتح مع بداية التشغيل
تفضل
ضع هاذا الكود في زر
PHP كود :
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", Application.ProductName, Application.ExecutablePath)
وشكرا
RE: ياريت حد يساعدني بسرعة - أسامة - 05-12-15
بعد اذن الاخ hassan
يمكن استخدامة بهذه الطريقة
كود :
Try
Dim regKey As Microsoft.Win32.RegistryKey
If CheckBox5.Checked = True Then 'الاضافة ريجستري
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) ' مسارالريجستري
regKey.SetValue(Application.ProductName, Application.ExecutablePath) 'اسم و مسار المشروع
regKey.Close()
Else 'الازالة الريجستري
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.DeleteValue(Application.ProductName, False)
regKey.Close()
End If
Catch ex As Exception
End TryRE: ياريت حد يساعدني بسرعة - احمداحمداحمد6 - 05-12-15
من بعد اذن الجميع
ضع البرنامج المنفذ في الستارت اب ...
RE: ياريت حد يساعدني بسرعة - hassan - 05-12-15
(05-12-15, 09:48 PM)احمداحمداحمد6 كتب : من بعد اذن الجميع
ضع البرنامج المنفذ في الستارت اب ...
هل يوجد كود برمجي ؟؟؟؟؟؟؟؟؟
RE: عايز البرنامج يشتغل مع بداية تشغيل الويندوز - أحمد النجار - 06-12-15
(05-12-15, 10:02 PM)hassan كتب :(05-12-15, 09:48 PM)احمداحمداحمد6 كتب : من بعد اذن الجميع
ضع البرنامج المنفذ في الستارت اب ...
هل يوجد كود برمجي ؟؟؟؟؟؟؟؟؟
بالفعل استاذنا يوجد كود وبالفعل بعد التجربة يقوم بتشغيل البرنامج مع تشغيل الويندوز
المطلوب هو نسخ الملف النتفيذي للمشروع الى مجلد StartUp
وطبعا الملف التنفيذي يكون في مسار تشغيل البرنامج
فيكون الكود كالتالي والكود التالي يتم وضعه مع بداية البرنامج
اي يكون في حدث Form_Load في الفورم الرئيسية للبرنامج
في البدء يجب التحقق ان الملف غير موجود مسبقا لانه لو موجود سيحدث خطأ
PHP كود :
' اختبار هل الملف موجود ام لا
If Not IO.File.Exists("C:\Users\[User]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\[FileName.exe]") Then
' لو الملف غير موجود يقوم بنسخه من مسار تشغيل البرنامج الى مجلد StartUp
IO.File.Copy(Application.StartupPath & "\[FileName.exe]", "C:\Users\[User]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\[FileName.exe]")
End If
مع تعديل ما بين الاقواس المربعة لما يناسب البرنامج
RE: عايز البرنامج يشتغل مع بداية تشغيل الويندوز - hassan - 07-12-15
(06-12-15, 07:43 PM)أحمد النجار كتب :(05-12-15, 10:02 PM)hassan كتب :(05-12-15, 09:48 PM)احمداحمداحمد6 كتب : من بعد اذن الجميع
ضع البرنامج المنفذ في الستارت اب ...
هل يوجد كود برمجي ؟؟؟؟؟؟؟؟؟
بالفعل استاذنا يوجد كود وبالفعل بعد التجربة يقوم بتشغيل البرنامج مع تشغيل الويندوز
المطلوب هو نسخ الملف النتفيذي للمشروع الى مجلد StartUp
وطبعا الملف التنفيذي يكون في مسار تشغيل البرنامج
فيكون الكود كالتالي والكود التالي يتم وضعه مع بداية البرنامج
اي يكون في حدث Form_Load في الفورم الرئيسية للبرنامج
في البدء يجب التحقق ان الملف غير موجود مسبقا لانه لو موجود سيحدث خطأ
PHP كود :
' اختبار هل الملف موجود ام لا
If Not IO.File.Exists("C:\Users\[User]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\[FileName.exe]") Then
' لو الملف غير موجود يقوم بنسخه من مسار تشغيل البرنامج الى مجلد StartUp
IO.File.Copy(Application.StartupPath & "\[FileName.exe]", "C:\Users\[User]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\[FileName.exe]")
End If
مع تعديل ما بين الاقواس المربعة لما يناسب البرنامج
شكرا لك على هذه المعلومة
ماقصرت الله يعطيك العافيه