منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : System type
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف يمكن جلب Windows System type
اذا كان 64 او 86
لم أفهمك جيدا هل تقصد نوع التشغيل كيف تتحكم به .. فهذا هو موضوع جديد ..
اضـــــغـــط هنــــا
shado1796 كتب :لم أفهمك جيدا هل تقصد نوع التشغيل كيف تتحكم به .. فهذا هو موضوع جديد ..
اضـــــغـــط هنــــا
لا اقصد يظهر نوع النوه اذا كانت 64 او 86 فى Label
السلام عليكم ورحمة الله وبركاته

طريقة الريجستري :
كود :
Public Shared Function GenerateArchitecture()
        If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then : Return "32"
        Else
Return "64"
End If
End Function

وهذه طريقة أخرى موجودة في إصدارة vb.net 2010 (في اصدارة vb.net 2008 غير موجودة) :

كود :
[align=right][b][FONT=Consolas]Environment.Is64BitOperatingSystem[/FONT][/b]
[/align]

إذا رجع الكود أعلاه بـ True فنظام التشغيل من نوع 64 وإلا 32 .
****
***
**
*
kslawy كتب :السلام عليكم ورحمة الله وبركاته

طريقة الريجستري :
كود :
Public Shared Function GenerateArchitecture()
        If Registry.LocalMachine.OpenSubKey("Hardware\Description\System\CentralProcessor\0").GetValue("Identifier").ToString.Contains("x86") Then : Return "32"
        Else
Return "64"
End If
End Function

وهذه طريقة أخرى موجودة في إصدارة vb.net 2010 (في اصدارة vb.net 2008 غير موجودة) :

كود :
[align=right][b][FONT=Consolas]Environment.Is64BitOperatingSystem[/FONT][/b]
[/align]

إذا رجع الكود أعلاه بـ True فنظام التشغيل من نوع 64 وإلا 32 .
****
***
**
*

جزاك الله خير لاكن لا توجد تريقه لى كتابه نوع النوف فى لابل ؟
بطريقة الرجستري :

كود :
[align=right][color=#3E3E3E]Label1.Text =[/color][/align][color=#3E3E3E][align=right][COLOR=#3E3E3E][COLOR=#3E3E3E]GenerateArchitecture()[/color][/COLOR][/align][/COLOR][align=right]
[/align]



والطريقة الثانية :
كود :
[b][color=#3E3E3E]Label1.Text =iif([/color][b][b][FONT=Consolas]Environment.Is64BitOperatingSystem=True,"64","32")[/FONT][/b][/b]
[/b]




****
***
**
*
kslawy كتب :بطريقة الرجستري :

كود :
[align=right][color=#3E3E3E]Label1.Text =[/color][/align][color=#3E3E3E][align=right][COLOR=#3E3E3E][COLOR=#3E3E3E]GenerateArchitecture()[/color][/COLOR][/align][/COLOR][align=right]
[/align]



والطريقة الثانية :
كود :
[b][color=#3E3E3E]Label1.Text =iif([/color][b][b][FONT=Consolas]Environment.Is64BitOperatingSystem=True,"64","32")[/FONT][/b][/b]
[/b]




****
***
**
*
جزاك الله خير