[tomjerry741]

الجزء الثالث " قبل الاخير"
سنتكلم اليوم فى كيفية وضع برنامجك فى قائمة بدء التشغيل
بحيث اذا استخدمة اى احد فليس مضطرا لفتحة كل مرة
بل ان البرنامج يعمل اتوماتيك بمجرد فتح الجهاز
مثل الماسينجر ومثل برامج الانتى فيرس وغيرها الكثير
اولا قم بفتح اى مشروع لديك قد قمت - انت - بتصميمة من قبل
فلنفترض مثلا انك تريد لبرنامجنا الحالى ان يعمل فى قائمة ستارت اب startup تلقائيا
فكل ما عليك
اولا : قم بفتح مشروعك السابق


--------------
-
قم بالضغط بدل كليك اعلى الفورم الاول الاساسى
فانا انصحك بأن تستعمل هذى الطريقة الاولى
وقم بتنظيم الكود التالى
بالاعلى من Public Class Form1 قم بكتابة الكود التالى

Imports Microsoft.Win32

واسفل سطر Public Class Form1اكتب الكود التالى

Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\Cu rrentVersion\Run", True)
Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
End Sub

واسفل لود الفورم اكتب السطر التالى

AddStartup(Me.Text, Application.ExecutablePath)

اخبط اعلى الصورة ولاحظ
لاحظ الصورة جيدا




-----------------
اذا لم تعجبك الطريقة السابقة
فانا انصحك بأن تستعمل هذى الطريثة الثانية
وهى كالاتى
اسفل لود الفورم
PublicClassForm1
PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load
قم بكتابة الكود الاتى كما بالصورة التالية

Dim FileName As String
Dim FilePath As Object
Dim RegistryKey As Object
FileName = "StartupTutorial.exe"
FilePath = Path.GetFullPath(FileName)
RegistryKey = CreateObject("WScript.Shell")
RegistryKey.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\ Microsoft\Windows\CurrentVersi*on\Run\StartupTutor ial", FilePath)

تمت تجربة البرنامج وتم ادراجة فى قائمة ستارت اب
اذهب الى ستارت
ثم رن
واكتب الامر
msconfig
كما بالصورة التالية واذهب الى التبويب ستارت اب لتجد برنامجك قد تم تفعيلة

او اكتب فى قائمة رن الامر الاتى ايضا
Regedit
واتبع المسار التالى حتى تصل الى فولد رن
Software\Microsoft\Windows\CurrentVersion\Run

اتمنى ان اكون قد وفقت
وانتظروا غدا الجزء الرابع والاخير وهو تحويل برنامجنا الى ملف سيت اب يمكن تسطيبة على بقية الاجهزة الاخرى بطريقة مختصرة ومبتكرة