锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net取硬盘号 vb读取硬盘序列号

IT技术获取

vb中怎样获得硬盘序列号？上面的硬盘序列号都是逻辑盘序列号
每次格式化时都会改变而且很容易更改
你需要的应是物理序列号 ， 是硬盘出厂时固化的
全球唯一的十位字符
网上有人编好的getdiskinfo
好像vsit不能用
或用WMI:Win32_PhysicalMedia
不过用在vsit里得出的是20位的16进制字符串
你要设法检测与转换
我现在是把多种方法组合起来用
WMI功能比较强但初始化比较慢
我还用汇编试过 ， 快不过不太稳定
例程我就不提供了，自己去搜索一下 。
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
Next
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 Try
End Function
试下，如果返回为空 ， 则表示失败 。
在本机win8win8.1有效，不过好像在有些机器上没用 。
【vb.net取硬盘号 vb读取硬盘序列号】关于vb.net取硬盘号和vb读取硬盘序列号的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：视频号原创计划是啥意思，视频号原创计划在哪

    下一篇：智能电视免费直播软件，智能电视免费直播软件大全