منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تشغيل البرنامج مع الكمبيوتر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7938)

تشغيل البرنامج مع الكمبيوتر - VanToM - 13-03-13

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

تشغيل البرنامج مع الكمبيوتر - learning.net - 13-03-13

اولا فى اعلى محرر الكود ضع هذا الكود
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 - 13-03-13

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

تشغيل البرنامج مع الكمبيوتر - learning.net - 13-03-13

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

تشغيل البرنامج مع الكمبيوتر - VanToM - 13-03-13

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

تشغيل البرنامج مع الكمبيوتر - learning.net - 14-03-13

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

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


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