标记一下！

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

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:注册:你在看看.

引用 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:注册:你在看看.

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

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

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