تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مثال طريقة جعل البرنامج يعمل مع بداية تشغيل النظام
#1
بسم الله الرحمن الرحيم

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

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



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

الطريقة الاولى وهي الابسط تكون بعمل اختصار 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)
هذا تقريبا كل شيء

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

تحميل المثال

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

الرد }}}
#2
السلام عليكم ورحمة الله وبركاته
تعجبني الأمثلة الشافية والوافية  ومنها أمثلتك أخي معاند لأنها تزيد من رصيد منتدانا الغالي
بارك الله فيك ولك .... ننتظر المزيد
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: معاند الحظ , سعود
#3
شرح وافي و كافي

و ختمتها بالمسك بإرفاقك للبرنامج

جزاك الله خير و بارك الله فيك
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد }}}
تم الشكر بواسطة: معاند الحظ , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 81 48,103 10-02-24, 11:26 AM
آخر رد: محمد العموري
  جعل البرنامج لا يعمل على الاجهزة التي لاتدعم اللغة العربية العتيق 0 179 27-01-24, 08:08 PM
آخر رد: العتيق
  [مثال] تشغيل البرنامج لفترة محددة مع التفعيل Kamil 0 249 07-01-24, 01:43 AM
آخر رد: Kamil
  [مشروع] إغلاق أو إعادة تشغيل الكمبيوتر بعد وقت محدد Kamil 0 230 17-12-23, 03:44 PM
آخر رد: Kamil
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 542 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 3 3,426 07-12-22, 12:19 PM
آخر رد: hoda299
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 12 8,936 14-10-22, 12:59 AM
آخر رد: spiky
  الاتصال بقاعدة بيانات SQL بدون تنصيب البرنامج كامل ملهمـ 0 1,335 23-09-22, 12:28 AM
آخر رد: ملهمـ
  مثال على عمل qr code و قرائة ال qr code من ملف صورة او من الشاشة mohamed haroon 6 6,490 02-09-22, 01:48 AM
آخر رد: Mahmoud41
  مثال إضافة وأزالة البرنامج من قائمة بدء التشغيل سيد درويش 0 808 26-08-22, 12:14 PM
آخر رد: سيد درويش

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم