古詩詞大全網 - 成語經典 - VS2010中怎麽獲取cpu或者硬盤序列號。用vb.net。想編壹個註冊碼的軟件

VS2010中怎麽獲取cpu或者硬盤序列號。用vb.net。想編壹個註冊碼的軟件

Private Function 硬盤序列號() As String

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

硬盤序列號 = ""

End Try

End Try

End Function

只在我的電腦上試過,妳試下