建站
咨詢
售后
建站咨詢
新聞中心
win7下vb.net 如何獲取硬盤序列號(hào)
Private Function 硬盤序列號(hào)() As String
我們提供的服務(wù)有：網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、景縣ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的景縣網(wǎng)站制作公司
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")
硬盤序列號(hào) = 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")
硬盤序列號(hào) = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盤序列號(hào) = ""
End Try
End Try
End Function
試下，如果返回為空，則表示失敗。
在本機(jī)win8win8.1有效，不過(guò)好像在有些機(jī)器上沒(méi)用。
vb.net如何獲取電腦中的所有盤符
首先使用 System.IO.DriveInfo.GetDrives()獲取System.IO.DriveInfo，存入ds()
然后遍歷ds，獲取各個(gè)信息部分。
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ū)動(dòng)器類型
TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盤符（驅(qū)動(dòng)器名）
TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就緒
If ds(i).IsReady = True Then
TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷標(biāo)
TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驅(qū)動(dòng)器容量
TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驅(qū)動(dòng)器可用容量
End If
TextBox1.Text = TextBox1.Text + vbNewLine
Next
VS2010中怎么獲取cpu或者硬盤序列號(hào)。用vb.net。想編一個(gè)注冊(cè)碼的軟件
Private Function 硬盤序列號(hào)() As String
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")
硬盤序列號(hào) = 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")
硬盤序列號(hào) = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盤序列號(hào) = ""
End Try
End Try
End Function
只在我的電腦上試過(guò)，你試下
VB.NET獲取硬盤信息的幾種方法
總結(jié)：在VB.NET中，用API函數(shù)可以獲取硬盤信息。原來(lái)熟悉API函數(shù)VB6程序員，可以對(duì)API函數(shù)聲明進(jìn)行適當(dāng)?shù)母暮?，進(jìn)行調(diào)用。利用FSO（文件系統(tǒng)對(duì)象）的Scrrun.DLL，也可以獲得磁盤信息。
VB如何獲取機(jī)器碼（硬盤碼、主板碼等)
'引用api獲得硬盤序列號(hào)
Private Declare Function MymachineC Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
Dim AA, 硬盤序列號(hào), Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = MymachineC("c:\", VolName, 256, 硬盤序列號(hào), Maxlen, Sysflag, FsysName, 256)
msgbox "C硬盤序列號(hào)-機(jī)器碼啦-(16制): " Hex(硬盤序列號(hào))
End Sub
這樣就搞定了
win64 下如何用VB獲取硬盤參數(shù),序列號(hào)?
private Declare Function MymachineC Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
dim ReturnValue As Long, HDSN, MaxLen As Long, SysFlag As Long, VolName As String, fSysName As String
private sub commadn1_click()
ReturnValue = MymachineC("C:\", VolName, 256, HDSN, MaxLen, SysFlag, fSysName, 256)
msgbox hdsn,,"硬盤序列號(hào)"
end sub
當(dāng)前文章：vb.net獲取硬盤號(hào),vb讀取硬盤序列號(hào)
文章轉(zhuǎn)載：http://fisionsoft.com.cn/article/hsodph.html
