سلام دوستان.
من یه برنامه ی نوشته شده دارم که دیوایس منیجر رو شبیه سازی کرده، از شما میخوام اگه کسی بلده یه توضیحی در رابطه با اون بده.
دوستان اگه می دونین خواهشا دریغ نکنین چون بدجور نیاز دارم.
ممنون.
سورس برنامه رو هم پیوست میکنم.
سلام دوستان.
من یه برنامه ی نوشته شده دارم که دیوایس منیجر رو شبیه سازی کرده، از شما میخوام اگه کسی بلده یه توضیحی در رابطه با اون بده.
دوستان اگه می دونین خواهشا دریغ نکنین چون بدجور نیاز دارم.
ممنون.
سورس برنامه رو هم پیوست میکنم.
آقا چرا کسی جواب نمیده؟
یعنی از این 6نفر یکی هم نمی دونه؟
کار زیاد پیچیده ای انجام نمیدهد
به وسیله چند تا تابع مشخات سیستم رو در میاره.
آخرین ویرایش به وسیله Mbt925 : چهارشنبه 25 شهریور 1388 در 13:03 عصر
Set objWshNet = CreateObject("Wscript.Network")set چیه و دو کد بالا چه کاری انجام میدن؟Set objDeviceSet = objService.InstancesOf(strWBEMClass)
علت اینکه یک واحد اضافه میکنیم چیه؟eilute = eilute + 1
دوست عزیز جواب سوال های شما به شرح زیر می باشد :
Set objWshNet = CreateObject("Wscript.Network")
برای ساختن یک آبجکت از نوع Wscript.Network . این کار کاری شبیه به اضافه کردن Reference می باشد . برنامه نویس از طریق این آبجکت نام کامیوتری که برنامه روش هست رو دریافت کرده . این نوع کد نویسی بیشتر در زبان Vbscript مورد استفاده قرار می گیره .
Set objDeviceSet = objService.InstancesOf(strWBEMClass)
دوست عزیز در خط بالا strWBEMClass اسم کلاس آبجکتی هست که شما می خواهید زیر مجموع یا Child هاشو پیدا کنید . خط بالا میاد و objDeviceSet رو ُSet می کنه با نوعی سرویس از اون کلاس تا بتونه زیر مموعه های اون نوع Device رو پیدا کنه .
eilute = eilute + 1تا اینجایی که من متوجه شدم این قسمت عددی هست منحصر بفرد برای هر کدام از کلاس های Device ها هست .
باتشکر احسان
ممکنه بگین من چه کتابی رو مطالعه کنم که بتونم به طور کامل اینا رو یاد بگیرم؟منظورم کدوم قسمت؟
خوب اخه بلد نیستم ولی زیاد زیاد هم گیر ندادم ها!دوست عزیز برنامه ای که شما دادین از طریق VB Script کارهاشو انجام داده . اگر می خواین خوب یاد بگیرین به Reference های VB Script مراجعه کنید . در ضمن می خواستم بدونم چرا رویه این یه قسمت گیر دادین ؟
برید در سایت MSDN و درباره WMI تحقیق کنید.ممکنه بگین من چه کتابی رو مطالعه کنم که بتونم به طور کامل اینا رو یاد بگیرم؟منظورم کدوم قسمت؟
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
دوست عزیز میدونم منظورتون چنین چیزی نبود.
یه سوال دیگه از دوستان داشتم.
وقتی تو vb فارسی مینویسم فونت رو نمیشناسه، فونت انتخابی هم tahoma هست.
لطفا راهنماییم کنین.
ممنون.
حد اقل 3 بار تو 10 صفحه آخر انجمن در این مورد بحث شده ! جستجو کنید .وقتی تو vb فارسی مینویسم فونت رو نمیشناسه، فونت انتخابی هم tahoma هست.
لطفا راهنماییم کنین.