شرح طريقة معرفة كرت الشاشة برمجيا

الموضوع في 'منتدى الدّورات العامّة ولُغات البرمجة' بواسطة Abu Bassam, بتاريخ ‏أكتوبر 14, 2019.

  1. Abu Bassam

    Abu Bassam زيزوومى مبدع

    إنضم إلينا في:
    ‏يونيو 9, 2016
    المشاركات:
    751
    الإعجابات :
    495
    نقاط الجائزة:
    670
    الجنس:
    ذكر
    برامج الحماية:
    Webroot
    نظام التشغيل:
    Windows 10


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

    طريقة لمعرفة كرت الشاشة برمجيا ب c# .net

    الطريقة الاولى :
    كود:
    using System.Management;
    
    
        ManagementObjectSearcher searcher = new ManagementObjectSearcher("SELECT * FROM Win32_DisplayConfiguration");
    
        string graphicsCard = string.Empty;
    
    
        foreach (ManagementObject mo in searcher.Get())
    
        {
    
            foreach (PropertyData property in mo.Properties)
    
            {
    
               if (property.Name == "Description")
    
               {
    
                   graphicsCard = property.Value.ToString();
    
               }
    
            }
    
        }
    الطريقة الثانية vbscript :
    كود:
    On Error Resume Next
    
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
    Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayConfiguration",,48)
    
    For Each objItem in colItems
    
        Info =Info & vbcrlf & "BitsPerPel: " & objItem.BitsPerPel
    
        Info =Info & vbcrlf & "Caption: " & objItem.Caption
    
        Info =Info & vbcrlf & "Description: " & objItem.Description
    
        Info =Info & vbcrlf & "DeviceName: " & objItem.DeviceName
    
        Info =Info & vbcrlf & "DisplayFlags: " & objItem.DisplayFlags
    
        Info =Info & vbcrlf & "DisplayFrequency: " & objItem.DisplayFrequency
    
        Info =Info & vbcrlf & "DitherType: " & objItem.DitherType
    
        Info =Info & vbcrlf & "DriverVersion: " & objItem.DriverVersion
    
        Info =Info & vbcrlf & "ICMIntent: " & objItem.ICMIntent
    
        Info =Info & vbcrlf & "ICMMethod: " & objItem.ICMMethod
    
        Info =Info & vbcrlf & "LogPixels: " & objItem.LogPixels
    
        Info =Info & vbcrlf & "PelsHeight: " & objItem.PelsHeight
    
        Info =Info & vbcrlf & "PelsWidth: " & objItem.PelsWidth
    
        Info =Info & vbcrlf & "SettingID: " & objItem.SettingID
    
        Info =Info & vbcrlf & "SpecificationVersion: " & objItem.SpecificationVersion
    
    Next
    
    wscript.echo Info
     
    محمد دسوقى1980 و ابوفيصل معجبون بهذا.
  2. MesterPerfect

    MesterPerfect زيزوومي VIP ★ نجم المنتدى ★ عضوية موثوقة ✔️

    إنضم إلينا في:
    ‏نوفمبر 5, 2016
    المشاركات:
    25,162
    الإعجابات :
    32,413
    نقاط الجائزة:
    10,370
    الجنس:
    ذكر
    الإقامة:
    sohag, Egypt
    برامج الحماية:
    Kaspersky
    نظام التشغيل:
    Windows 10
    شكرا لك
     
    أعجب بهذه المشاركة ابوفيصل
  3. ابوفيصل

    ابوفيصل عضو شرف داعــــم للمنتـــــدى ★ نجم المنتدى ★ فريق الدعم لقسم الحماية نجم الشهر كبار الشخصيات عضوية موثوقة ✔️ فريق دعم البرامج العامة

    إنضم إلينا في:
    ‏ابريل 9, 2013
    المشاركات:
    44,126
    الإعجابات :
    64,143
    نقاط الجائزة:
    32,675
    الجنس:
    ذكر
    برامج الحماية:
    Kaspersky
    نظام التشغيل:
    Windows 10
    تسلم اخي الفاضل

    شكر وتقدير لك على جهودك المبذوله
     
  4. مبدعة مكة

    مبدعة مكة زيزوومي جديد

    إنضم إلينا في:
    ‏أكتوبر 15, 2019
    المشاركات:
    4
    الإعجابات :
    5
    نقاط الجائزة:
    0
    الجنس:
    أنثى
    الإقامة:
    مكة المكرمة
    برامج الحماية:
    Kaspersky
    نظام التشغيل:
    Windows 10
    السلام عليكم

    شكرا على الموضوع بارك الله فيك
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...