تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج تعديل بسيط على الكود
#1
السلام عليكم ورحمة الله

هذا كود يطلع لي البرامج المنزله في الكمبيوتر
 Control Panel  Programs and Features

كود :
       Dim wqlQuery As New WqlObjectQuery("SELECT * FROM Win32_Product")
           Dim searcher As New ManagementObjectSearcher(wqlQuery)
           For Each row As ManagementObject In searcher.Get()
               Dim name As Object = row("Name")
               Dim version As Object = row("Version")
               Console.WriteLine("Name: " & name & " - Version: " & version)


               If "TeamViewer" = " & name & " Then
                   MsgBox("ok")
               Else
                   MsgBox("no")

               End If

           Next row


محتاج اعمل بحث للبرامج واذا طلع البرنامج المذكور في اللسته يقولي اوك موجود

كود :
               If "TeamViewer" = " & name & " Then
                   MsgBox("ok")
               Else
                   MsgBox("no")

               End If


بارك الله فيكم وشكرا
الرد
تم الشكر بواسطة:
#2
فى البداية الكود يستخدم كالتالى
كود :
       Dim wqlQuery As New WqlObjectQuery("SELECT * FROM Win32_Product")
       Dim searcher As New ManagementObjectSearcher(wqlQuery)
       For Each row As ManagementObject In searcher.Get()
           MsgBox("Name: " & row("Name") & vbNewLine & "Version: " & row("Version"))
           If row("Name") = "اسم البرنامج كما يظهر فى الرسالة" Then
               MsgBox("ok")
           Else
               MsgBox("no")
           End If
       Next row

حيث ان جملة التالية تعنى اسم البرنامج
PHP كود :
row("Name"

حيث ان جملة التالية تعنى اصدار البرنامج
PHP كود :
row("Version"

وبما انك تريد عمل كود التاكد من الاسم فكل ما عليك استخدام الشرط بهذا الطريقة
كود :
           If row("Name") = "اسم البرنامج كما يظهر فى الرسالة" Then
               MsgBox("ok")
           Else
               MsgBox("no")
           End If

تذكر حتى يعمل الكود فى اى مشروع تقوم انشائه جديد
يجب ان تقوم باستدعاء المكتبة الخاصة بـ WqlObjectQuery

حتى يعمل الكود دون اى مشكلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , Amir_alzubidy
#3
(16-08-18, 12:28 AM)elgokr كتب : فى البداية الكود يستخدم كالتالى
كود :
       Dim wqlQuery As New WqlObjectQuery("SELECT * FROM Win32_Product")
       Dim searcher As New ManagementObjectSearcher(wqlQuery)
       For Each row As ManagementObject In searcher.Get()
           MsgBox("Name: " & row("Name") & vbNewLine & "Version: " & row("Version"))
           If row("Name") = "اسم البرنامج كما يظهر فى الرسالة" Then
               MsgBox("ok")
           Else
               MsgBox("no")
           End If
       Next row

حيث ان جملة التالية تعنى اسم البرنامج
PHP كود :
row("Name"

حيث ان جملة التالية تعنى اصدار البرنامج
PHP كود :
row("Version"

وبما انك تريد عمل كود التاكد من الاسم فكل ما عليك استخدام الشرط بهذا الطريقة
كود :
           If row("Name") = "اسم البرنامج كما يظهر فى الرسالة" Then
               MsgBox("ok")
           Else
               MsgBox("no")
           End If

تذكر حتى يعمل الكود فى اى مشروع تقوم انشائه جديد
يجب ان تقوم باستدعاء المكتبة الخاصة بـ WqlObjectQuery

حتى يعمل الكود دون اى مشكلة

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



كود :
           Dim wqlQuery As New WqlObjectQuery("SELECT * FROM Win32_Product")
           Dim searcher As New ManagementObjectSearcher(wqlQuery)
           For Each row As ManagementObject In searcher.Get()

               If row("Name") = "BKLog" Then
                   MsgBox("ok")
               Else
                   MsgBox("no")
               End If
           Next row


احسنت الكود شغال تمام الحمدالله

بس 
يطلع الشرط MsgBox("no  على كل البرامج ويوم يوصل الى البرنامج المطلوب يعطيني  MsgBox("ok
ومن ثم يستمر بالشرط MsgBox("no لغاية ما ينهي عرض البرامج كلهم


انا كنت محتاج الكود يقوم بالبحث واذا حصل البرنامج يقولي اوك واذا ما حصله يقول no 


اتمنى اكون وصلت الفكره بشكل جيد 

وشكرا على وقتك 
الرد
تم الشكر بواسطة: Amir_alzubidy
#4
طبيعي سيظهر لانه يقوم باختبار الاسم مع كل الاسماء الموجودة

لديك طريقة من اثنين
اما ان تقوم بحذف التالى اذا كنت لا تريد ظهور 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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: dubai.eig , Amir_alzubidy
#5
(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

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

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

جزاك الله خير

الحمدالله والشكر
Rolleyes
الرد
تم الشكر بواسطة: elgokr , Amir_alzubidy
#6
الحمد لله والشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig , Amir_alzubidy , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 3 104 13-10-18, 01:43 AM
آخر رد: ابراهيم ايبو
  [سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل ScreamVoice 13 252 11-10-18, 05:43 PM
آخر رد: ScreamVoice
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 76 11-10-18, 03:30 PM
آخر رد: Simo1991
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 197 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 184 06-10-18, 02:07 AM
آخر رد: ابو روضة
  تعديل كود بحث بسيط dasktop 5 116 05-10-18, 12:43 AM
آخر رد: elgokr
Photo تطوير بسيط للكود dasktop 3 54 05-10-18, 12:29 AM
آخر رد: elgokr
  ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة Hazem1 26 455 04-10-18, 09:47 PM
آخر رد: princelovelorn
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 119 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  محتاج استفسار بخصوص اداة WebBrowser Mohamed Magdy 11 259 02-10-18, 12:38 AM
آخر رد: Mohamed Magdy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم