الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

WMI CODE GENERATOR

مغلق
بدأه DreamNet في 26 أبريل 2007 · 19 رد · 2,460 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

في البداية أردت فقط طرح برنامج قديم أيام ال VB4ARAB كنت قد وضعته لمساعدتنا في التعامل مع دوال الWMI

أرجو أن يكون مفيد في هذا الجانب

البرنامج كامل بالكود سورس ويحتاج الى تطوير بمساهماتكم

بالتوفيق للجميع

WMIGenerator.zip

#2

جزاك الله خيراً و لكن ما هي الـ WMI ؟

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#4

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

يوفر WMI) Windows Management Instrumentation) وصولاً موحدًا إلى وظائف الإدارة للأنظمة المحلية وأنظمة الإدارة عن بعد. عن طريق إضافة وصول إلى سطر الأوامر لـ WMI, يمكن للمسؤولين الوصول مباشرةً إلى وظائف الإدارة هذه وإنشاء استعلامات مستندة إلى هذه البيانات. يمكنك مراقبة نظامي Windows Server 2003 وWindows XP سواءً كانا محليين أو بعيدين بشكل مباشر, لعرض النتائج عبر سطر الأوامر أو استعادة بيانات الإدارة بتنسيق XML والتي تمت معالجتها بواسطة تنسيقات إخراج XSL المضمنة أو المخصصة. يتبع WMI مواصفات نموذج المعلومات العام (CIM) المتوافق مع معايير الصناعة، وقد تم تعريف هذه المواصفات بواسطة فريق مهام الإدارة الموزعة (DMTF).

بالتوفيق ..............

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#6

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

Administrative Tools تعتمد على هذه القصه وانا كنت شغال في شركه سابقه ITSE ..

وانت يا زوماااا على طول كده مقديها دخول مختفي ....... الموضوع اتفقس :D .

بالتوفيق ...........

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#7

بوو عزت يا وحش الشاشة :D ما شاء الله عليك

spamxk4.gif

#8
اقتباس
يوفر WMI) Windows Management Instrumentation) وصولاً موحدًا إلى وظائف الإدارة للأنظمة المحلية وأنظمة الإدارة عن بعد. عن طريق إضافة وصول إلى سطر الأوامر لـ WMI, يمكن للمسؤولين الوصول مباشرةً إلى وظائف الإدارة هذه وإنشاء استعلامات مستندة إلى هذه البيانات. يمكنك مراقبة نظامي Windows Server 2003 وWindows XP سواءً كانا محليين أو بعيدين بشكل مباشر, لعرض النتائج عبر سطر الأوامر أو استعادة بيانات الإدارة بتنسيق XML والتي تمت معالجتها بواسطة تنسيقات إخراج XSL المضمنة أو المخصصة. يتبع WMI مواصفات نموذج المعلومات العام (CIM) المتوافق مع معايير الصناعة، وقد تم تعريف هذه المواصفات بواسطة فريق مهام الإدارة الموزعة (DMTF).

ايه يا عم احمد كلام الكتب ده انا مش هخلص من الدش كفاية الى علينا حرام عليك

كان ممكن تتلخص فى الوصول لبيانات محلية او بعيدة عن طريق الادارة لعرض النتائج واجراء عمليات النعالجة عليها وخلصنا يا عم

انا دخت لما قرات الى انت كاتبه اى واحد ربنا هيهديه عشان يدخل عالم البرمجة وشاف السطرين دوال ........!!!!!!!!!!!!!!!!

انا بهزر معاك ربنا يوفقك ويزود من الشركات الى بتشتغل فيها وبتعلمك الحاجات دى :lol:

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#9

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

في الحقيقة أخ حريف أنا معك أن الموضوع يتطلب التسهيل قدر المستطاع

لكن في هذا الجانب يمكن القول أن الأمور تختلف لان الكلمة تتطلب دروس كثيرة قبل البدء

لكن مايهمنا هنا هو الاستفادة من هذه التقنية التي ظهرت مع الويندوز 2000 واتاحت الكثير

بالنسبة لي لولا وجود هذه التقنية لكنت انتقلت الى لغة أخرى مثل الدلفي أو الC

الكثير من المبرمجين يبحثون عن حلول لمعرفة موارد النظام سواء الأرقام التسلسلية لمختلف الأجهزة أو غيرها

وعادة ماكان الحل في استخدام WMI واذا أردتم يمكننا عمل مقارنة هنا بين دوال الAPI والWMI لكي نرى مامدى أهمية استخدامهما

قوة الWMI تكمن في الوصول الى موارد النظام للأجهزة على الشبكة مما يتيح لنا آفاق أوسع في هذا المجال

أردت ادارج مثال بسيط لمعرفة الرامج المشغلة على الجهاز وايقاف تشغيل برنامج من البرامج

بالتوفيق للجميع

Process.zip

#10

الى الان لم افهم الفائدة من هذه التقنية بالضبط ممكن تتوسعوا بالشرح ونحصل على بعض الامثلة العملية , مشكورين .

spamxk4.gif

#11

أهلا بك أخي العزيز

نبدأ بتبسيط الأمور بوضع مقارنة بسيطة

في مجال معرفة البرامج المنفذة في الذاكرة

1-باستخدام الAPI

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
	dwSize As Long
	cntUsage As Long
	th32ProcessID As Long
	th32DefaultHeapID As Long
	th32ModuleID As Long
	cntThreads As Long
	th32ParentProcessID As Long
	pcPriClassBase As Long
	dwFlags As Long
	szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

نصرح بالدوال المتغيرات ثم نستخدم الطريقة التالية لاظهار البرامج المشغلة

[code] Dim hSnapShot As Long, uProcess As PROCESSENTRY32
	hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
	uProcess.dwSize = Len(uProcess)
	r = Process32First(hSnapShot, uProcess)
	Me.AutoRedraw = True
	Do While r
	   List1.AddItem Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
		r = Process32Next(hSnapShot, uProcess)
	Loop
	CloseHandle hSnapShot

طبعا باضافة ليست بوكس للمشروع

2- باستعمال الWMI

 On Error Resume Next
	 List1.Clear
	 Set objWMIService = GetObject("winmgmts:\\")
	 Set colItems = objWMIService.InstancesOf("Win32_Process")
	 For Each objItem In colItems
			 List2.AddItem objItem.Name

	 Next

في الأخير سؤال:

كيف يمكنني معرفة البرامج المشغلة على جهاز معي على الشبكة؟

يمكن عمل ذلك باستعمال الwmi بكتابة اسم الكمبيوتر في بعد winmgmts:\\

يمكننا أيضا طرح العديد من التساؤلات خاصة في مجال موارد النظام ومعرفة الأرقام التسلسية للقطع الموجودة بالجهاز ...الخ

يمكننا توسيع النقاش اذا أردت حول أهمية التعرف على هذه التقنية خاصة وان microsoft قد دعمت هذه التقنية بتخصيص فضاء أسماء لها

في ال.NET

#12

موضوع مهم لازم كلنا نشارك فيه لان انا مكنتش عارف حاجه عنه

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#13

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

في الحقيقة ربما قد ندهش من الامكانيات التي تتيحها لنا الwmi خاصة ونحن نعلم محدودية الvb6 في التعامل مع موارد النظام والأجهزة

باللنسبة للكثير فهذه التقنية فتحت الباب خاصة لمبرمجي الوب لكي يستعملو سكريبتات سهلة تتيح لهم استغلال ومعرفة معلومات على الأجهزة داخل النظام

لانه لم يكن متاح لهم استعمال دوال الapi

لقد رأيت الكثير من الأمثلة في هذا المجال وربما وصلت الى اقتناع أن أي شئ يخص قطع الجهاز يمكننا معرفة معلومات عنه في هذا المجال

قد لا يعلم البعض أننا يمكننا تنفيذ برنامج في جهاز موجود على الشبكة كما نستطيع اعادة تشغيله او ايقافه دون استعمال أي برنامج في الجهة المقابلة

على العموم أردت ارفاق مثال ثاني يتحدث عن الخدمات الموجودة على الجهاز وكيفية التحكم بها

بالتوفيق للجميع

Services.zip

#14

هل برامج قواهي الانترنت تعتمد على هذه التقنية ؟

spamxk4.gif

#15

فعلاً تقنية رهيبة و اتضح ذلك فعلاً في المقارنة بينها و بين الـ API

جزاك الله خيراً أخي DreamNet .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#16

هى طبعا كويسة بس لما يبقى ممكن عمل الشئ بالـ APIs يبقى افضل علشان السرعة.

#17

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

في البداية أردت فقط أن أوضح انا لست بصدد المقارنة بين الapi والwmi لان الwmi هي عبارة عن دوال apiكذلك

لكن فقط يجدر الذكر اننا بحاجة للتليمح لها لانه هناك عدة عوائق ولا أظن أن دوال الapi تكفي المبرمج للمضي قدما

أما بالنسبة للسرعة فهي نسبية لان الفارق سيكون أجزاء من الألف من الثانية بالطبع للAPI

أخيرا

التطرق لهذه التقنية وتعلمها هو حتمية أكيدة لأي مبرمج

أتذكر يوما أننا كنا نريد عمل برنامج يقوم بجعل مجلد مشارك (sharing folder ) على win98 ورغم وجود دالة api تقوم بذلك الا أنها لم تعمل على نظام 98 وفي الأخير وجدنا ضالتنا في الwmi

المهم مانريد مناقشته هنا يهدف الى ضرورة تعلم هذه التقنية فقط وليس عمل مقارنة

أي كي لانحتاج الى عمل مكتبة خارجية تقوم ببعض اللعمليات الممكن برمجتها بسهولة

بالتوفيق دائما للجميع

#18

أخالفك الرأى و لكن لن أحول الموضوع الى مجادلة حول الفروق لأن ده مش الهدف منه.

شكرا.

#19

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

أكيد أخي العزيز , فأنا لست مختص في هذا المجال

على العموم ربما يفيدنا الخبراء هنا في هذا المجال

وان شاء الله يكون البرنامج مفيد للذين يلقون أول نظرة لهم على هذه التقنية

بالتوفيق دائما للجميع

#20

أهلا بيك أخي العزيز DreamNet

مشكور على البرنامج

بس ولاحد اتكلم عنو

أنا كمان مش راح اتكلم عنو بس حبيتك تكمل دروسك في الديركت بلاي خاصة المتعلقة بالشات الصوتي

هذا الموضوع مغلق.

مواضيع مشابهة