[سعود الشامان]

نعم ابو نوره أقصد قيمة إصدار الفايرفوكس ( firefox.Version )

في السابق كان يتم جلبها من الريجستري

من هذا المسار

HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\mozilla.org\Mozilla


وهذا إسم القيمة CurrentVersion

سؤوالي الفضولي هو من أين بالضبط تم جلب القيمة الآن ؟


وأشكرك على إعطائي الكثير من وقتك جزاك الله عنا خير الجزاء

[أبو نوره]

مرحبا اخى

في المشروع يوجد كلاس اسمه Browsers فيه الاكواد اخذتها من الرابط الموجود في اعلى الكلاس
فقط انا قمت بتحويل الكود للفجوال بيسيك

---

بعد النظر في الكود
هذا تعديل للكود الذي يقرا من الريجيستري فهو يقرا على اساس نظام 64بت فاذا لم يجد شيئا حاول القراءه على اساس نظام 32بت
الفرق بينهم وجود المفتاح WOW6432Node لنظام 64بت
لعل هذا ما تريده اختصارا

PHP كود :

Dim version = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\mozilla.org\Mozilla", "CurrentVersion", Nothing)
If IsNothing(version) Then
    version = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\mozilla.org\Mozilla", "CurrentVersion", Nothing)
End If
MsgBox(version) 


[سعود الشامان]

كبيرررر يا ابو نوره

بالفعل هذا ما اريد الوصول إليه

الآن عرفت مسار برامج الـ 64 بت و 32 بت في الريجستري

 أشكرك مرة أخرى

[mbk2006]

طيب طريقة التعديل او اضافه قيمه في نظام   لانني في حاله التعديل يخرج رساله بانه لا يمكن التعديل او لا يمكن الوصول 64bit


'My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\WOW6432Node\Internet Download Manager", "Email", "’mahmoud@.com")

[سعود الشامان]

(12-10-17, 01:54 AM)mbk2006 كتب : طيب طريقة التعديل او اضافه قيمه في نظام   لانني في حاله التعديل يخرج رساله بانه لا يمكن التعديل او لا يمكن الوصول 64bit


'My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\WOW6432Node\Internet Download Manager", "Email", "’mahmoud@.com")

أهلا أخي


أولاً قم بالتاكد بأنك داخل من حساب الأدمن

ثانياً قم بتشغيل الفيجوال بيسك كمسئول

ثالثاً اجعل برنامج يعمل كمسئول

شوف المشاركة رقم 2

http://vb4arb.com/vb/showthread.php?tid=...6#pid15926