VB2008 如何取得主板序列号，用来注册？

[ws9528]

现在用的是硬盘码来注册，想用主板号来注册。因为换主板约等于换机子。我想主板号是唯一的，不存在像硬盘一样的什么逻辑序列号或硬件号。

请不要给连接，只接代码。越简单越好。不要DLL。

感谢。

[贫下码农]

同一型号同一时间生产的主板，序号并不是唯一的，就算是唯一的，只要通过工具把Bios信息导出，用其它专用工具照样可以把序号改成与之前注册过的主板序号一样！

[lianghengchao]

标记一下！

[threenewbee]

VB2008，整个代码都能反编译，先考虑下如何混淆吧。

[standhong]

1:取序列号:
Dim searcher As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")

Dim share As System.Management.ManagementObject
For Each share In searcher.Get()
Debug.WriteLine("主板制造商:" & share("Manufacturer"))
Debug.WriteLine("型号:" & share("Product"))
Debug.WriteLine("序列号:" & share("SerialNumber"))
Next share
2:注册:你在看看.

[threenewbee]

[Quote=引用 3 楼 standhong 的回复:]
1:取序列号:
Dim searcher As New System.Management.ManagementObjectSearcher("SELECT  *  FROM  Win32_BaseBoard")

        Dim share As System.Management.ManagementObject
        For Each share In searcher.Get()
            Debug.WriteLine("主板制造商:" & share("Manufacturer"))
            Debug.WriteLine("型号:" & share("Product"))
            Debug.WriteLine("序列号:" & share("SerialNumber"))
        Next share
2:注册:你在看看.

[/Quote]
WMI不可靠，这个代码是直接读取注册表的，好糊弄的很

[standhong]

最好能给出实际的东西.让LZ能够受用.