[ابو ليلى]

افضل الحلول دائما هي فحص مسجل النظام
و تحديدا هذا المسار   HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer\CurrentVersion

استورد المجال

PHP كود :

Imports Microsoft.Win32 


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

PHP كود :

   Private Function GetFlashPlayerVersion() As System.Nullable(Of Integer)
        Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Macromedia\FlashPlayer")
            If rk IsNot Nothing Then
                Dim version As String = TryCast(rk.GetValue("CurrentVersion"), String)
                If String.IsNullOrEmpty(version) = False Then
                    Dim idx As Integer = version.IndexOf(",")
                    If idx > 0 Then
                        Dim value As Integer
                        If Integer.TryParse(version.Substring(0, idx), value) = True Then
                            Return value
                        End If
                    End If
                End If
            End If
        End Using
        Return Nothing
    End Function 


و يمكنك استخدام الدالة من اي مكان و فرض الشروط لديك كما تريد

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim flashVersion As System.Nullable(Of Integer) = GetFlashPlayerVersion()
        If flashVersion.HasValue = True AndAlso flashVersion > 7 Then
            MessageBox.Show(flashVersion)
            'اكتب الكود المناسب لك
        End If

    End Sub