[معاند الحظ]

بسم الله الرحمن الرحيم

طريقة جعل البرنامج يعمل مع بداية تشغيل النظام

اقدم لكم اليوم اخواني الكرام هذا الموضوع الذي هو مثال بسيط عن كيفية جعل برنامجنا يعمل بعد اقلاع النظام

يمكن جعل هذا الشيء ممكنا بطريقيتين (ليس حصرا) اذ يوجد غيرها 

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

والموجود على المسار التالي :

C:\Users\User Name\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

ويمكن اضافة الاختصار اما يديويا بفتح المجلد ولصق الاختصار فيه

او برمجيا عن طريق الكود 

في البرنامج المثال استخدمت الكلاس التالي:

كود :

Imports IWshRuntimeLibrary
Imports System
Public Class XShortCut
    ''' <summary>
    ''' Creates a shortcut in the startup folder from a exe as found in the current directory.
    ''' </summary>
    ''' <param name="exeName">The exe name e.g. test.exe as found in the current directory</param>
    ''' <param name="startIn">The shortcut's "Start In" folder</param>
    ''' <param name="description">The shortcut's description</param>
    ''' <returns>The folder path where created</returns>
    Public Sub CreateShortCutInStartUpFolder(exeName As String, description As String)
        Dim lnkName As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Startup), _
                                             IO.Path.GetFileNameWithoutExtension(exeName) & ".lnk")
        Dim linkPath = exeName
        Dim targetPath = IO.Path.GetDirectoryName(exeName)
        IO.File.Delete(lnkName)
        Create(lnkName, exeName, targetPath, description)
    End Sub

    ''' <summary>
    ''' Create a shortcut
    ''' </summary>
    ''' <param name="fullPathToLink">the full path to the shortcut to be created</param>
    ''' <param name="fullPathToTargetExe">the full path to the exe to 'really execute'</param>
    ''' <param name="startIn">Start in this folder</param>
    ''' <param name="description">Description for the link</param>
    Public Shared Sub Create(fullPathToLink As String, fullPathToTargetExe As String, startIn As String, description As String)
        Dim shell = New WshShell()
        Dim link = DirectCast(shell.CreateShortcut(fullPathToLink), IWshShortcut)
        link.IconLocation = fullPathToTargetExe
        link.TargetPath = fullPathToTargetExe
        link.Description = description
        link.WorkingDirectory = startIn
        link.Save()
    End Sub
End Class

وهو كلاس وجدته في احد المواقع وقمت بالتعديل عليه قليلا

ووضيفته هي انشاء الاختصار

ويتم استخدامه كالتالي:

كود :

Dim shortcut As New XShortCut()

        shortcut.CreateShortCutInStartUpFolder(appName, "")

اما الطريقة الثانية فهي عن طريق استخدام سجل النظام Registry

ويكون باضافة قيمة الى المفتاح التالي :

SOFTWARE\Microsoft\Windows\CurrentVersion\Run

عند الرغبة في جعل البرنامج يعمل بعد اقلاع النظام

وعند الرغبة في عدم جعل البرنامج يعمل مع اقلاع النظام

نقوم بحذف القيمة

والقيمة عبارة عن اسم البرنامج + مسار البرنامج

ويتم هذا باستخدام الكود التالي

للاضافة :

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)

للحذف:

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName, True)

هذا تقريبا كل شيء

لكن ينبغي الملاحظة ان التعامل مع سجل النظام يتطلب ان يعمل برنامجك كمسؤول

تحميل المثال

  RunWithSystemStartup.zip (الحجم : 101.01 ك ب / التحميلات : 228)