如何获得硬盘制造号.使用vb.net? [英] how to get hard disk manufactured no. using vb.net?

问题描述

先生，
我是vb.net的新手，需要生产没有硬盘.使用vb.net?

sir,
i am new to vb.net and need to get hard disk manufactured no. using vb.net?

推荐答案

您需要致电GetVolumeInformation函数 [在VB .NET中获取包括序列号在内的磁盘信息 [

You need to call GetVolumeInformation function[^].
Have a look here: Get disk information including serial number in VB .NET[^]

Private Sub Command1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Command1.Click
    Dim root As String
    Dim volume_name As String
    Dim serial_number As Integer
    Dim max_component_length As Integer
    Dim file_system_flags As Integer
    Dim file_system_name As String
    Dim pos As Integer

    root = Text1.Text
    volume_name = Space(1024)
    file_system_name = Space(1024)

    If GetVolumeInformation(root, volume_name, _
        Len(volume_name), serial_number, _
        max_component_length, file_system_flags, _
        file_system_name, Len(file_system_name)) = 0 Then
        MessageBox.Show("Error getting volume " & _
            "information.", "Error Getting Information", _
            MessageBoxButtons.OK, _
            MessageBoxIcon.Exclamation)
        Exit Sub
    End If

    pos = volume_name.IndexOf(Chr(0))
    volume_name = volume_name.Substring(0, pos)
    lblVolumeName.Text = volume_name
    lblSerialNumber.Text = serial_number.ToString
    lblMaxComponentLength.Text = _
        max_component_length.ToString

    pos = file_system_name.IndexOf(Chr(0))
    file_system_name = file_system_name.Substring(0, pos)
    lblFileSystem.Text = file_system_name

    lblFlags.Text = "&&H" & Hex

(file_system_flags) 结束 子

(file_system_flags) End Sub

这篇关于如何获得硬盘制造号.使用vb.net?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！