[dasktop]

مرحبا



كتبت كود لاضافة البرنامج في Startup




ويعمل عند تشغيل النظام

ولم يعمل ماهي المشكلة 

كود :

  Dim Reg As Object
       Reg = CreateObject("Wscript.shell")
       Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & Application.ProductName, Application.ExecutablePath)

[معاند الحظ]

اذا كنت متاكد انك كتبت الكود الصحيح وبشكل صحيح 
فهذا ممكن يكون بسبب انك تستخدم نظام تشغيل اصدار 64 بت 
فاذا كان هذا صحيح فانت تحتاج فقط الى تعديل الكود ليكون كالتالي:

كود :

  Dim regPerm1 As RegistryPermission

        Dim pRegKey As RegistryKey = Registry.LocalMachine

        regPerm1 = New RegistryPermission(RegistryPermissionAccess.AllAccess, "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run")

        regPerm1.SetPathList(RegistryPermissionAccess.AllAccess, "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run")



        Dim regKey As Microsoft.Win32.RegistryKey
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run", True)
        'regKey.SetAccessControl(rs)

        regKey.SetValue(My.Application.Info.ProductName, Application.ExecutablePath)
        regKey.Close()