获取显卡详细信息

其它问题 | 2015-04-09 01:02:43 | 阅读 1117 次 | 评论(0)

作者:自由之风


Clear
objWMIService = Getobject("winmgmts:\\.\root\CIMV2")
colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48)
For Each ye In colItems
    ?"型 号: "+ ye.VideoProcessor
    ?"厂 商: "+ye.AdapterCompatibility
    ?"名 称: "+ ye.Name
    ?"状 态: "+ ye.Status
    ?"像 素:"+Str(ye.CurrentBitsPerPixel,3,2)
    ?"当前分辨率和颜色:"+ye.VideoModeDescription
    ?"屏幕刷新频率:"+Str(ye.CurrentRefreshRate,3)+"MHZ"
    ?"显 存: " +Str(ye.AdapterRAM/1024000,8,8)+"MB"
    ?"驱 动(dll): "+ye.InstalledDisplayDrivers
    ?"驱 动(inf): "+ye.infFilename
    ?"文件的部分(inf):"+ye.InfSection
    ?"版 本: "+ye.DriverVersion
    ?"视频驱动程序最后一次修改的日期和时间:"+ye.DriverDate
Endfor

文章评论,共0条
游客请输入验证码
浏览229677次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...