[Mohamad Anan]

(11-07-20, 04:34 PM)Jounior_P كتب : من الواضح انها مشكلة صلاحيات

طبعا اخي الخطأ واضح و أنا بمشاركتي السابقة كنت اتحدث عن معالجة الخطأ
لا أعلم اذا كان كود اعطاء صلاحيات للمستخدم الحالي يعمل لأني اسجل دخول كمدير ِAdministrator
أي اني لم أختبر الكود و لا يمكنني اختباره حاليا

كود :

mports System.Security.AccessControl
Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim UserName As String = SystemInformation.UserName
       Dim RS As New RegistrySecurity()
       RS.AddAccessRule(New RegistryAccessRule(UserName, RegistryRights.CreateSubKey Or RegistryRights.Delete Or RegistryRights.ExecuteKey Or RegistryRights.FullControl Or RegistryRights.ReadKey Or RegistryRights.SetValue Or RegistryRights.WriteKey, AccessControlType.Allow))
   End Sub
End Class

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