Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> Vb.net教程 >> 正文

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命名空间)。

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有