[VanToM]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف حالكم إخواني
إن شاء الله كلكم بخير
عندي سؤال بسيط
تشغيل البرنامج مع تشغيل الكمبيوتر
الان انا لدي برنامج يختفي بعد تشغيله
يبقى شغال في التاسك مانجر ولكن لا يظهر في التاسك بار
فكيف أجعل البرنامج يشتغل تلقائيا كلما قمت بإعادة تشغيل الكمبيوتر ؟؟؟
وأحلى تقيم ++++
في إنتظاركم

[learning.net]

اولا فى اعلى محرر الكود ضع هذا الكود

PHP كود :

Imports Microsoft.Win32 


هذا لبدء التشفيل مع الويندوز

PHP كود :

Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.SetValue("", Application.ExecutablePath)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try 


وهذا للايقاف

PHP كود :

Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.DeleteValue("", False)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try 


[VanToM]

يا غالي ارجوا منك التأكد من الكود
عندما قمت بوضعه ظهرت لي 6 أخطاء !

[learning.net]

ممكن تبعت الاخطاء حتى اعرف السبب؟

[VanToM]

تسلم يا غالي انا عرفت ايه المشكلة
المفروض إنك تحط الكود ده في الفورم لود
Form1_Load

[learning.net]

اخى لقد وضعت لك الاكواد وانت تضعها فى اى حدث تريده.
وهى ليست مقصوره على حدث الForm1_Load
اخى جرب الاتى :-
1- اعلى محرر الكود ضع هذا الكود

كود :

Imports Microsoft.Win32

2- ضع على الفورم اداة CheckBox

3- فى حدث CheckedChanged تبع ال CheckBox

ضع هذا الكود كاملا

كود :

If CheckBox1.Checked = True Then
            Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.SetValue("", Application.ExecutablePath)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try
        Else
            Try
                Dim regkey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                regkey.DeleteValue("", False)
                My.Settings.Save()
            Catch
                MsgBox("خطأ", MsgBoxStyle.Critical, "")
            End Try
        End If

وجرب البرنامج


وبالتوفيق ان شاء الله