فئة التقنيات الحديثة

'
:. بسم الله و الصلاة و السلام على أشرف المرسليـن

:. الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات أعمالنا

:. من يهده الله فلا مظل له و من يضلل فلن تجد له ولياً مرشدا

:. و أشهد ألا إله إلا الله وحده لاشريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم

:. أما بعد ..

:. أكثر من طريقة لجعل برنامجك يعمل عند تشغيل الجهاز

|[ ------------------------------------------------------------------ ]|

'
:. الطريقة الأولي .:

|[ -------------------------- ]|

هذه الطريقة تعتمد علي انشاء قيمة جديدة بأسم ومسار البرنامج في الريجستيري للمفتاح التالي

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

لإضافة برنامجك إلي قائمة البرامج التي تعمل عند تشغيل الجهاز اضف الكود التالي

الكود:: Dim RegKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

My.Computer.Registry.LocalMachine.OpenSubKey(RegKey,
True).SetValue(Application.ProductName, Application.ExecutablePath)

لحذف برنامجك من قائمة البرامج التي تعمل عند تشغيل الجهاز اضف الكود التالي

الكود:: Dim RegKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
My.Computer.Registry.LocalMachine.OpenSubKey(RegKey, True).DeleteValue(Application.ProductName)

'
:. الطريقة الثانية .:

|[ -------------------------- ]|

هذه الطريقة تعتمد علي انشاء قيمة جديدة بأسم ومسار البرنامج في الريجستيري للمفتاح التالي

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

لإضافة برنامجك إلي قائمة البرامج التي تعمل عند تشغيل الجهاز اضف الكود التالي

الكود:: Dim RegKey As String = "Software\Microsoft\Windows\CurrentVersion\Run"

My.Computer.Registry.CurrentUser.OpenSubKey(RegKey,
True).SetValue(Application.ProductName, Application.ExecutablePath)

لحذف برنامجك من قائمة البرامج التي تعمل عند تشغيل الجهاز اضف الكود التالي

الكود:: Dim RegKey As String = "Software\Microsoft\Windows\CurrentVersion\Run"
My.Computer.Registry.CurrentUser.OpenSubKey(RegKey, True).DeleteValue(Application.ProductName)

'
:. الطريقة الثالثة .:

|[ -------------------------- ]|

هذه الطريقة تعتمد علي انشاء اختصار للبرنامج [ Shortcut ] في المسار التالي

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup

لإضافة برنامجك إلي قائمة البرامج التي تعمل عند تشغيل الجهاز اتبع التالي

» قم بإضافة مكتبة L i n k S h e l l الي مشروعك

» قم بإستيراد البيانات التالية

System.IO

Link.AppShortcut

Link.InternetShortcut

عن طريق الكود التالي

الكود:: Imports System.IO
Imports Link.AppShortcut
Imports Link.InternetShortcut

» قم بإضافة الكود التالي لإضافة برنامجك إلي قائمة البرامج التي تعمل عند تشغيل الجهاز

الكود::    Dim GetStyle As Type = GetType(ProcessWindowStyle)

    Dim GetValueStyle As ProcessWindowStyle = DirectCast([Enum].Parse(GetStyle, "Normal"), ProcessWindowStyle)

    AddLnkShortcut(Application.ProductName, Application.ExecutablePath, Application.StartupPath, _
    "Cmd Line", "Comment", Application.ExecutablePath, 0, GetValueStyle, _
    "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup", "")

» قم بتغيير [ Cmd Line ] في الكود الي جملة الـ Cmd الخاصة بالبرنامج وإذا لا يوجد جملة Cmd احذف [ Cmd Line ] من الكود

» قم بتغيير [ Comment ] في الكود الي الـ Comment الخاص بالبرنامج وإذا لا يوجد Comment احذف [ Comment ] من الكود

» قم بإضافة الكود التالي لحذف برنامجك من قائمة البرامج التي تعمل عند تشغيل الجهاز

الكود:: File.Delete("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Application.ProductName & ".lnk")

|[ ------------------------------------------------------------------ ]|

'
:. تحميل مكتبة L i n k S h e l l .:

|[ -------------------------- ]|

Link 1

Link 2

Link 3

|[ ------------------------------------------------------------------ ]|

توقيع العضو : Adel Rehan

# اللعبة أن نثير العوآطف نحونآ , وبعدهآ تؤمنون بنآ , فلآ مجآل للصدفة فالقوآنين تجبركم على الاختيآر !!!
A d e l R e h a n || 2014 - 2015 || E L M A S R Y Y . C O M