【精易模块】系统_取显卡信息列表

观音

通过WMI获取显卡的信息， 获取显卡信息相关命令.e (882.68 KB, 下载次数: 87)

2021-4-27 12:20 上传

点击文件名下载附件
下载积分: 精币 -2 枚

，已经不是第一次提交更新了，也被采纳了，那个精易模块忠实拥护者勋章也不送一个

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
MS显卡信息	精易_显卡信息		0
a	整数型

a ＝ 系统_取显卡信息列表 (MS显卡信息)
调试输出 (a)
调试输出 (MS显卡信息 [1].显卡名称, MS显卡信息 [1].驱动程序版本号, MS显卡信息 [1].内存大小, MS显卡信息 [1].描述, MS显卡信息 [1].详细描述)
调试输出 (MS显卡信息 [2].显卡名称, MS显卡信息 [2].驱动程序版本号, MS显卡信息 [2].内存大小, MS显卡信息 [2].描述, MS显卡信息 [2].详细描述)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
系统_取显卡信息列表	整数型		返回显卡数量，0为失败
参数名	类 型	参考	可空	数组	备 注
显卡信息列表	精易_显卡信息				用于接收显卡信息列表

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
colClasses	对象
Properties	对象
NewEnum	对象
objClass	对象
hreslut	整数型
Variant	变体型
pcFetched	整数型
value	变体型
MS显卡信息	精易_显卡信息

如果真 (取反 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )))
返回 (0)
重定义数组 (显卡信息列表, 假, 0)
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”)
如果真 (取反 (objWMIService.是否为空 ()))
colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_VideoController”)
如果真 (取反 (colClasses.是否为空 ()))
NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )
如果真 (取反 (NewEnum.是否为空 ()))
循环判断首 ()
hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)
如果真 (hreslut ＝ 0)
objClass ＝ Variant.取对象 ()
Properties ＝ objClass.读对象型属性 (“Properties_”, )
MS显卡信息.驱动程序版本号 ＝ Properties.对象型方法 (“Item”, “DriverVersion”).读文本属性 (“value”, )
MS显卡信息.显卡名称 ＝ Properties.对象型方法 (“Item”, “Name”).读文本属性 (“value”, )
MS显卡信息.内存大小 ＝ Properties.对象型方法 (“Item”, “AdapterRAM”).读数值属性 (“value”, )  ' 易语言本身原因 无法读取长整数
MS显卡信息.描述 ＝ Properties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )
MS显卡信息.详细描述 ＝ Properties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )
' value ＝ Properties.对象型方法 (“Item”, “VideoMemoryType”).读属性 (“value”, )
' value为变体型，通过取类型获取数据类型 对比 变体类型内的常量
' 调试输出 (value.取类型 (), value.取数值 ())
加入成员 (显卡信息列表, MS显卡信息)
objClass.清除 ()
Variant.清除 ()
处理事件 ()
循环判断尾 (pcFetched ＝ 1)
NewEnum.清除 ()
colClasses.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()
返回 (取数组成员数 (显卡信息列表))
' 下面是其他属性的读取，你们看情况酌情添加
' AcceleratorCapabilities  --图形和视频控制器的三维阵列的能力
' AdapterCompatibility  --用于此控制器与系统比较兼容性一般芯片组
' AdapterDACType  --姓名或数字 - 模拟转换器（DAC）芯片的标识符
' Availability  --可用性和设备的状态
' CapabilityDescriptions  --自由形式字符串提供更详细的解释中的任何加速器能力阵列所指示的视频加速器功能
' ColorTableEntries  --尺寸系统的色表
' ConfigManagerErrorCode  --Win32的配置管理器错误代码
' ConfigManagerUserConfig  --如果为TRUE，该装置是使用用户定义的配置
' CreationClassName  --第一个具体类的名称出现在创建实例所使用的继承链
' CurrentBitsPerPixel  --使用的比特数以显示每个像素
' CurrentHorizontalResolution  --水平像素的当前数量
' CurrentNumberOfColors  --在当前的分辨率支持的色彩数目
' CurrentNumberOfColumns  --此视频控制器列（如果在字符模式下）编号
' CurrentNumberOfRows  --此视频控制器行（如果在字符模式下）编号
' CurrentRefreshRate  --频率在该视频控制器刷新监视器的图像
' CurrentScanMode  --当前扫描模式
' CurrentVerticalResolution  --当前垂直像素数量
' DeviceID  --该视频控制器标识符（唯一的计算机系统）
' DeviceSpecificPens  --目前许多设备专用笔。值0xFFFF表示设备不支持笔。
' DitherType  --抖动型视频控制器
' DriverDate  --当前已安装的视频驱动程序的最后修改日期和时间
' ErrorCleared  --如果为真，报上一个错误代码属性中的错误现已清除
' ErrorDescription  --可能采取的纠正措施字符串提供有关记录在一个错误代码属性错误的详细信息
' ICMIntent  --应使用默认三种可能的配色方法或意图中的一个特定值
' ICMMethod  --处理ICM方法。对于非ICM的应用程序，这个属性决定了ICM是否已启用对于ICM的应用程序，系统将检查此属性来确定如何处理ICM支持
' InfFilename  --视频适配器的路径.inf文件
' InfSection  --Windows的视频信息所在的.inf文件
' InstallDate  --安装的日期
' InstalledDisplayDrivers  --已安装的显示设备驱动程序的名称
' LastErrorCode  --报告的逻辑设备上一个错误代码
' MaxMemorySupported  --以字节为单位支持的内存最高限额
' MaxNumberControlled  --可支持通过该控制器可直接寻址的实体的最大数量
' MaxRefreshRate  --在赫兹视频控制器的最大刷新率
' MinRefreshRate   --在赫兹视频控制器的最小刷新率
' Monochrome  --如果是TRUE，灰阶用于显示图像。
' NumberOfColorPlanes  --当前一些颜色平面。如果该值不适用于当前视频的配置，输入0（零）
' NumberOfVideoPages  --当前的分辨率和可用内存支持视频页数
' PNPDeviceID  --即插即用逻辑设备的播放装置识别符
' PowerManagementCapabilities  --逻辑设备的特定功率相关的能力阵列
' PowerManagementSupported  --如果为TRUE，该装置可以是电源管理（可以投入挂起模式，等等）
' ProtocolSupported  --由控制器使用协议访问“控制”的设备
' ReservedSystemPaletteEntries  --系统调色板保留的条目数
' SpecificationVersion  --初始化数据规范的版本号（在其上的结构的基础）
' Status  --对象的当前状态
' StatusInfo  --对象的当前状态详细信息
' SystemCreationClassName  --该作用域计算机的创建类别名称属性的值
' SystemName  --系统的名称
' SystemPaletteEntries  --当前一些系统调色板颜色索引条目
' TimeOfLastReset  --该控制器是最后一次复位日期和时间，这可能意味着该控制器被断电或重新初始化
' VideoArchitecture  --视频体系结构的类型
' VideoMemoryType  --显存类型
' VideoMode  --当前视频模式
' VideoModeDescription  --当前的分辨率，颜色和视频控制器的扫描模式设置
' VideoProcessor  --无格式的字符串描述视频处理器

子程序名	返回值类型	公开	备 注
IEnumVARIANT_Next	整数型
参数名	类 型	参考	可空	数组	备 注
this
celt
rgvar
pceltFetched

变量名	类 型	静态	数组	备 注
index

index ＝ 3
置入代码 ({ 139, 69, 8, 139, 0, 107, 77, 252, 4, 3, 193, 131, 196, 4, 93, 255, 32 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 MS显卡信息, 精易_显卡信息, , "0"<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 系统_取显卡信息列表 (MS显卡信息)<br /> 调试输出 (a)<br /> 调试输出 (MS显卡信息 [1].显卡名称, MS显卡信息 [1].驱动程序版本号, MS显卡信息 [1].内存大小, MS显卡信息 [1].描述, MS显卡信息 [1].详细描述)<br /> 调试输出 (MS显卡信息 [2].显卡名称, MS显卡信息 [2].驱动程序版本号, MS显卡信息 [2].内存大小, MS显卡信息 [2].描述, MS显卡信息 [2].详细描述)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 系统_取显卡信息列表, 整数型, , 返回显卡数量，0为失败<br /> .参数 显卡信息列表, 精易_显卡信息, 参考 可空 数组, 用于接收显卡信息列表<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 colClasses, 对象<br /> .局部变量 Properties, 对象<br /> .局部变量 NewEnum, 对象<br /> .局部变量 objClass, 对象<br /> .局部变量 hreslut, 整数型<br /> .局部变量 Variant, 变体型<br /> .局部变量 pcFetched, 整数型<br /> .局部变量 value, 变体型<br /> .局部变量 MS显卡信息, 精易_显卡信息<br /> <br /> .如果真 (取反 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, )))<br />     返回 (0)<br /> .如果真结束<br /> 重定义数组 (显卡信息列表, 假, 0)<br /> objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”)<br /> .如果真 (取反 (objWMIService.是否为空 ()))<br />     colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_VideoController”)<br />     .如果真 (取反 (colClasses.是否为空 ()))<br />         NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )<br />         .如果真 (取反 (NewEnum.是否为空 ()))<br />             .循环判断首 ()<br />                 hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)<br />                 .如果真 (hreslut ＝ 0)<br />                     objClass ＝ Variant.取对象 ()<br />                     Properties ＝ objClass.读对象型属性 (“Properties_”, )<br />                     MS显卡信息.驱动程序版本号 ＝ Properties.对象型方法 (“Item”, “DriverVersion”).读文本属性 (“value”, )<br />                     MS显卡信息.显卡名称 ＝ Properties.对象型方法 (“Item”, “Name”).读文本属性 (“value”, )<br />                     MS显卡信息.内存大小 ＝ Properties.对象型方法 (“Item”, “AdapterRAM”).读数值属性 (“value”, )  ' 易语言本身原因 无法读取长整数<br />                     MS显卡信息.描述 ＝ Properties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )<br />                     MS显卡信息.详细描述 ＝ Properties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )<br />                     ' value ＝ Properties.对象型方法 (“Item”, “VideoMemoryType”).读属性 (“value”, )<br />                     ' value为变体型，通过取类型获取数据类型 对比 变体类型内的常量<br />                     ' 调试输出 (value.取类型 (), value.取数值 ())<br />                     加入成员 (显卡信息列表, MS显卡信息)<br />                     objClass.清除 ()<br />                     Variant.清除 ()<br />                 .如果真结束<br />                 处理事件 ()<br />             .循环判断尾 (pcFetched ＝ 1)<br />             NewEnum.清除 ()<br />         .如果真结束<br />         colClasses.清除 ()<br />     .如果真结束<br />     objWMIService.清除 ()<br /> .如果真结束<br /> objWbemLocator.清除 ()<br /> 返回 (取数组成员数 (显卡信息列表))<br /> ' 下面是其他属性的读取，你们看情况酌情添加<br /> ' AcceleratorCapabilities  --图形和视频控制器的三维阵列的能力<br /> ' AdapterCompatibility  --用于此控制器与系统比较兼容性一般芯片组<br /> ' AdapterDACType  --姓名或数字 - 模拟转换器（DAC）芯片的标识符<br /> ' Availability  --可用性和设备的状态<br /> ' CapabilityDescriptions  --自由形式字符串提供更详细的解释中的任何加速器能力阵列所指示的视频加速器功能<br /> ' ColorTableEntries  --尺寸系统的色表<br /> ' ConfigManagerErrorCode  --Win32的配置管理器错误代码<br /> ' ConfigManagerUserConfig  --如果为TRUE，该装置是使用用户定义的配置<br /> ' CreationClassName  --第一个具体类的名称出现在创建实例所使用的继承链<br /> ' CurrentBitsPerPixel  --使用的比特数以显示每个像素<br /> ' CurrentHorizontalResolution  --水平像素的当前数量<br /> ' CurrentNumberOfColors  --在当前的分辨率支持的色彩数目<br /> ' CurrentNumberOfColumns  --此视频控制器列（如果在字符模式下）编号<br /> ' CurrentNumberOfRows  --此视频控制器行（如果在字符模式下）编号<br /> ' CurrentRefreshRate  --频率在该视频控制器刷新监视器的图像<br /> ' CurrentScanMode  --当前扫描模式<br /> ' CurrentVerticalResolution  --当前垂直像素数量<br /> ' DeviceID  --该视频控制器标识符（唯一的计算机系统）<br /> ' DeviceSpecificPens  --目前许多设备专用笔。值0xFFFF表示设备不支持笔。<br /> ' DitherType  --抖动型视频控制器<br /> ' DriverDate  --当前已安装的视频驱动程序的最后修改日期和时间<br /> ' ErrorCleared  --如果为真，报上一个错误代码属性中的错误现已清除<br /> ' ErrorDescription  --可能采取的纠正措施字符串提供有关记录在一个错误代码属性错误的详细信息<br /> ' ICMIntent  --应使用默认三种可能的配色方法或意图中的一个特定值<br /> ' ICMMethod  --处理ICM方法。对于非ICM的应用程序，这个属性决定了ICM是否已启用对于ICM的应用程序，系统将检查此属性来确定如何处理ICM支持<br /> ' InfFilename  --视频适配器的路径.inf文件<br /> ' InfSection  --Windows的视频信息所在的.inf文件<br /> ' InstallDate  --安装的日期<br /> ' InstalledDisplayDrivers  --已安装的显示设备驱动程序的名称<br /> ' LastErrorCode  --报告的逻辑设备上一个错误代码<br /> ' MaxMemorySupported  --以字节为单位支持的内存最高限额<br /> ' MaxNumberControlled  --可支持通过该控制器可直接寻址的实体的最大数量<br /> ' MaxRefreshRate  --在赫兹视频控制器的最大刷新率<br /> ' MinRefreshRate   --在赫兹视频控制器的最小刷新率<br /> ' Monochrome  --如果是TRUE，灰阶用于显示图像。<br /> ' NumberOfColorPlanes  --当前一些颜色平面。如果该值不适用于当前视频的配置，输入0（零）<br /> ' NumberOfVideoPages  --当前的分辨率和可用内存支持视频页数<br /> ' PNPDeviceID  --即插即用逻辑设备的播放装置识别符<br /> ' PowerManagementCapabilities  --逻辑设备的特定功率相关的能力阵列<br /> ' PowerManagementSupported  --如果为TRUE，该装置可以是电源管理（可以投入挂起模式，等等）<br /> ' ProtocolSupported  --由控制器使用协议访问“控制”的设备<br /> ' ReservedSystemPaletteEntries  --系统调色板保留的条目数<br /> ' SpecificationVersion  --初始化数据规范的版本号（在其上的结构的基础）<br /> ' Status  --对象的当前状态<br /> ' StatusInfo  --对象的当前状态详细信息<br /> ' SystemCreationClassName  --该作用域计算机的创建类别名称属性的值<br /> ' SystemName  --系统的名称<br /> ' SystemPaletteEntries  --当前一些系统调色板颜色索引条目<br /> ' TimeOfLastReset  --该控制器是最后一次复位日期和时间，这可能意味着该控制器被断电或重新初始化<br /> ' VideoArchitecture  --视频体系结构的类型<br /> ' VideoMemoryType  --显存类型<br /> ' VideoMode  --当前视频模式<br /> ' VideoModeDescription  --当前的分辨率，颜色和视频控制器的扫描模式设置<br /> ' VideoProcessor  --无格式的字符串描述视频处理器<br /> <br /> .子程序 IEnumVARIANT_Next, 整数型<br /> .参数 this<br /> .参数 celt<br /> .参数 rgvar<br /> .参数 pceltFetched, , 参考<br /> .局部变量 index<br /> <br /> index ＝ 3<br /> 置入代码 ({ 139, 69, 8, 139, 0, 107, 77, 252, 4, 3, 193, 131, 196, 4, 93, 255, 32 })<br /> 返回 (0)

  

数据类型名	公开	备 注
精易_显卡信息
成员名	类 型	传址	数组	备 注
显卡名称	文本型			Name
驱动程序版本号	文本型			DriverVersion
内存大小	长整数型			AdapterRAM,易语言本身问题，长整数数值无法处理
描述	文本型			Caption
详细描述	文本型			Description

.版本 2<br /> <br /> .数据类型 精易_显卡信息<br />     .成员 显卡名称, 文本型, , , Name<br />     .成员 驱动程序版本号, 文本型, , , DriverVersion<br />     .成员 内存大小, 长整数型, , , AdapterRAM,易语言本身问题，长整数数值无法处理<br />     .成员 描述, 文本型, , , Caption<br />     .成员 详细描述, 文本型, , , Description

Ordinary

顶一个 ，来学习下

lsttf

顶一个 ，来学习下

qtcpl

看来大部分的帖子，感觉都很优秀。

LOLI反应堆

学习学习

yxftv

学习了学习了学习了学习了

huxian

取不到啊 错误提示

huxian

我看看再说

寒冰198818

在PE环境下读取不到 已经安装了显卡驱动

网络注册网员

顶上去顶上去