منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود ايقاف ال User Account Control - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كود ايقاف ال User Account Control (/showthread.php?tid=13054)

كود ايقاف ال User Account Control - mohamed haroon - 27-08-15

السلام عليكم

فى كثير من المشاريع نحتاج الغاء ظهور النافزة التى تطلب الازن بتشغيل البرنامج 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