[أبو نوره]

مرحبا اخى

في المشروع يوجد كلاس اسمه 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)