تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 92 منذ 10 ساعة مضت
آخر رد: elgokr
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 185 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  [كود] احتاج كود بسيط لتشفير ملف exe dametucorazon 6 255 30-01-19, 11:14 AM
آخر رد: dametucorazon
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 239 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  طلب تعديل كود استعلام new_programer 2 98 25-01-19, 11:44 PM
آخر رد: حريف برمجة
  تعديل مثال العملاء الغير مسددين القسط new_programer 7 301 25-01-19, 08:40 PM
آخر رد: new_programer
  [سؤال] طلب شروحات او دروس تعليمية لتصميم مشروع بسيط جدا للمبتدئين hyboss 1 94 21-01-19, 03:31 PM
آخر رد: elgokr
  محتاج مساعدة فى استعداة السورس كود لى برنامجي Mohamed Magdy 1 116 19-01-19, 03:03 AM
آخر رد: sendbad100
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 333 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 170 17-01-19, 09:50 AM
آخر رد: dubai.eig

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


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