تقييم الموضوع :
  • 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] تعديل بسيط في كود بحث trakktour 1 14 منذ 38 دقيقة مضت
آخر رد: elgokr
  [VB.NET] تعديل بسيط في الكود :) مجهول 5 139 منذ 2 ساعة مضت
آخر رد: elgokr
  محتاج مساعدة فى حظر لينك معين من الويب بروزر Mohamed Magdy 0 7 منذ 2 ساعة مضت
آخر رد: Mohamed Magdy
  مطلوب كود بسيط تحويل القريد فيو في الوورد نور الهدى الهدى 5 86 منذ 2 ساعة مضت
آخر رد: حريف برمجة
Sad محتاج برنامج تشفير قوى Mohamed Magdy 4 128 15-12-18, 03:40 PM
آخر رد: Mohamed Magdy
Sad محتاج كود فى اداة ال vlc Mohamed Magdy 1 57 13-12-18, 10:54 AM
آخر رد: Mohamed Magdy
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 76 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  خطأ بسيط لا اعلم مغزاه ابو روضة 6 195 03-12-18, 02:32 AM
آخر رد: ابو روضة
Photo اين الخطأ في الكود لو سمحتم samira20 6 137 01-12-18, 01:55 PM
آخر رد: asemshahen5
  محتاج كود يا شباب يبحث عن سطر او كلمة دخل الاسطضافة Mohamed Magdy 5 112 01-12-18, 12:26 PM
آخر رد: asemshahen5

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


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