منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا

كتبت كود لاضافة البرنامج في 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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dasktop

معاند الحظ