VB.NET获取硬盘信息四大法宝
创始人
2024-06-09 18:41:54
0

VB.NET还是比较常用的,于是我研究了一下VB.NET获取硬盘信息,看完本文你肯定有不少收获,希望本文能教会你更多东西。

1、VB.NET获取硬盘信息之一:用API函数GetDiskFreeSpaceEx获取磁盘空间

  1. Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _  
  2. (ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _  
  3. ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long  
  4.  
  5. Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click  
  6. Dim BytesFreeToCalller As Long, TotalBytes As Long  
  7. Dim TotalFreeBytes As Long, TotalBytesUsed As Long  
  8. Dim strResult As String  
  9. Const RootPathName = "C:\" 
  10. Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)  
  11. strResult = " Drive " & "C:\" & vbCrLf  
  12. strResult += "磁盘容量(MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf  
  13. strResult += "可用空间(MB):" & Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf  
  14. strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf  
  15. MsgBox(strResult)  
  16. End Sub 

2、VB.NET获取硬盘信息之二:用FSO(文件系统对象模型)实现
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:

  1. Imports Scripting  
  2.  
  3. Private Sub btnFso_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles btnFso.Click  
  4. Dim Fso As New FileSystemObject  
  5. Dim drvDisk As Drive, strResult As String  
  6. drvDisk = Fso.GetDrive("C:\")  
  7. strResult = "Drive " & "C:\" & vbCrLf  
  8. strResult += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf  
  9. strResult += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf  
  10. strResult += "磁盘类型:" & drvDisk.DriveType & vbCrLf  
  11. strResult += "文件系统:" & drvDisk.FileSystem & vbCrLf  
  12. strResult += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024) / 1024) / 1024, 2,
    Microsoft.VisualBasic.TriState.True) & vbCrLf  
  13. strResult += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024) / 1024) / 1024, 2,
    Microsoft.VisualBasic.TriState.True) & vbCrLf  
  14. strResult += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 
    1024) / 1024) / 1024), 2, , , Microsoft.VisualBasic.TriState.True)  
  15. MsgBox(strResult)  
  16. End Sub 

3、VB.NET获取硬盘信息之三:用API函数GetVolumeInformation获取逻辑盘序列号

  1. 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  
  2.  
  3. Private Sub Button2_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button2.Click  
  4. Dim SerialNumber As Long  
  5. Dim TempStr1 As New String(Chr(0), 255)  
  6. Dim TempStr2 As New String(Chr(0), 255)  
  7. Dim TempInt1, TempInt2 As Integer  
  8. GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)  
  9. MsgBox("C盘序列号:" & SerialNumber)  
  10. End Sub 

4、VB.NET获取硬盘信息之四:利用WMI获取硬盘信息
Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构,它采用一个统一的、基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。我们需要使用.net Framwork里面System.Management命名空间下提供的类来实现。

  1. Private Sub Button3_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button3.Click  
  2. Dim disk As ManagementBaseObject  
  3. Dim strResult As String  
  4. Dim diskClass = New ManagementClass("Win32_LogicalDisk")  
  5. Dim disks As ManagementObjectCollection  
  6. disks = diskClass.GetInstances()  
  7. For Each disk In disks  
  8. strResult = "" 
  9. strResult += "设备ID:" & disk("DeviceID") & vbCrLf  
  10. strResult += "磁盘名称:" & disk("Name") & vbCrLf  
  11. strResult += "磁盘卷标:" & disk("VolumeName") & vbCrLf  
  12. If disk("FileSystem") <> "" Then strResult += "文件系统:" & disk("FileSystem") & vbCrLf  
  13. strResult += "磁盘描述:" & disk("Description") & vbCrLf  
  14. If System.Convert.ToInt64(disk("Size")) > 0 Then  
  15. strResult += "磁盘大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf  
  16. strResult += "磁盘类型:" & System.Convert.ToInt16(disk("DriveType").ToString())  
  17. End If  
  18. MsgBox(strResult)  
  19. Next  
  20. End Sub 

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

【编辑推荐】

  1. 概括VB.NET使用OracleTransaction
  2. 五分钟了解VB.NET类构造
  3. 讨论奇妙的VB.NET属性
  4. 详谈VB.NET编码规范经验
  5. 自己动手实现VB.NET控件数组

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...
《非诚勿扰》红人闫凤娇被曝厕所... 【51CTO.com 综合消息360安全专家提醒说,“闫凤娇”、“非诚勿扰”已经被黑客盯上成为了“木...
2012年第四季度互联网状况报... [[71653]]  北京时间4月25日消息,据国外媒体报道,全球知名的云平台公司Akamai Te...