تبلیغات در اینترنتclose
کدهای و ترفند های مفید برنامه نویسی - پاسخ 15
::: در حال بارگیری لطفا صبر کنید :::

نام کاربری :   پسورد :



تابلو اعلانات

◘ نتایج مسابقات انتخاب مدیر برای انجمن ویدئو لرن ◘


karim_orooji آفلاین



ارسال‌ها: 345
عضویت: 31 /4 /1393
تشکر ها: 203
تشکر شده: 440
کدهای و ترفند های مفید برنامه نویسی
RE : 15
سلام به همگی
این کد هم بهتون کمک میکنه تا متوجه بشید که هارد سیستمتون از چه نوعیه .
ثابت یا قابل حمل .



کد:
Dim HDD_Type As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Type = String.Empty Then HDD_Type = obj.Properties("MediaType").Value.ToString
End If
Next
MsgBox(HDD_Type, MsgBoxStyle.Information, "Hard Disk Type")



منبع : برنامه نویس
پنجشنبه 09 مهر 1394 - 16:07
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش
1 کاربر از karim_orooji به خاطر این مطلب مفید تشکر کرده اند : admin ,


تازه سازي پاسخ ها

تاپیک های مرتبط
موضوع تاریخ تعداد پاسخ آخرین ارسال بازدید
[Post_Title] [Post_Date] [Post_Answer] [Post_Last_User] [Post_Hit]
پرش :
صفحه اصلی | انجمن | ورود | عضویت | خوراک | نقشه | تماس با ما | طراح