win7下vb.net 如何獲取硬盤序列號

Private Function 硬盤序列號() As String

創(chuàng)新互聯(lián)專注于企業(yè)網絡營銷推廣、網站重做改版、萬山網站定制設計、自適應品牌網站建設、H5建站、商城網站建設、集團公司官網建設、成都外貿網站建設、高端網站制作、響應式網頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為萬山等各大城市提供網站開發(fā)制作服務。

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

Try

Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")

硬盤序列號 = Trim(myInfo.GetValue("SerialNumber"))

Catch

硬盤序列號 = ""

End Try

End Try

End Function

試下，如果返回為空，則表示失敗。

在本機win8win8.1有效，不過好像在有些機器上沒用。

vb.net如何獲取電腦中的所有盤符

首先使用 System.IO.DriveInfo.GetDrives()獲取System.IO.DriveInfo，存入ds()

然后遍歷ds，獲取各個信息部分。

Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

For i As Integer = 0 To ds.Length - 1

TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " '驅動器類型

TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盤符（驅動器名）

TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就緒

If ds(i).IsReady = True Then

TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷標

TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驅動器容量

TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驅動器可用容量

End If

TextBox1.Text = TextBox1.Text + vbNewLine

Next

VB.NET獲取硬盤信息的幾種方法

總結：在VB.NET中，用API函數(shù)可以獲取硬盤信息。原來熟悉API函數(shù)VB6程序員，可以對API函數(shù)聲明進行適當?shù)母暮螅M行調用。利用FSO（文件系統(tǒng)對象）的Scrrun.DLL，也可以獲得磁盤信息。

分享標題：vb.net獲取硬盤的簡單介紹
當前鏈接：http://chinadenli.net/article42/hgcshc.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供App設計、網站建設、企業(yè)網站制作、建站公司、網站收錄、外貿建站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)