start - نسخة قابلة للطباعة

كود :

  Dim Reg As Object

        Reg = CreateObject("Wscript.shell")

        Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & Application.ProductName, Application.ExecutablePath)

كود :

  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()