建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
VB.NET還是比較常用的，于是我研究了一下VB.NET獲取硬盤(pán)信息，看完本文你肯定有不少收獲，希望本文能教會(huì)你更多東西。
1、VB.NET獲取硬盤(pán)信息之一：用API函數(shù)GetDiskFreeSpaceEx獲取磁盤(pán)空間
- 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 += "磁盤(pán)容量(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、VB.NET獲取硬盤(pán)信息之二：用FSO(文件系統(tǒng)對(duì)象模型)實(shí)現(xiàn)
FSO對(duì)象模型包含在SCRIPTING類(lèi)型庫(kù)(SCRRUN.DLL)中。在項(xiàng)目菜單中選擇引用，在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 += "磁盤(pán)卷標(biāo):" & drvDisk.VolumeName & vbCrLf
- strResult += "磁盤(pán)序列號(hào):" & drvDisk.SerialNumber & vbCrLf
- strResult += "磁盤(pán)類(lèi)型:" & drvDisk.DriveType & vbCrLf
- strResult += "文件系統(tǒng):" & drvDisk.FileSystem & vbCrLf
- strResult += "磁盤(pán)容量(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、VB.NET獲取硬盤(pán)信息之三：用API函數(shù)GetVolumeInformation獲取邏輯盤(pán)序列號(hào)
- 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盤(pán)序列號(hào):" & SerialNumber)
- End Sub
4、VB.NET獲取硬盤(pán)信息之四：利用WMI獲取硬盤(pán)信息
Windows Management Instrumentation (WMI) 是可伸縮的系統(tǒng)管理結(jié)構(gòu)，它采用一個(gè)統(tǒng)一的、基于標(biāo)準(zhǔn)的、可擴(kuò)展的面向?qū)ο蠼涌?。WMI 為您提供與系統(tǒng)管理信息和基礎(chǔ) WMI API 交互的標(biāo)準(zhǔn)方法。WMI 主要由系統(tǒng)管理應(yīng)用程序開(kāi)發(fā)人員和管理員用來(lái)訪(fǎng)問(wèn)和操作系統(tǒng)管理信息。我們需要使用.net Framwork里面System.Management命名空間下提供的類(lèi)來(lái)實(shí)現(xiàn)。
- 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 += "設(shè)備ID:" & disk("DeviceID") & vbCrLf
- strResult += "磁盤(pán)名稱(chēng):" & disk("Name") & vbCrLf
- strResult += "磁盤(pán)卷標(biāo):" & disk("VolumeName") & vbCrLf
- If disk("FileSystem") <> "" Then strResult += "文件系統(tǒng):" & disk("FileSystem") & vbCrLf
- strResult += "磁盤(pán)描述:" & disk("Description") & vbCrLf
- If System.Convert.ToInt64(disk("Size")) > 0 Then
- strResult += "磁盤(pán)大小:" & System.Convert.ToInt64(disk("Size").ToString()) & vbCrLf
- strResult += "磁盤(pán)類(lèi)型:" & System.Convert.ToInt16(disk("DriveType").ToString())
- End If
- MsgBox(strResult)
- Next
- End Sub
總結(jié)：在VB.NET中，用API函數(shù)可以獲取硬盤(pán)信息。原來(lái)熟悉API函數(shù)VB6程序員，可以對(duì)API函數(shù)聲明進(jìn)行適當(dāng)?shù)母暮?，進(jìn)行調(diào)用。利用FSO（文件系統(tǒng)對(duì)象）的Scrrun.DLL，也可以獲得磁盤(pán)信息。在.net Framwork中，利用WMI可以獲取更多的關(guān)于機(jī)器硬件的詳細(xì)信息（參考System.Management命名空間）。
【編輯推薦】
- 概括VB.NET使用OracleTransaction
- 五分鐘了解VB.NET類(lèi)構(gòu)造
- 討論奇妙的VB.NET屬性
- 詳談VB.NET編碼規(guī)范經(jīng)驗(yàn)
- 自己動(dòng)手實(shí)現(xiàn)VB.NET控件數(shù)組
新聞標(biāo)題：VB.NET獲取硬盤(pán)信息四大法寶
文章鏈接：http://fisionsoft.com.cn/article/djcdhjs.html
