<del id="d4fwx"><form id="d4fwx"></form></del>
      <del id="d4fwx"><form id="d4fwx"></form></del><del id="d4fwx"><form id="d4fwx"></form></del>

            <code id="d4fwx"><abbr id="d4fwx"></abbr></code>
          • vb.net獲取硬盤的簡單介紹

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

            Private Function 硬盤序列號() As String

            創(chuàng)新互聯(lián)專注于企業(yè)網(wǎng)絡營銷推廣、網(wǎng)站重做改版、萬山網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5建站、商城網(wǎng)站建設、集團公司官網(wǎng)建設、成都外貿(mào)網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為萬山等各大城市提供網(wǎng)站開發(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 + " " '驅(qū)動器類型

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

            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 + " " '驅(qū)動器容量

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

            End If

            TextBox1.Text = TextBox1.Text + vbNewLine

            Next

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

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

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

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

            廣告

            聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:[email protected]。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

            網(wǎng)站建設網(wǎng)站維護公司

              <del id="d4fwx"><form id="d4fwx"></form></del>
              <del id="d4fwx"><form id="d4fwx"></form></del><del id="d4fwx"><form id="d4fwx"></form></del>

                    <code id="d4fwx"><abbr id="d4fwx"></abbr></code>
                  • 超碰在线大家操 | 大屌视频网站 | 一几毛片 | 精品999久久久一级毛片 | 天天干天天射天天干 |