جعل البرنامج يعمل مع بدأ التشغيل

جعل البرنامج يعمل مع بدأ التشغيل

---

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

ان كل برنامج يقوم بالبدأ مع تشغيل النظام يكون له مفتاح داخل الرجستري في مكان مخصص....يوجد داخل هذا المفتاح المكان الخاص بالبرنامج ليقوم بتشغيله.... و على هاذا الاساس سنقوم بعمل مفتاح داخل الرجستري لجعل البرنامج يعمل مع بدأ التشغيل.
ضع هذا الكود داخل ال ( General ).

كود:

Private Function RegWrite(Key1, SValue As String)

    Set WSHShell = CreateObject("WScript.Shell")

    WSHShell.RegWrite Key1, SValue

End Function

والان ضع هذا الكود داخل ال ( Form )

كود:

RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\programName", " path of the program"

حيث ( Program NAme ) هو اسم المفتاح و ( Path of the Program ) هو القيمة التي داخل المفتاح و عي مكان وجود البرنامج على القرص الصلب
اتمنا ان ينال الموضوع اعجابكم و ان ارى ردودكم على الموضوع

Aboali6001

هذا افضل
جعل البرنامج يشتغل مع بدء الوندوز

Private Sub Form_Load()
Dim O As Object
Set O = CreateObject ("WScript.Shell")
O.RegWrite

"HKCUSoftwareMicrosoftWindowsCurrentVersionRunProg ramName",

ProgramPath, "REG_SZ"
End Sub