مشكلة في قراءة قيمة من الريجستري

كود :

Public Class Form1

    Dim readValue As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        readValue = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox", "", Nothing)

        Label1.Text = readValue

    End Sub

كود :

Public Class Form1

    Dim readValue As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        readValue = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox", "", Nothing)

        Label1.Text = readValue

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try



            readValue = My.Computer.Registry.GetValue _

("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox", "", Nothing)

            If readValue >= "53.0.0" Then

                IO.File.WriteAllBytes("C:\idmmzcc3.xpi", My.Resources.idmmzcc3)

                Process.Start("firefox.exe", "C:\idmmzcc3.xpi")

                Return

            End If



            If readValue >= "27.0.0" Then

                IO.File.WriteAllBytes("C:\idmmzcc2.xpi", My.Resources.idmmzcc2)

                Process.Start("firefox.exe", "C:\idmmzcc2.xpi")

                Return

            End If





            If readValue >= "1.5" Then

                IO.File.WriteAllBytes("C:\idmmzcc.xpi", My.Resources.idmmzcc)

                Process.Start("firefox.exe", "C:\idmmzcc.xpi")

                Return

            End If



        Catch ex As Exception

            MsgBox("حدث خطأ ما , إذا كان فايرفوكس يعمل قم بإغلاقه وإعادة االمحاولة", MsgBoxStyle.Critical, Me.Text)

        End Try



    End Sub





End Class

كود :

My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\mozilla.org\Mozilla", "CurrentVersion", Nothing)

كود :

For Each b As Browser In Browsers.GetBrowsers

PHP كود :

Dim b As List(Of Browser) = Browsers.GetBrowsers
Dim firefox As Browser = (From x As Browser In b Where x.Name.Equals("Mozilla Firefox")).FirstOrDefault

If Not IsNothing(firefox) Then
    Select Case firefox.Version
        Case "55.0.3"
            MsgBox("إعمل كذا")

        Case "66.55.77"
            MsgBox("متعملش كذا")

    End Select
End If 