VB.NET下获取硬盘信息的几种方法
来源:互联网 发布:php怎样解决高并发 编辑:程序博客网 时间:2024/04/30 21:12
VB.NET下获取硬盘信息的几种方法
1、用API函数GetDiskFreeSpaceEx获取磁盘空间
PrivateDeclareFunction GetDiskFreeSpaceEx Lib"kernel32"Alias"GetDiskFreeSpaceExA" _
(ByVal lpDirectoryName AsString, ByRef lpFreeBytesAvailableToCaller AsLong, _
ByRef lpTotalNumberOfBytes AsLong, ByRef lpTotalNumberOfFreeBytes AsLong) AsLong
PrivateSub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click
Dim BytesFreeToCalller AsLong, TotalBytes AsLong
Dim TotalFreeBytes AsLong, TotalBytesUsed AsLong
Dim strResult AsString
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)
EndSub
2、用FSO(文件系统对象模型)实现
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:
在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime
在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:
Imports Scripting
PrivateSub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click
Dim Fso AsNew FileSystemObject
Dim drvDisk As Drive, strResult AsString
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)
EndSub
3、用API函数GetVolumeInformation获取逻辑盘序列号
PrivateDeclareFunction GetVolumeInformation Lib"kernel32"Alias"GetVolumeInformationA" _
(ByVal lpRootPathName AsString, ByVal lpVolumeNameBuffer AsString, ByVal _
nVolumeNameSize AsInteger, ByRef lpVolumeSerialNumber AsLong, _
ByVal lpMaximumComponentLength AsInteger, ByVal lpFileSystemFlags AsInteger, ByVal _
lpFileSystemNameBuffer AsString, ByVal nFileSystemNameSize AsInteger) AsInteger
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SerialNumber AsLong
Dim TempStr1 AsNewString(Chr(0), 255)
Dim TempStr2 AsNewString(Chr(0), 255)
Dim TempInt1, TempInt2 AsInteger
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
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim disk As ManagementBaseObject
Dim strResult AsString
Dim diskClass = New ManagementClass("Win32_LogicalDisk")
Dim disks As ManagementObjectCollection
disks = diskClass.GetInstances()
ForEach 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())
EndIf
MsgBox(strResult)
Next
EndSub
总结:在VB.NET中,用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员,可以对API函数声明进行适当的更改后,进行调用。利用FSO(文件系统对象)的Scrrun.DLL,也可以获得磁盘信息。在.net Framwork中,利用WMI可以获取更多的关于机器硬件的详细信息(参考System.Management命名空间)。
声明:本文版权与解释权归李洪根所有,如需转载,请保留完整的内容及此声明。
- VB.NET下获取硬盘信息的几种方法
- VB.NET下获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- VB.NET获取硬盘信息的几种方法
- [转载]VB.NET下获取硬盘信息的几种方法
- [转] VB.NET下获取硬盘信息的几种方法
- Net中获取IP信息的几种方法
- VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息
- VB.NET的几种延时方法
- VB获取硬盘逻辑序列号的方法
- linux下获取硬盘的序列号信息
- VB.NET连各种数据库的几种方法
- VB.NET连接数据库的几种方法
- 几种经典的二值化方法及其vb.net实现
- 几种经典的二值化方法及其vb.net实现
- VB.Net 中实现延迟的几种方法分析
- .NET获取硬盘序列号的几个方法
- VB.NET实现PhotoShop的流动选取框
- 自己搭建struts2+spring工程笔记
- VB.NET启动外部程序
- 让英文操作系统正确显示中文[转]
- U8成本管理应用
- VB.NET下获取硬盘信息的几种方法
- Shell变量名使用的特殊字符
- VB.Net创建不规则窗体
- 51cto--kiddymeet之:[SEO]google算法更改导致的博客收录下降
- 转--在jbuilder和netbeans中打jar包发布程序
- 用Attributes.Add添加事件
- #pragma详细解释
- MyEclipse 快捷方式
- 转--linux mount设置