Question

VB如何获取电脑显示器的序列号？

要能获取台式机电脑显示器的序列号，也能获取笔记本的显示器的序列号，希望获取的序列号是物理性的，不可以被更改的！
如果调试成功，再追加分！！

Answer 1

　这段代码能获得显示器型号 不明白你说的显示器序列号是什么 刚看了设备管理器上也没这项
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

Print s
End Sub

追问

你可以搜序列号查看器(HIDViewer) v1.1绿色版看看这款软件，它可以获取到显示器两个序列号，其实我获取是为了注册软件用的，你的代码不分系统都是固定不变的吗？会不会有获取不到的情况

追答

你发的这个软件识别不到我的显示器，图片右侧是这段代码在我电脑上运行的数据  获得的是显示器型号数据  不同型号的显示器型号不同，如果是同型号的2个显示器值就一样了

追问

嗯看到了，但是每个显示器的SN序列号应该是唯一的，你能否获取呢？感激不尽！

追答

我这边没找到显示器的序列号 电脑上看不到 不知道存储在哪里。
你如果只是为了识别电脑可以利用CPU的序列号 也是唯一的
Private Sub Command1_Click()
Dim cpu, cpuSet, cpuId
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
cpuId = cpu.ProcessorId
Next
Print cpuId
End Sub

追问

其实我就打算绑定cpu+显示器的序列号，cpu并不唯一了，但至少不会像mac和硬盘序列号那样不稳定或者获取不到

追答

那帮不上你了 我这边连你说的显示器序列号都找不到在哪里能看到， 更谈不上用vb获取它了

追问

在设备管理器/监视器/详细信息/属性里面有一个叫硬件ID，我想这个应该是显示器某个物理信息，是唯一的，能否获取到这个ID呢，我给你追分！

追答

Private Sub Command1_Click()
Dim s, System, item
Set System = GetObject("winmgmts:").InstancesOf("Win32_DesktopMonitor")
For Each item In System
s = s & "PNPDeviceID:" & item.PNPDeviceID & vbCrLf
Next
Print s
End Sub
测试下吧