首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么读取显示器的型号等信息

2012-03-09 
如何读取显示器的型号等信息如题,如何读取显示器的型号等信息一直以为Windows是读不到的,今天看到Windows

如何读取显示器的型号等信息
如题,如何读取显示器的型号等信息

一直以为Windows是读不到的,今天看到Windows优化大师可以准确读取这些信息,才知道是可以实现的,但不知道如何实现,请高手指点,多谢!

[解决办法]
优化大师是根据驱动信息,在自己建立的厂商数据库中查询实现的。
[解决办法]
DeviceIoControl也许可以去查查吧
还有就是查注册表但是这些其实都是不安全的

[解决办法]
读这个键:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96E-E325-11CE-BFC1-08002BE10318}

这下面是系统里已经有的显示器的信息.

不一定准确.
[解决办法]
试一下WMI
[解决办法]

VB code
Private Sub Command1_Click()   Dim s, System, item   Set System = GetObject("winmgmts:").InstancesOf("Win32_DesktopMonitor")   For Each item In System     s = s & "caption:" & item.Caption & vbCrLf     s = s & "Description:" & item.Description & vbCrLf     s = s & "ScreenWidth:" & item.ScreenWidth & vbCrLf     s = s & "ScreenHeight:" & item.ScreenHeight & vbCrLf     s = s & "MonitorManufacturer:" & item.MonitorManufacturer & vbCrLf   Next   Debug.Print sEnd Sub
[解决办法]
http://blog.csdn.net/tonyzsb/archive/2008/10/23/3129583.aspx
[解决办法]
学习

热点排行