vb.net获取硬盘id的简单介绍

win7下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 Function

试下，如果返回为空，则表示失败。

在本机win8win8.1有效，不过好像在有些机器上没用。

用vb如何获得硬盘序列号并实现软件的注册功能的用户窗体及其与程序的链接发给我学习一下好吗？

软件注册比较复杂，你说的获取硬盘序列号只是第一步，然后需要发给开发商，用一个算法生成注册号，再发给你，你再把这个注册号注入程序，才能完成注册。

开发商那边是加密，用户这边是解密，算法相反，可以复杂也可以简单。

一般来说，要求用户提供用户名、地址、硬盘号等多种资料，组合生成一个数字，最简单用个网上找的MD5算法，生成20位注册号，用户端也用这个，然后比对输入的注册号是不是一样

下面是网上给你找的硬盘号代码

VB里面怎么获取硬盘编号

Private Declare Function MymachineC Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Command1_Click()

Dim DiskId, Maxlen, Sysflag As Long: Dim VolName, FsysName As String

Call MymachineC("c:\", VolName, 256, DiskId, Maxlen, Sysflag, FsysName, 256)

MsgBox "序列号:" DiskId

End Sub

这个能获取C盘的序列号但是格式化/重做系统后就会变!

VB.NET获取硬盘信息的几种方法

总结：在VB.NET中，用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员，可以对API函数声明进行适当的更改后，进行调用。利用FSO（文件系统对象）的Scrrun.DLL，也可以获得磁盘信息。

vb.net如何获取电脑中的所有盘符

首先使用 System.IO.DriveInfo.GetDrives()获取System.IO.DriveInfo，存入ds()

然后遍历ds，获取各个信息部分。

Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

For i As Integer = 0 To ds.Length - 1

TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " '驱动器类型

TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盘符（驱动器名）

TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就绪

If ds(i).IsReady = True Then

TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷标

TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驱动器容量

TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驱动器可用容量

End If

TextBox1.Text = TextBox1.Text + vbNewLine