كيف يمكنني جعل البرنامج يشتغل بعد الريستارت

يمكن ان تضيق الملف التنفيذي للبرنامج (program.exe) الى مجلد بدء التشغيل او (start up) لكي يعمل مع مع بدء شغيل ويندوز .

او يمكن اضافة هذا الكود الى البرنامج .. ويكفي تشغيله مره واحدة ليتم تسجيله بالرجستري ويعمل مع بدء تشغيل الويندوز

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
   (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
   "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
   ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
   ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
   (ByVal hKey As Long) As Long
   
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Sub Form_Load()
Dim lRegKey As Long
Dim sApp As String
sApp = App.Path + IIf(Right(App.Path, 1) <> "\", "\", "") + App.EXEName + ".exe"
If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run\", lRegKey) = 0 Then
   If RegSetValueEx(lRegKey, "My Program", 0, 1, ByVal sApp, Len(sApp)) Then
       MsgBox "There was a Problem Adding This Program to the Registry", vbExclamation, "Error"
   End If
   Call RegCloseKey(lRegKey)
End If
End Sub

up

أخي هوب

لم أفهم الكود الذي كتبته

Private Sub Form_Load()
Dim lRegKey As Long
Dim sApp As String
sApp = App.Path + IIf(Right(App.Path, 1) <> "\", "\", "") + App.EXEName + ".exe"
If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run\", lRegKey) = 0 Then
  If RegSetValueEx(lRegKey, "My Program", 0, 1, ByVal sApp, Len(sApp)) Then
      MsgBox "There was a Problem Adding This Program to the Registry", vbExclamation, "Error"
  End If
  Call RegCloseKey(lRegKey)
End If
End Sub

هذا الجزء سأكتبه في الاجراء Form_Load

هذا مفهوم

ولكن هذا الجزء

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
  (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
  "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
  ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, _
  ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
  (ByVal hKey As Long) As Long
  
Private Const HKEY_LOCAL_MACHINE = &H80000002

لا اعرف هل ساكتبه في موديول ام اين؟

اتمني ان تشرح لي الكود بارك الله فيك

أخي el3asher قم بوضع هذا الجزء في قسم التصريحات العامة General_Declaration

خلاصة القول قم بنسخ جميع الكود الذي ذكره الأخ هوب وافتح نموذج جديد

وانقر عليه بزر الماوس الأيمن واختر view code

ثم انقل إليه الكود

اعذرنا على عدم التوضيح ..

واعمل مثل ما قال الاخ عبدالله فتحي.

أخي انا اسف لو ضايقتك

ولكني لا اريد ان انقل الكود واضعه دون فهم

انا أدرس البرمجة ولو كنت أريد نقل الكود ووضعه كنت سألت دكتور البرمجة ليقوم بعمل نموذج انقله وكفي

ولكني انضممت معكم كي افهم

لا كي أنقل

أخي ربما أُثقل عليك ولكني اتمني ان تشرح لي الكود :)

انت عرفت ثلاث دوال هي تلك

RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA"

RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA"

RegCloseKey Lib "advapi32.dll"

قبل كلمة Function ذكرت كلمة Declare

ما وظيفة Declare؟؟؟

كما اني اراك فقط اعلنت عن الدوال الثلاثة من دون ان تذكر معالجتها

هذا الجزء ايضا لا افهمه

في النهاية انت أعلنت عن الثابت HKEY_LOCAL_MACHINE وعينت له قيمة

هل يمكنني ان اعرف لماذا هذه القيمة بالذات؟

هذا بالنسبة للكود الذي سيوضع في التصريحات العامة

اما الجزء الموضوع في الحدث form_load لم افهم منه شئ علي الاطلاق

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

أسف أخي علي كثرة الاسئلة