日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

VB.NET中對于硬件操作的方式是比較簡單的。比如在對VB.NET獲取硬盤信息的操作中，就可以通過集中方式來進行。隨開發(fā)人員的需求而選擇。下面就讓我們一起來體驗這一靈活方便的編程方式。#t#

VB.NET獲取硬盤信息1、用API函數(shù)GetDiskFreeSpaceEx獲取磁盤空間

1. Private Declare Function GetDiskFree
   SpaceEx 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. Private Sub btnDisk_Click(ByVal sender 
   As System.Object, ByVal e As System.
   EventArgs) Handles btnDisk.Click  
5. Dim BytesFreeToCalller As Long, 
   TotalBytes As Long  
6. Dim TotalFreeBytes As Long, 
   TotalBytesUsed As Long  
7. Dim strResult As String  
8. Const RootPathName = "C:\" 
9. Call GetDiskFreeSpaceEx(RootPathName, 
   BytesFreeToCalller, TotalBytes, 
   TotalFreeBytes)  
10. strResult = " Drive " & "C:\" & vbCrLf  
11. strResult += "磁盤容量(MB):" & Format
    (CDbl((TotalBytes / 1024) / 1024), 
    "###,###,##0.00") & vbCrLf  
12. strResult += "可用空間(MB):" & Format
    (CDbl((TotalFreeBytes / 1024) / 1024), 
    "###,###,##0.00") & vbCrLf  
13. strResult += "已用空間(MB):" & Format
    (CDbl(((TotalBytes - TotalFreeBytes) 
    / 1024) / 1024), "###,###,##0.00") & vbCrLf  
14. MsgBox(strResult)  
15. End Sub 

VB.NET獲取硬盤信息2、用FSO(文件系統(tǒng)對象模型)實現(xiàn)

FSO對象模型包含在SCRIPTING類型庫(SCRRUN.DLL)中。調(diào)用方法如下：

在項目菜單中選擇引用，在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 += "磁盤卷標(biāo):" & 
drvDisk.VolumeName & vbCrLf  
  
  
  
strResult += "磁盤序列號:" & 
drvDisk.SerialNumber & vbCrLf  
  
  
  
strResult += "磁盤類型:" & 
drvDisk.DriveType & vbCrLf  
  
  
  
strResult += "文件系統(tǒng):" & 
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 
 
 

VB.NET獲取硬盤信息3、用API函數(shù)GetVolumeInformation獲取邏輯盤序列號

 
 
 
  
  
  
Private Declare Function GetVolume
Information 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 
 
 

#p#

VB.NET獲取硬盤信息4、利用WMI獲取硬盤信息

Windows Management Instrumentation (WMI) 是可伸縮的系統(tǒng)管理結(jié)構(gòu)，它采用一個統(tǒng)一的、基于標(biāo)準的、可擴展的面向?qū)ο蠼涌?。WMI 為您提供與系統(tǒng)管理信息和基礎(chǔ) WMI API 交互的標(biāo)準方法。WMI 主要由系統(tǒng)管理應(yīng)用程序開發(fā)人員和管理員用來訪問和操作系統(tǒng)管理信息。

我們需要使用.net Framwork里面System.Management命名空間下提供的類來實現(xiàn)。

 
 
 
  
  
  
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 += "設(shè)備ID:" & disk
("DeviceID") & vbCrLf  
  
  
  
strResult += "磁盤名稱:" & disk("Name") 
& vbCrLf  
  
  
  
strResult += "磁盤卷標(biāo):" & disk("VolumeName") 
& vbCrLf  
  
  
  
If disk("FileSystem") <> "" Then strResult 
+= "文件系統(tǒng):" & 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 
 
 

總結(jié)：在VB.NET中，用API函數(shù)可以獲取硬盤信息。原來熟悉API函數(shù)VB6程序員，可以對API函數(shù)聲明進行適當(dāng)?shù)母暮?，進行調(diào)用。利用FSO（文件系統(tǒng)對象）的Scrrun.DLL，也可以實現(xiàn)VB.NET獲取硬盤信息。在.net Framwork中，利用WMI可以獲取更多的關(guān)于機器硬件的詳細信息（參考System.Management命名空間）。

網(wǎng)頁標(biāo)題：VB.NET獲取硬盤信息操作方式總結(jié)概覽
網(wǎng)站路徑：http://m.5511xx.com/article/cosopec.html