تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود ايقاف ال User Account Control
#1
السلام عليكم

فى كثير من المشاريع نحتاج الغاء ظهور النافزة التى تطلب الازن بتشغيل البرنامج as administrator

اليوم احضرت لكم هذا الكود بعد البحث المطول على وجدت طريقة من خلال الرجسترى

و اليكم كود الالغاء

كود :
Dim key As Microsoft.Win32.RegistryKey
       key = Microsoft.Win32.Registry.LocalMachine
       key = key.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
       key.SetValue("ConsentPromptBehaviorAdmin", "0", Microsoft.Win32.RegistryValueKind.DWord) 'Enable 5


       Dim key2 As Microsoft.Win32.RegistryKey
       key2 = Microsoft.Win32.Registry.LocalMachine
       key2 = key2.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
       key2.SetValue("PromptOnSecureDesktop", "0", Microsoft.Win32.RegistryValueKind.DWord) 'Enable 1

     
       MsgBox("done")


كود اعادة النافذة 

كود :
Dim key As Microsoft.Win32.RegistryKey
       key = Microsoft.Win32.Registry.LocalMachine
       key = key.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
       key.SetValue("ConsentPromptBehaviorAdmin", "5", Microsoft.Win32.RegistryValueKind.DWord) 'Enable 5


       Dim key2 As Microsoft.Win32.RegistryKey
       key2 = Microsoft.Win32.Registry.LocalMachine
       key2 = key2.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
       key2.SetValue("PromptOnSecureDesktop", "1", Microsoft.Win32.RegistryValueKind.DWord) 'Enable 1


       MsgBox("done")


اتمنى ان اكون قد افدتكم  Smile
الرد }}}}
تم الشكر بواسطة: ابو ليلى


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Use your Gmail account for sending e-mail message أبو عمر 2 392 02-10-15, 12:49 AM
آخر رد: أبو عمر
Thumbs Up For New user like me "Transparant Label control" أبو عمر 0 299 15-09-15, 05:03 PM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم