获得计算机硬件信息(VB.net)

关注

原创最新推荐文章于 2026-05-31 14:47:58 发布 3.8k 阅读 AI 写同款· GEO 优化 ›

VB.NET获取硬盘信息操作方式详解通过以上代码，我们可以使用VB.NET获取硬盘的设备ID和标题等信息。请注意，在实际应用中，我们应该根据具体的需求和异常处理，对代码进行适当的修改和优化。在后端开发中，获取硬盘信息是一项常见的任务。本文将详细介绍如何使用VB.NET获取硬盘信息，并提供相应的源代码。然后，我们遍历查询结果集合，并将硬盘的设备ID和标题信息添加到列表中。现在，我们可以在需要获取硬盘信息的地方调用上述函数，并处理返回的硬盘信息列表。在上述代码中，我们将获取的硬盘信息列表遍历，并在控制台上打印每个硬盘的信息。阅读详情

代码有点乱，不过你可以直接Copy后就能运行!

Imports System.Management
Imports System.Drawing.Text
Imports System.IO
''' <summary>
''' 说明：
''' Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个
''' 统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础
''' WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问
''' 和操作系统管理信息。
''' </summary>
''' <remarks></remarks>
Public Class Form4
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox4 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox5 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox6 As System.Windows.Forms.ListBox
    Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
    Friend WithEvents tapCPUinfo As System.Windows.Forms.TabPage
    Friend WithEvents tapVidoInfo As System.Windows.Forms.TabPage
    Friend WithEvents tapAuidoInfo As System.Windows.Forms.TabPage
    Friend WithEvents tapMAC As System.Windows.Forms.TabPage
    Friend WithEvents tapROMinfo As System.Windows.Forms.TabPage
    Friend WithEvents tapFontInfo As System.Windows.Forms.TabPage
    Friend WithEvents TableControl As System.Windows.Forms.TabControl
    Friend WithEvents tapHardInfo As System.Windows.Forms.TabPage
    Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
    Friend WithEvents lsvMAC As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
    Friend WithEvents tapBaseInfo As System.Windows.Forms.TabPage
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents lsvHardInfo As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
    Friend WithEvents lsvVidoInfo As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
    Friend WithEvents lsvSystemInfo As System.Windows.Forms.ListView
    Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
    Friend WithEvents lsvProcess As System.Windows.Forms.ListView
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
        Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel
        Me.tapBaseInfo = New System.Windows.Forms.TabPage
        Me.lsvSystemInfo = New System.Windows.Forms.ListView
        Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
        Me.tapHardInfo = New System.Windows.Forms.TabPage
        Me.lsvHardInfo = New System.Windows.Forms.ListView
        Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
        Me.ListBox5 = New System.Windows.Forms.ListBox
        Me.tapCPUinfo = New System.Windows.Forms.TabPage
        Me.ListBox3 = New System.Windows.Forms.ListBox
        Me.tapROMinfo = New System.Windows.Forms.TabPage
        Me.ListBox4 = New System.Windows.Forms.ListBox
        Me.tapAuidoInfo = New System.Windows.Forms.TabPage
        Me.ListBox6 = New System.Windows.Forms.ListBox
        Me.tapVidoInfo = New System.Windows.Forms.TabPage
        Me.lsvVidoInfo = New System.Windows.Forms.ListView
        Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
        Me.tapMAC = New System.Windows.Forms.TabPage
        Me.lsvMAC = New System.Windows.Forms.ListView
        Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
        Me.tapFontInfo = New System.Windows.Forms.TabPage
        Me.lsvProcess = New System.Windows.Forms.ListView
        Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader
        Me.ListBox2 = New System.Windows.Forms.ListBox
        Me.TableControl = New System.Windows.Forms.TabControl
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tapBaseInfo.SuspendLayout()
        Me.tapHardInfo.SuspendLayout()
        Me.tapCPUinfo.SuspendLayout()
        Me.tapROMinfo.SuspendLayout()
        Me.tapAuidoInfo.SuspendLayout()
        Me.tapVidoInfo.SuspendLayout()
        Me.tapMAC.SuspendLayout()
        Me.tapFontInfo.SuspendLayout()
        Me.TableControl.SuspendLayout()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem5})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        Me.MenuItem1.Text = "控制(&C)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "打开CD-ROM"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "关闭CD-ROM"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "禁用网卡"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 1
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6})
        Me.MenuItem5.Text = "测试(&T)"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 0
        Me.MenuItem6.Text = "硬盘读写速度"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 323)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(616, 22)
        Me.StatusBar1.TabIndex = 26
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.StatusBarPanel1.Text = "StatusBarPanel1"
        Me.StatusBarPanel1.Width = 360
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Text = "StatusBarPanel2"
        Me.StatusBarPanel2.Width = 240
        '
        'tapBaseInfo
        '
        Me.tapBaseInfo.Controls.Add(Me.lsvSystemInfo)
        Me.tapBaseInfo.Location = New System.Drawing.Point(4, 21)
        Me.tapBaseInfo.Name = "tapBaseInfo"
        Me.tapBaseInfo.Size = New System.Drawing.Size(592, 271)
        Me.tapBaseInfo.TabIndex = 0
        Me.tapBaseInfo.Text = "基本信息"
        '
        'lsvSystemInfo
        '
        Me.lsvSystemInfo.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
        Me.lsvSystemInfo.FullRowSelect = True
        Me.lsvSystemInfo.GridLines = True
        Me.lsvSystemInfo.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lsvSystemInfo.Location = New System.Drawing.Point(16, 16)
        Me.lsvSystemInfo.Name = "lsvSystemInfo"
        Me.lsvSystemInfo.Size = New System.Drawing.Size(560, 240)
        Me.lsvSystemInfo.TabIndex = 0
        Me.lsvSystemInfo.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = ""
        Me.ColumnHeader1.Width = 525
        '
        'tapHardInfo
        '
        Me.tapHardInfo.Controls.Add(Me.lsvHardInfo)
        Me.tapHardInfo.Controls.Add(Me.ListBox5)
        Me.tapHardInfo.Location = New System.Drawing.Point(4, 21)
        Me.tapHardInfo.Name = "tapHardInfo"
        Me.tapHardInfo.Size = New System.Drawing.Size(592, 271)
        Me.tapHardInfo.TabIndex = 1
        Me.tapHardInfo.Text = "硬盘信息"
        '
        'lsvHardInfo
        '
        Me.lsvHardInfo.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3})
        Me.lsvHardInfo.FullRowSelect = True
        Me.lsvHardInfo.GridLines = True
        Me.lsvHardInfo.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lsvHardInfo.Location = New System.Drawing.Point(224, 16)
        Me.lsvHardInfo.Name = "lsvHardInfo"
        Me.lsvHardInfo.Size = New System.Drawing.Size(352, 232)
        Me.lsvHardInfo.TabIndex = 20
        Me.lsvHardInfo.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Width = 330
        '
        'ListBox5
        '
        Me.ListBox5.ItemHeight = 12
        Me.ListBox5.Location = New System.Drawing.Point(16, 8)
        Me.ListBox5.Name = "ListBox5"
        Me.ListBox5.Size = New System.Drawing.Size(192, 244)
        Me.ListBox5.TabIndex = 19
        '
        'tapCPUinfo
        '
        Me.tapCPUinfo.Controls.Add(Me.ListBox3)
        Me.tapCPUinfo.Location = New System.Drawing.Point(4, 21)
        Me.tapCPUinfo.Name = "tapCPUinfo"
        Me.tapCPUinfo.Size = New System.Drawing.Size(592, 271)
        Me.tapCPUinfo.TabIndex = 2
        Me.tapCPUinfo.Text = "CPU信息"
        '
        'ListBox3
        '
        Me.ListBox3.ItemHeight = 12
        Me.ListBox3.Location = New System.Drawing.Point(68, 25)
        Me.ListBox3.Name = "ListBox3"
        Me.ListBox3.Size = New System.Drawing.Size(420, 196)
        Me.ListBox3.TabIndex = 16
        '
        'tapROMinfo
        '
        Me.tapROMinfo.Controls.Add(Me.ListBox4)
        Me.tapROMinfo.Location = New System.Drawing.Point(4, 21)
        Me.tapROMinfo.Name = "tapROMinfo"
        Me.tapROMinfo.Size = New System.Drawing.Size(592, 271)
        Me.tapROMinfo.TabIndex = 6
        Me.tapROMinfo.Text = "CD-ROM信息"
        '
        'ListBox4
        '
        Me.ListBox4.ItemHeight = 12
        Me.ListBox4.Location = New System.Drawing.Point(68, 25)
        Me.ListBox4.Name = "ListBox4"
        Me.ListBox4.Size = New System.Drawing.Size(420, 196)
        Me.ListBox4.TabIndex = 18
        '
        'tapAuidoInfo
        '
        Me.tapAuidoInfo.Controls.Add(Me.ListBox6)
        Me.tapAuidoInfo.Location = New System.Drawing.Point(4, 21)
        Me.tapAuidoInfo.Name = "tapAuidoInfo"
        Me.tapAuidoInfo.Size = New System.Drawing.Size(592, 271)
        Me.tapAuidoInfo.TabIndex = 4
        Me.tapAuidoInfo.Text = "声卡信息"
        '
        'ListBox6
        '
        Me.ListBox6.ItemHeight = 12
        Me.ListBox6.Location = New System.Drawing.Point(20, 31)
        Me.ListBox6.Name = "ListBox6"
        Me.ListBox6.Size = New System.Drawing.Size(452, 172)
        Me.ListBox6.TabIndex = 20
        '
        'tapVidoInfo
        '
        Me.tapVidoInfo.Controls.Add(Me.lsvVidoInfo)
        Me.tapVidoInfo.Location = New System.Drawing.Point(4, 21)
        Me.tapVidoInfo.Name = "tapVidoInfo"
        Me.tapVidoInfo.Size = New System.Drawing.Size(592, 271)
        Me.tapVidoInfo.TabIndex = 3
        Me.tapVidoInfo.Text = "显卡信息"
        '
        'lsvVidoInfo
        '
        Me.lsvVidoInfo.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4})
        Me.lsvVidoInfo.FullRowSelect = True
        Me.lsvVidoInfo.GridLines = True
        Me.lsvVidoInfo.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lsvVidoInfo.Location = New System.Drawing.Point(120, 19)
        Me.lsvVidoInfo.Name = "lsvVidoInfo"
        Me.lsvVidoInfo.Size = New System.Drawing.Size(352, 232)
        Me.lsvVidoInfo.TabIndex = 21
        Me.lsvVidoInfo.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Width = 330
        '
        'tapMAC
        '
        Me.tapMAC.Controls.Add(Me.lsvMAC)
        Me.tapMAC.Location = New System.Drawing.Point(4, 21)
        Me.tapMAC.Name = "tapMAC"
        Me.tapMAC.Size = New System.Drawing.Size(592, 271)
        Me.tapMAC.TabIndex = 5
        Me.tapMAC.Text = "网卡信息"
        '
        'lsvMAC
        '
        Me.lsvMAC.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader2})
        Me.lsvMAC.FullRowSelect = True
        Me.lsvMAC.GridLines = True
        Me.lsvMAC.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lsvMAC.Location = New System.Drawing.Point(136, 24)
        Me.lsvMAC.Name = "lsvMAC"
        Me.lsvMAC.Size = New System.Drawing.Size(312, 168)
        Me.lsvMAC.TabIndex = 0
        Me.lsvMAC.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "网卡信息"
        Me.ColumnHeader2.Width = 282
        '
        'tapFontInfo
        '
        Me.tapFontInfo.Controls.Add(Me.lsvProcess)
        Me.tapFontInfo.Controls.Add(Me.ListBox2)
        Me.tapFontInfo.Location = New System.Drawing.Point(4, 21)
        Me.tapFontInfo.Name = "tapFontInfo"
        Me.tapFontInfo.Size = New System.Drawing.Size(592, 271)
        Me.tapFontInfo.TabIndex = 7
        Me.tapFontInfo.Text = "软件信息"
        '
        'lsvProcess
        '
        Me.lsvProcess.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader5})
        Me.lsvProcess.FullRowSelect = True
        Me.lsvProcess.GridLines = True
        Me.lsvProcess.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lsvProcess.Location = New System.Drawing.Point(16, 16)
        Me.lsvProcess.Name = "lsvProcess"
        Me.lsvProcess.Size = New System.Drawing.Size(408, 240)
        Me.lsvProcess.TabIndex = 21
        Me.lsvProcess.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader5
        '
        Me.ColumnHeader5.Text = "Windows的所有进程"
        Me.ColumnHeader5.Width = 158
        '
        'ListBox2
        '
        Me.ListBox2.ItemHeight = 12
        Me.ListBox2.Location = New System.Drawing.Point(440, 16)
        Me.ListBox2.Name = "ListBox2"
        Me.ListBox2.Size = New System.Drawing.Size(136, 244)
        Me.ListBox2.TabIndex = 14
        '
        'TableControl
        '
        Me.TableControl.Controls.Add(Me.tapBaseInfo)
        Me.TableControl.Controls.Add(Me.tapVidoInfo)
        Me.TableControl.Controls.Add(Me.tapHardInfo)
        Me.TableControl.Controls.Add(Me.tapMAC)
        Me.TableControl.Controls.Add(Me.tapCPUinfo)
        Me.TableControl.Controls.Add(Me.tapROMinfo)
        Me.TableControl.Controls.Add(Me.tapAuidoInfo)
        Me.TableControl.Controls.Add(Me.tapFontInfo)
        Me.TableControl.Location = New System.Drawing.Point(8, 16)
        Me.TableControl.Name = "TableControl"
        Me.TableControl.SelectedIndex = 0
        Me.TableControl.Size = New System.Drawing.Size(600, 296)
        Me.TableControl.TabIndex = 25
        '
        'Form4
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(616, 345)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.TableControl)
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.Name = "Form4"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Form4"
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tapBaseInfo.ResumeLayout(False)
        Me.tapHardInfo.ResumeLayout(False)
        Me.tapCPUinfo.ResumeLayout(False)
        Me.tapROMinfo.ResumeLayout(False)
        Me.tapAuidoInfo.ResumeLayout(False)
        Me.tapVidoInfo.ResumeLayout(False)
        Me.tapMAC.ResumeLayout(False)
        Me.tapFontInfo.ResumeLayout(False)
        Me.TableControl.ResumeLayout(False)
        Me.ResumeLayout(False)

End Sub

#End Region

    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
        (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
         ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private IsBaseFirst As Boolean = True
    Private IsHardFirst As Boolean = True
    Private IsCPUFirst As Boolean = True
    Private IsROMFirst As Boolean = True
    Private IsAuidoFirst As Boolean = True
    Private IsVidoFirst As Boolean = True
    Private IsMACFirst As Boolean = True
    Private IsSoftwareFirst As Boolean = True
    Private IsLoad As Boolean

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IsLoad = True
        StatusBar1.Panels(0).Text = "就绪."
        Dim objectQuery As New ObjectQuery("select * from Win32_Share")
        Dim searcher As New ManagementObjectSearcher(objectQuery)
        Dim share As ManagementObject
        For Each share In searcher.Get()
            Console.WriteLine("Share = " & share("Name"))
        Next share

End Sub

    Private Sub TableControl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TableControl.SelectedIndexChanged
        Me.Cursor = Cursors.WaitCursor
        If IsLoad Then StatusBar1.Panels(0).Text = "正在搜索信息,请稍候..."
        Select Case TableControl.SelectedIndex
            Case 0
                If IsBaseFirst Then BaseInfo()
            Case 1
                If IsHardFirst Then HardInfo()
            Case 2
                If IsCPUFirst Then CPUinfo()
            Case 3
                If IsROMFirst Then ROMinfo()
            Case 4
                If IsAuidoFirst Then AuidoInfo()
            Case 5
                If IsVidoFirst Then VidoInfo()
            Case 6
                If IsMACFirst Then MACinfo()
            Case 7
                If IsSoftwareFirst Then FontInfo()
        End Select

Me.Cursor = Cursors.Default
If IsLoad Then StatusBar1.Panels(0).Text = "就绪."

End Sub

    '测试硬盘读写速度
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim testString As String = String.Empty
        If MessageBox.Show("整个测试过程需要几分钟,你确定要测试吗?", "测试", _
            MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            Me.Cursor = Cursors.WaitCursor
            Dim I As Int32
            Dim f As New FileStream("E:/BigFile.big", FileMode.Create)
            Dim fw As New BinaryWriter(f)
            Dim fr As New BinaryReader(f)
            Dim Size As Int32 = 1024 * 1024 * 1024 - 1 'File size = 1GB
            Dim bufSize As Int32 = 30 * 1024 * 1024 'Buffer Size = 30MB
            Dim jLast As Int32 = bufSize - 1
            Dim Bytes(bufSize) As Byte
            Dim StartWrite As Date = Date.Now

            StatusBar1.Panels(0).Text = "开始写数据测试时间：" & StartWrite
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "正在进行写数据测试,请稍候..."
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine

            For I = 0 To Size Step bufSize '1GB
                fw.Write(Bytes)
            Next

            Dim EndWrite As Date = Date.Now
            Dim TimePassed As TimeSpan = EndWrite.Subtract(StartWrite)
            StatusBar1.Panels(0).Text = "结束写数据测试时间：" & EndWrite
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "写数据测试用时：" & Format(TimePassed.ToString, "h:m:s")
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "硬盘写数据速度为：" & CInt(1000 / TimePassed.TotalSeconds) & "M/s"
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            fw.Flush()
            Dim StartRead As Date = Date.Now
            StatusBar1.Panels(0).Text = "开始读数据测试时间：" & StartRead
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "正在进行读数据测试,请稍候..."
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine

            For I = 0 To Size Step bufSize
                Bytes = fr.ReadBytes(bufSize)
            Next

Dim EndRead As Date = Date.Now
TimePassed = EndRead.Subtract(StartRead)

            StatusBar1.Panels(0).Text = "结束读数据测试时间：" & EndRead
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "读数据测试用时：" & Format(TimePassed.ToString, "hh:ss:mm")
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            StatusBar1.Panels(0).Text = "硬盘读数据速度为：" & CInt(1000 / TimePassed.TotalSeconds) & "M/s"
            testString = testString & StatusBar1.Panels(0).Text & Environment.NewLine
            fw.Close()
            Me.Cursor = Cursors.Default
            If MessageBox.Show(testString & Environment.NewLine & Environment.NewLine & _
            "测试已经完成,是否保存测试记录?", "测试完成", _
            MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then

            End If
        End If
    End Sub

#Region "dfd"
    Function processorfamily(ByVal procssfam As String) As String
        Dim processtype As String = String.Empty
        Select Case procssfam
            Case 1
                processtype = "Other"
            Case 2
                processtype = "Unknown "
            Case 3
                processtype = "8086 "
            Case 4
                processtype = "80286 "
            Case 5
                processtype = "80386 "
            Case 6
                processtype = "80486 "
            Case 7
                processtype = "8087 "
            Case 8
                processtype = "80287 "
            Case 9
                processtype = "80387 "
            Case 10
                processtype = "80487 "
            Case 11
                processtype = "Pentium brand "
            Case 12
                processtype = "Pentium Pro "
            Case 13
                processtype = "Pentium II "
            Case 14
                processtype = "Pentium processor with MMX technology "
            Case 15
                processtype = "Celeron "
            Case 16
                processtype = "Pentium II Xeon "
            Case 17
                processtype = "Pentium III "
            Case 18
                processtype = "M1 Family "
            Case 19
                processtype = "M2 Family "
            Case 24
                processtype = "K5 Family "
            Case 25
                processtype = "K6 Family "
            Case 26
                processtype = "K6-2 "
            Case 27
                processtype = "K6-3 "
            Case 28
                processtype = "AMD Athlon Processor Family "
            Case 29
                processtype = "AMD Duron Processor "
            Case 30
                processtype = "AMD2900 Family "
            Case 31
                processtype = "K6-2+ "
            Case 32
                processtype = "Power PC Family "
            Case 33
                processtype = "Power PC 601 "
            Case 34
                processtype = "Power PC 603 "
            Case 35
                processtype = "Power PC 603+ "
            Case 36
                processtype = "Power PC 604 "
            Case 37
                processtype = "Power PC 620 "
            Case 38
                processtype = "Power PC X704 "
            Case 39
                processtype = "Power PC 750 "
            Case 48
                processtype = "Alpha Family "
            Case 49
                processtype = "Alpha 21064 "
            Case 50
                processtype = "Alpha 21066 "
            Case 51
                processtype = "Alpha 21164 "
            Case 52
                processtype = "Alpha 21164PC "
            Case 53
                processtype = "Alpha 21164a "
            Case 54
                processtype = "Alpha 21264 "
            Case 55
                processtype = "Alpha 21364 "
            Case 64
                processtype = "MIPS Family "
            Case 65
                processtype = "MIPS R4000 "
            Case 66
                processtype = "MIPS R4200 "
            Case 67
                processtype = "MIPS R4400 "
            Case 68
                processtype = "MIPS R4600 "
            Case 69
                processtype = "MIPS R10000 "
            Case 80
                processtype = "SPARC Family "
            Case 81
                processtype = "SuperSPARC "
            Case 82
                processtype = "microSPARC II "
            Case 83
                processtype = "microSPARC IIep "
            Case 84
                processtype = "UltraSPARC "
            Case 85
                processtype = "UltraSPARC II "
            Case 86
                processtype = "UltraSPARC IIi "
            Case 87
                processtype = "UltraSPARC III "
            Case 88
                processtype = "UltraSPARC IIIi "
            Case 96
                processtype = "68040 "
            Case 97
                processtype = "68xxx Family "
            Case 98
                processtype = "68000 "
            Case 99
                processtype = "68010 "
            Case 100
                processtype = "68020 "
            Case 101
                processtype = "68030 "
            Case 112
                processtype = "Hobbit Family "
            Case 120
                processtype = "Crusoe TM5000 Family "
            Case 121
                processtype = "Crusoe TM3000 Family "
            Case 128
                processtype = "Weitek "
            Case 130
                processtype = "Itanium Processor "
            Case 144
                processtype = "PA-RISC Family "
            Case 145
                processtype = "PA-RISC 8500 "
            Case 146
                processtype = "PA-RISC 8000 "
            Case 147
                processtype = "PA-RISC 7300LC "
            Case 148
                processtype = "PA-RISC 7200 "
            Case 149
                processtype = "PA-RISC 7100LC "
            Case 150
                processtype = "PA-RISC 7100 "
            Case 160
                processtype = "V30 Family "
            Case 176
                processtype = "Pentium III Xeon "
            Case 177
                processtype = "Pentium III Processor with Intel SpeedStep Technology "
            Case 178
                processtype = "Pentium 4 "
            Case 179
                processtype = "Intel Xeon "
            Case 180
                processtype = "AS400 Family "
            Case 181
                processtype = "Intel Xeon processor MP "
            Case 182
                processtype = "AMD AthlonXP Family "
            Case 183
                processtype = "AMD AthlonMP Family "
            Case 184
                processtype = "Intel Itanium 2 "
            Case 185
                processtype = "AMD Opteron Family "
            Case 190
                processtype = "K7 "
            Case 200
                processtype = "IBM390 Family "
            Case 201
                processtype = "G4 "
            Case 202
                processtype = "G5 "
            Case 250
                processtype = "i860 "
            Case 251
                processtype = "i960 "
            Case 260
                processtype = "SH-3 "
            Case 261
                processtype = "SH-4 "
            Case 280
                processtype = "ARM "
            Case 281
                processtype = "StrongARM "
            Case 300
                processtype = "6x86 "
            Case 301
                processtype = "MediaGX "
            Case 302
                processtype = "MII "
            Case 320
                processtype = "WinChip "
            Case 350
                processtype = "DSP "
            Case 500
                processtype = "Video Processor "
        End Select
        Return processtype

    End Function
    Function CpuStat(ByVal CpuStNUM As String) As String
        Dim stat As String
        Select Case CpuStNUM
            Case 0
                stat = "Unknown "
            Case 1
                stat = "CPU Enabled "
            Case 2
                stat = "CPU Disabled by User via BIOS Setup "
            Case 3
                stat = "CPU Disabled By BIOS (POST Error) "
            Case 4
                stat = "CPU is Idle "
            Case 5
                stat = "Reserved "
            Case 6
                stat = "Reserved "
            Case 7
                stat = "Other "
            Case Else
                stat = ""
        End Select

Return stat
End Function

    Function processortype(ByVal proctypenum As String) As String
        Dim proctype As String = String.Empty
        Select Case proctypenum
            Case 1
                proctype = "Other "
            Case 2
                proctype = "Unknown "
            Case 3
                proctype = "Central Processor "
            Case 4
                proctype = "Math Processor "
            Case 5
                proctype = "DSP Processor "
            Case 6
                proctype = "Video Processor "
        End Select
        Return proctype
    End Function
#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        '打开CD-ROM
        Dim lRet As Long
        lRet = mciSendString("set cdAudio door open", 0&, 0, 0)
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        '关闭CD-ROM
        Dim lRet As Long
        lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        ' Win32_NetworkAdapterConfiguration()
    End Sub

    '基本信息
    Private Sub BaseInfo()
        IsBaseFirst = False
        lsvSystemInfo.Items.Clear()

        '得到特殊文件夹的路径
        '"Desktop"桌面文件夹路径
        lsvSystemInfo.Items.Add("Desktop桌面文件夹路径：" & (Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)))
        '"Favorites"收藏夹路径
        lsvSystemInfo.Items.Add("Favorites收藏夹路径：" & (Environment.GetFolderPath(Environment.SpecialFolder.Favorites)))
        '"Application Data"路径
        lsvSystemInfo.Items.Add("Application Data路径：" & (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)))

        '通用写法
        'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)
        'XXXXXXX是特殊文件夹的名字

'得到操作系统版本信息
lsvSystemInfo.Items.Add("操作系统版本信息：" & (Environment.OSVersion.ToString))

'得到当前登录的用户名
lsvSystemInfo.Items.Add("前登录的用户名：" & (Environment.UserName))

'得到当前应用程序的路径
lsvSystemInfo.Items.Add("当前应用程序的路径：" & (Environment.CurrentDirectory))

        '得到计算机IP和计算机全名
        Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
        lsvSystemInfo.Items.Add("您的IP地址：" & (MYIP.AddressList.GetValue(0).ToString))
        lsvSystemInfo.Items.Add("您的计算机全名：" & (MYIP.HostName.ToString))

'-----------------------------------------------------

        '使用win32_operatingSystem (wmi Class)得到计算机信息
        Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
        Dim opInfo As ManagementObject
        For Each opInfo In opSearch.Get()
            With lsvSystemInfo.Items
                .Add("Name: " & opInfo("name").ToString())
                .Add("Version: " & opInfo("version").ToString())
                .Add("Manufacturer: " & opInfo("manufacturer").ToString())
                .Add("Computer name: " & opInfo("csname").ToString())
                .Add("Windows Directory: " & opInfo("windowsdirectory").ToString())
            End With
        Next

    End Sub
    Private Sub MACinfo()
        IsMACFirst = False
        lsvMAC.Items.Clear()
        '网卡的MAC
        Dim mc As System.Management.ManagementClass = New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()
        Dim mo As System.Management.ManagementObject
        For Each mo In moc
            If CBool(mo("IPEnabled")) = True Then
                lsvMAC.Items.Add(mo("MacAddress").ToString()) '//---网卡MAC地址
                lsvMAC.Items.Add(mo("IPAddress")(0).ToString()) '//---网卡IP地址
            End If
        Next

End Sub

    '得到硬盘信息
    Private Sub HardInfo()
        IsHardFirst = False
        ''获得硬盘序列号
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim Uint32 As UInt32
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            Uint32 = cmicWmiObj("signature")
        Next
        ListBox5.Items.Add("硬盘序列号：" & Uint32.ToString)

        ''获得硬盘总容量
        Dim Wmi1 As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim Uint64 As UInt64
        For Each WmiObj As ManagementObject In Wmi1.Get
            Uint64 = WmiObj("size")
        Next
        ListBox5.Items.Add("硬盘总容量：" & Uint64.ToString / 1000000000 & "G")

        On Error Resume Next
        Dim HDDDeviceQuery As New SelectQuery("Win32_DiskDrive")
        Dim HDDDeviceSearch As New ManagementObjectSearcher(HDDDeviceQuery)
        Dim HDDDeviceInfo As ManagementObject
        For Each HDDDeviceInfo In HDDDeviceSearch.Get()
            With ListBox5.Items
                .Add("HDD Description: " & HDDDeviceInfo("caption").ToString())
                .Add("HDD BytesPerSector: " & HDDDeviceInfo("BytesPerSector").ToString())
                .Add("HDD CompressionMethod: " & HDDDeviceInfo("CompressionMethod").ToString())
                .Add("HDD Index: " & HDDDeviceInfo("Index").ToString())
                .Add("HDD InstallDate: " & HDDDeviceInfo("InstallDate").ToString())
                .Add("HDD Manufacturer: " & HDDDeviceInfo("Manufacturer").ToString())
                .Add("HDD Partitions: " & HDDDeviceInfo("Partitions").ToString())
                .Add("HDD Size: " & Int(Val(HDDDeviceInfo("Size").ToString()) / 2 ^ 30) & " GBytes")
                .Add("HDD TotalCylinders: " & HDDDeviceInfo("TotalCylinders").ToString())
                .Add("HDD TotalSectors: " & HDDDeviceInfo("TotalSectors").ToString())
                .Add("HDD TracksPerCylinder: " & HDDDeviceInfo("TracksPerCylinder").ToString())
                .Add("HDD TotalHeads: " & HDDDeviceInfo("TotalHeads").ToString())
                .Add("HDD TotalTracks: " & HDDDeviceInfo("TotalTracks").ToString())
                .Add("HDD SectorsPerTrack: " & HDDDeviceInfo("SectorsPerTrack").ToString())
                .Add("HDD SCSILogicalUnit: " & HDDDeviceInfo("SCSILogicalUnit").ToString())
            End With
        Next

        '-------------------------------
        '获取硬盘信息
        Dim disk As ManagementBaseObject
        Dim strResult As String
        Dim diskClass As ManagementClass = New ManagementClass("Win32_LogicalDisk")
        Dim disks As ManagementObjectCollection
        disks = diskClass.GetInstances()

        For Each disk In disks
            strResult = ""
            strResult += "设备ID:" & disk("DeviceID") & vbCrLf
            strResult += "磁盘名称:" & disk("Name") & vbCrLf
            strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf
            If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf
            strResult += "磁盘描述:" & disk("Description") & vbCrLf
            If System.Convert.ToInt64(disk("Size")) > 0 Then
                strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf
                strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())
            End If
            lsvHardInfo.Items.Add(strResult)
        Next
    End Sub

    '使用Win32_Processor列出处理器的信息
    Private Sub CPUinfo()
        IsCPUFirst = False
        ''获得CPU序列号
        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim Uint33 As String = String.Empty
        For Each WmiObj As ManagementObject In Wmi.Get
            Uint33 = WmiObj("ProcessorId")
        Next
        ListBox3.Items.Add("CPU序列号：" & Uint33)

        Dim ProcQuery As New SelectQuery("Win32_Processor")
        Dim ProcSearch As New ManagementObjectSearcher(ProcQuery)
        Dim ProcInfo As ManagementObject

For Each ProcInfo In ProcSearch.Get()
lsvSystemInfo.Items.Add("Family: " & processorfamily(ProcInfo("Family").ToString))

lsvSystemInfo.Items.Add("Processor Type: " & _
processortype(ProcInfo("ProcessorType").ToString()))

lsvSystemInfo.Items.Add("CpuStatus: " & CpuStat(ProcInfo("CpuStatus").ToString))

            With ListBox3.Items
                .Add("Description: " & ProcInfo("Description").ToString())
                .Add("caption: " & ProcInfo("caption").ToString())
                .Add("Architecture: " & ProcInfo("Architecture").ToString())
                .Add("MaxClockSpeed: " & ProcInfo("MaxClockSpeed").ToString() & "MHZ")
                '.Add("L2CacheSpeed: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")
                '.Add("ExtClock: " & ProcInfo("L2CacheSpeed").ToString() & "MHZ")
                .Add("ProcessorId: " & ProcInfo("ProcessorId").ToString())
                .Add("AddressWidth: " & ProcInfo("AddressWidth").ToString() & "Bits")
                .Add("DataWidth: " & ProcInfo("DataWidth").ToString() & "Bits")
                .Add("Version: " & ProcInfo("Version").ToString())
                .Add("ExtClock: " & ProcInfo("ExtClock").ToString() & "MHZ")
            End With
        Next
    End Sub

    '显卡信息
    Private Sub VidoInfo()
        IsVidoFirst = False
        '得到显示器分辨率
        Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        lsvVidoInfo.Items.Add("显示器分辨率：" & X & " X " & Y)
    End Sub

    '得到声卡信息
    Private Sub AuidoInfo()
        IsAuidoFirst = False
        Dim SoundDeviceQuery As New SelectQuery("Win32_SoundDevice")
        Dim SoundDeviceSearch As New ManagementObjectSearcher(SoundDeviceQuery)
        Dim SoundDeviceInfo As ManagementObject
        For Each SoundDeviceInfo In SoundDeviceSearch.Get()
            With ListBox6.Items
                .Add("Sound Device Description: " & SoundDeviceInfo("Caption").ToString())
                .Add("Sound Device Status: " & SoundDeviceInfo("status").ToString())
                .Add("Sound Device Manufacturer: " & SoundDeviceInfo("Manufacturer").ToString())
            End With
        Next
    End Sub

    Private Sub FontInfo()
        IsSoftwareFirst = False
        ' 计算机安装的全部字体
        Dim fntCollection As InstalledFontCollection = New InstalledFontCollection
        Dim fntFamily() As FontFamily
        fntFamily = fntCollection.Families
        'ListBox1.Items.Clear()
        Dim i As Integer = 0
        For i = 0 To fntFamily.Length - 1
            ListBox2.Items.Add(fntFamily(i).Name)
        Next

        '列出所有进程
        With lsvProcess
            .Clear()
            .Columns.Add("进程名：", 115, HorizontalAlignment.Left)
            .Columns.Add("路径：", 270, HorizontalAlignment.Left)
        End With
        Dim tempStr As String
        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            Dim lsv As New ListViewItem
            tempStr = cmicWmiObj("Name")
            lsv = lsvProcess.Items.Add(New ListViewItem(tempStr))
            tempStr = cmicWmiObj("ExecutablePath")
            lsv.SubItems.Add(tempStr)
        Next
    End Sub

    '得到CD-ROM信息
    Private Sub ROMinfo()
        IsROMFirst = False
        On Error Resume Next
        Dim CRDeviceQuery As New SelectQuery("Win32_CDROMDrive")
        Dim CRDeviceSearch As New ManagementObjectSearcher(CRDeviceQuery)
        Dim CRDeviceInfo As ManagementObject
        For Each CRDeviceInfo In CRDeviceSearch.Get()
            Dim SizeInMBs As Long = (Val(CRDeviceInfo("Size").ToString()))
            SizeInMBs = Int((SizeInMBs / (1024 * 1024)))
            With ListBox4.Items
                .Add("CD-Rom Description: " & CRDeviceInfo("caption").ToString())
                .Add("CD-Rom Manufacturer: " & CRDeviceInfo("Manufacturer").ToString())
                .Add("CD-Rom Drive: " & CRDeviceInfo("drive").ToString())
                .Add("CD-Rom Media Loaded: " & CRDeviceInfo("MediaLoaded").ToString())
                .Add("CD-Rom Media Type: " & CRDeviceInfo("MediaType").ToString())
                .Add("CD-Rom Volume Name: " & CRDeviceInfo("VolumeName").ToString())
                .Add("CD-Rom Size: " & SizeInMBs & " MBytes")
                .Add("CD-Rom Status: " & CRDeviceInfo("Status").ToString())
                .Add("CD-Rom MaxMediaSize: " & CRDeviceInfo("MaxMediaSize").ToString())
                .Add("CD-Rom Id: " & CRDeviceInfo("Id").ToString())
                .Add("CD-Rom TransferRate: " + Int(CRDeviceInfo("TransferRate").ToString()) + " KBs/秒")
            End With
        Next
    End Sub