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

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET獲取硬盤信息四大法寶

VB.NET還是比較常用的，于是我研究了一下VB.NET獲取硬盤信息，看完本文你肯定有不少收獲，希望本文能教會你更多東西。

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

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

2、VB.NET獲取硬盤信息之二：用FSO(文件系統(tǒng)對象模型)實現(xiàn)
FSO對象模型包含在SCRIPTING類型庫(SCRRUN.DLL)中。在項目菜單中選擇引用，在COM中選擇Microsoft Scripting Runtime在代碼最頂端添加Imports Scripting，在按鈕的單擊事件中加入以下代碼：

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

3、VB.NET獲取硬盤信息之三：用API函數(shù)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.   
  
  
  2.  
    3.   
  
  
  3. Private Sub Button2_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button2.Click  
    4.   
  
  
  4. Dim SerialNumber As Long  
    5.   
  
  
  5. Dim TempStr1 As New String(Chr(0), 255)  
    6.   
  
  
  6. Dim TempStr2 As New String(Chr(0), 255)  
    7.   
  
  
  7. Dim TempInt1, TempInt2 As Integer  
    8.   
  
  
  8. GetVolumeInformation("C:\", TempStr1, 256, SerialNumber, TempInt1, TempInt2, TempStr2, 256)  
    9.   
  
  
  9. MsgBox("C盤序列號:" & SerialNumber)  
    10.   
  
  
  10. End Sub 
    11.

4、VB.NET獲取硬盤信息之四：利用WMI獲取硬盤信息
Windows Management Instrumentation (WMI) 是可伸縮的系統(tǒng)管理結(jié)構(gòu)，它采用一個統(tǒng)一的、基于標準的、可擴展的面向?qū)ο蠼涌?。WMI 為您提供與系統(tǒng)管理信息和基礎(chǔ) WMI API 交互的標準方法。WMI 主要由系統(tǒng)管理應(yīng)用程序開發(fā)人員和管理員用來訪問和操作系統(tǒng)管理信息。我們需要使用.net Framwork里面System.Management命名空間下提供的類來實現(xiàn)。

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

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

【編輯推薦】

  1. 概括VB.NET使用OracleTransaction
  2. 五分鐘了解VB.NET類構(gòu)造
  3. 討論奇妙的VB.NET屬性
  4. 詳談VB.NET編碼規(guī)范經(jīng)驗
  5. 自己動手實現(xiàn)VB.NET控件數(shù)組

文章名稱：VB.NET獲取硬盤信息四大法寶
瀏覽路徑：http://m.5511xx.com/article/djcdhjs.html