[dubai.eig]

(16-08-18, 02:15 AM)elgokr كتب :

طبيعي سيظهر لانه يقوم باختبار الاسم مع كل الاسماء الموجودة

لديك طريقة من اثنين

اما ان تقوم بحذف التالى اذا كنت لا تريد ظهور No

كود :

Else
               MsgBox("no")

اما ان تقوم باستخدام الكود بهذا الشكل

كود :

       Dim wqlQuery As New WqlObjectQuery("SELECT * FROM Win32_Product")
       Dim searcher As New ManagementObjectSearcher(wqlQuery)
       Dim ii As Integer = 0
       For Each row As ManagementObject In searcher.Get()
           If row("Name") = "BKLog" Then
               ii += 1
           End If
       Next row
       If ii <> 0 Then
           MsgBox("yes")
       Else
           MsgBox("no")
       End If

تحياتى لك

وتمنياتى لك التوفيق

تسلم ايدك فعا هذا المطلوب

جزاك الله خير

الحمدالله والشكر