منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ (/showthread.php?tid=23100)



اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - DanyGhost2010 - 28-12-17

السلام لكم
اريد كود لمعرفة نوع النظام ...
مثال :
Lable1.text = "Windows XP SP3"
Lable1.text = "Windows XP SP2"
Lable1.text = "Windows 7"


RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - طالب برمجة - 28-12-17

لمعرفة اسم نظام التشغيل
PHP كود :
MsgBox(My.Computer.Info.OSFullName

وكل المعلومات تجدها تحت My.Computer.Info.OSxxxxx


RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - silverlight - 28-12-17

يمكنك استخدام My.Computer.Info
وتختار واخدة من Property التالية تقريبا

OSPlatform
OSVersion
OSFullName


RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - DanyGhost2010 - 28-12-17

شكراً لكم اخوتي طالب برمجة و sliverlight

Label1.Text = My.Computer.Info.OSFullName
بيتكتب لي Microsoft Windows XP

بس ما كتبش Service Pack كام ... يريت لو تعرف كود يكتب لي XP SP3 مثلاً



RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - silverlight - 28-12-17

خاول يالشكل التالي
مش متذكر هل سينج الكود أم لا
PHP كود :
Dim s As String My.Computer.Info.OSFullName
        s 
+= " "
 
       s += My.Computer.Info.OSVersion 



RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - طالب برمجة - 28-12-17

كود بديل عن السابق يعرض أيضا Service Pack إن وجد

أضف المكتبة System.Management.dll الى الرفرينسس References

PHP كود :
Dim OS = New Management.ManagementObjectSearcher("root\cimv2""SELECT * FROM Win32_OperatingSystem").Get(0)
Dim OSFullName OS.Properties("Caption").Value
Dim OSServicePack 
OS.Properties("ServicePackMajorVersion").Value
Dim OSTitle 
As String OSFullName & If(OSServicePack 0" Service Pack " OSServicePackString.Empty)

MsgBox(OSTitle



RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - DanyGhost2010 - 28-12-17

أنا جديد في البرمجة ومعرفش اعمل
أضف المكتبة System.Management.dll الى الرفرينسس References
ممكن تفهمني يعني ايه ؟


RE: اريد كود لمعرفة نوع النظام المثبت علي الجهاز اذا كان XP or 7 or 8 ؟ - عبد العزيز البسكري - 28-12-17

(28-12-17, 08:20 PM)DanyGhost2010 كتب : أنا جديد في البرمجة ومعرفش اعمل
أضف المكتبة System.Management.dll الى الرفرينسس References
ممكن تفهمني يعني ايه ؟