منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف يتم فحص جهاز العميل لمعرفة هل مشغل الفلاش منصب عليه أم لا ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يتم فحص جهاز العميل لمعرفة هل مشغل الفلاش منصب عليه أم لا ؟ (/showthread.php?tid=16922)



كيف يتم فحص جهاز العميل لمعرفة هل مشغل الفلاش منصب عليه أم لا ؟ - السندبااد - 22-08-16

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

ما هي أضمن طريقة لفحص مشغل الفلاش على جهاز العميل
فإن كان مشغل الفلاش غير منصب على جهازه يقوم برنامجي بتنصيبه
(طبعاً سأرفق نسخة من مشغل الفلاش بجانب برنامجي)
؟!؟!؟

شكراً لكم
Smile



RE: كيف يتم فحص جهاز العميل لمعرفة هل مشغل الفلاش منصب عليه أم لا ؟ - ابو ليلى - 22-08-16

افضل الحلول دائما هي فحص مسجل النظام
و تحديدا هذا المسار   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(0idx), 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 ObjectAs EventArgsHandles 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 




 


RE: كيف يتم فحص جهاز العميل لمعرفة هل مشغل الفلاش منصب عليه أم لا ؟ - السندبااد - 22-08-16

شكراً لك أخ أبو ليلى على ردك الشافي
طريقة جيدة وتفي بالغرض وسأضيف لها التأكد من مسار مشغل الفلاش فإن كان غير موجوداً قمت بتنصيبه عن طريق برنامجي خشية أن يكون مشغل الفلاش بالجهاز عبارة عن نسخة محمولة وبالتالي لن يتم إضافة أي قيمة للريجستري
أكرر شكري لك
Smile