الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضافة مفتاح من نوع Dword

بدأه khaled323232 في 22 مارس 2009 · 7 رد · 665 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

من فضلكم اريد اضافة مفتاح من نوع

DWORD

مسار الريجستري

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{00000566-0000-0010-8000-00AA006D2EA4}

"Compatibility Flags"=dword:00000400

ويكون اسم المفتاح

Compatibility Flags

وتكون قيمته 400

الله لا يحرمنا من كرمكم

تم تعديل هذه المشاركة بواسطة khaled323232 في 22 مارس 2009 في 18:23

#2

اتفضل

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveXCompatibility\ {13709620-C279-11CE-A49E-444553540000}
", "Compatibility Flags", 400, Microsoft.Win32.RegistryValueKind.DWord)

BlackHoleOrgcopy.jpg
#3
Tottino كتب:
اتفضل

My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveXCompatibility\ {13709620-C279-11CE-A49E-444553540000}
 ", "Compatibility Flags", 400, Microsoft.Win32.RegistryValueKind.DWord)

اخي للاسف لم يعمل الكود يظهر لي في الفورم باللون الاحمر

a-0b0a8bba64.gif

تم تعديل هذه المشاركة بواسطة khaled323232 في 22 مارس 2009 في 18:42

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

الأخ الفاضل .. هذا قسم الـ Visual Basic 6

اما الاخ السائل .. يرجى رفع مثال للتعديل عليه

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#5

mrx_ta7adyاهلا بك اخي

اسعدني وجودك

سؤالي هو اضافة مفتاح من نوع

Dword

#6

الاخوان ليس شرطاً هذا المسار ولكن هذا للتوضيح فقط

اريد فقط كيفيه اضافة مفتاح من نوع

dword

#7

وما الفرق في إدخال مفتاح من نوع Dword أو من نوع String؟

الفرق الوحيد هو أنك بدل أن تكتب أن نوع القيمة هو REG_SZ تكتب REG_DWORD طبعاً بعد تعريف الثوابت.

إليك مثالاً:

Public Sub Show_Explorer(Visibility As Boolean)

Dim KeyHwnd As Long
Dim StrValue As String

If Visibility = True Then
	StrValue = "00000000"
Else
	StrValue = "00000001"
End If

Call RegOpenKeyEx(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies\explorer", 0, KEY_SET_VALUE, KeyHwnd)
Call RegSetValueEx(KeyHwnd, "NoDeskTop", 0, REG_DWORD, ByVal StrValue, Len(StrValue))
Call RegCloseKey(KeyHwnd)

End Sub

وهو يظهر الإكسبلورر أو يظهره، بصراحة أنا كتبته منذ زمن طويل، لذلك لا أذكر إن كان يعمل أم لا، لكنه يعمل بإذن الله :)

هذه الجملة خاطئة  :wacko: 


#8

بارك الله فيك 

مواضيع مشابهة