.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VB.NET获取硬盘信息的几种方法

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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

 

 

 

1、用API函数GetDiskFreeSpaceEx获取磁盘空间

 

    Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _

        (ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _

        ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long

 

   Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click

        Dim BytesFreeToCalller As Long, TotalBytes As Long

        Dim TotalFreeBytes As Long, TotalBytesUsed As Long

        Dim strResult As String

        Const RootPathName = "C:\"

        Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)

        strResult = " Drive " & "C:\" & vbCrLf

        strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf

        strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf

        strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf

        MsgBox(strResult)

    End Sub

 

 

2、用FSO(文件系统对象模型)实现

FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:

在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime

在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:

 

Imports Scripting

 

    Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click

        Dim Fso As New FileSystemObject

        Dim drvDisk As Drive, strResult As String

        drvDisk = Fso.GetDrive("C:\")

        strResult = "Drive " & "C:\" & vbCrLf

        strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf

        strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf

        strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf

        strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf

        strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

        strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

        strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)

        MsgBox(strResult)

    End Sub

 

 

3、用API函数GetVolumeInformation获取逻辑盘序列号

 

    Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _

     (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal _

     nVolumeNameSize As Integer, ByRef lpVolumeSerialNumber As Long, _

     ByVal lpMaximumComponentLength As Integer, ByVal lpFileSystemFlags As Integer, ByVal _

     lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Integer) As Integer

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim SerialNumber As Long

        Dim TempStr1 As New String(Chr(0), 255)

        Dim TempStr2 As New String(Chr(0), 255)

        Dim TempInt1, TempInt2 As Integer

        GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)

        MsgBox("C盘序列号:" & SerialNumber)

    End Sub

 

 

 

4、利用WMI获取硬盘信息

Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构,它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。

我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

 

Imports System.Management

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim disk As ManagementBaseObject

        Dim strResult As String

        Dim diskClass = 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

            MsgBox(strResult)

        Next

    End Sub

 

 

总结:在VB.NET中,用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员,可以对API函数声明进行适当的更改后,进行调用。利用FSO(文件系统对象)的Scrrun.DLL,也可以获得磁盘信息。在.net Framwork中,利用WMI可以获取更多的关于机器硬件的详细信息(参考System.Management命名空间)

 

声明:本文版权与解释权归李洪根所有,如需转载,请保留完整的内容及此声明。

QQ: 21177563  

MSN: [email protected]

专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/

 

 

 




相关文章

相关软件