13-01-22, 08:36 PM
بسم الله الرحمن الرحيم
طريقة جعل البرنامج يعمل مع بداية تشغيل النظام
اقدم لكم اليوم اخواني الكرام هذا الموضوع الذي هو مثال بسيط عن كيفية جعل برنامجنا يعمل بعد اقلاع النظام
يمكن جعل هذا الشيء ممكنا بطريقيتين (ليس حصرا) اذ يوجد غيرها
الطريقة الاولى وهي الابسط تكون بعمل اختصار 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 ك ب / التحميلات : 182)