بسم الله الرحمن الرحيم
بمناسبة انتقالي من الفيجول بيزك 6 الى الدوت نت
حبيت اكتب اول موضوع لي في المنتدى (الذي قدم لي الكثير)
الموضوع بحثت عنه في المنتدى ولم اجد شيء عنه وعندما
وعندما نجحت في كتابة قيم واستيرادها من الريجستري من انوع الثنائي binary
حبيت اكتبها للجميع و للفائدة العامة
في شرحي لكتابة قيمة ثنائية او استيرادها سنعدل القيمة الموجودة في الريجستري
المسؤولة عن اخفاء او ظهور ايقونة المستخدم في اعلى قائمة ابدء وهي من النوع الثنائي
تسجيل قيمة في الريجستري لاخفاء الايقونة
My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-606747145-1580436667-839522115-1003\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoUserNameInStartMenu", New Byte() {1, 0, 0, 0}, Microsoft.Win32.RegistryValueKind.Binary)تسجيل قيمة في الريجستري لاظهار الايقونة
My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-606747145-1580436667-839522115-1003\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoUserNameInStartMenu", New Byte() {0, 0, 0, 0}, Microsoft.Win32.RegistryValueKind.Binary)قراءة القيمة من الريجستري وتخزينها في مصفوفة
Dim a() As Byte = My.Computer.Registry.GetValue("HKEY_USERS\S-1-5-21-606747145-1580436667-839522115-1003\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoUserNameInStartMenu", New Byte() {0, 0, 0, 0})ملاحظة يتطلب كل من الاظهار والاخفاء اعادة تشغيل الكمبيوتر
