[الخير طهوري]

  TEST.rar (الحجم : 26.56 ك ب / التحميلات : 30)

السلام عليكم
نزولا عند رغبة أخي عبد العزيز البسكري
اعيد وضع الكود بعد إضافة text لإدخال اسم البرنامج المراد تشغيله مع تشغيل الويندوز

كما أدرجت مثالا عمليا
البرنامج المراد تسجيله هو  test
وبرنامجنا لتسجيل test هو registre

قم بتشغيل  Registre
أكتب في الأداة Text اسم البرنامج الذي سوف نشغله مع الويندوز وهو عبارة عن واجهة فيها شخصىة كرتونية للتأكد أن البرنامج
يشتغل أي أكتب Test  ثم الضغط على زر التسجيل
بعد ذلك أحذف البرنامج  Registre
أعد تشغيل النظام
انتظر حتى يشتغل البرنامج Test
بعد التجربة يمكنك الآن حذف المثال Test  وحذف اسمه من الريجستري
أتمنى أن يكون في هذا عونا
أما تطبيقات هذا الكود فأعتقد عديدة جدا وكل واحد يمكنه تخيل فيما يمكن أن يستعمله و على سبيل المثال:
يمكن إنجاز برنامج لمراقبة تشغيل الحاسوب كأن يسجل متى تم التشغيل ومدة التشغيل زغيرها
كما يمكنإنجاز برنامج لنسخ البيانات بمجرد إدخال الفلاش ديسك من أماكن محددة دون تدخل خارجي   ......



تحياتي القلبية
السلام عليكم

كود :

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 Sub Command1_Click()
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String
Const HKEY_CURRENT_USER = &H80000001
Const KEY_WRITE = &H20006
Const REG_SZ = 1
subkey = "Software\Microsoft\Windows\CurrentVersion\Run"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)

stringbuffer = App.Path & "\" & Text1 & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, Text1, 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey
End Sub