منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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 

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

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

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

اخى لقد وضعت لك الاكواد وانت تضعها فى اى حدث تريده.
وهى ليست مقصوره على حدث ال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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

VanToM

learning.net

VanToM

learning.net

VanToM

learning.net