vb.net提取硬件碼 vb中提取身份證的代碼
vb獲取硬件信息的代碼
tmpstr=""
創(chuàng)新互聯(lián)建站專注于澤普網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供澤普營(yíng)銷型網(wǎng)站建設(shè)，澤普網(wǎng)站制作、澤普網(wǎng)頁(yè)設(shè)計(jì)、澤普網(wǎng)站官網(wǎng)定制、小程序制作服務(wù)，打造澤普網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供澤普網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
set fso=createObject("scripting.filesystemObject")
Set dc = fso.Drives
for each d in dc
If d.isReady Then
tmpstr=tmpstr "磁盤" d.DriveLetter ":" vbcrlf _
"可用空間：" (d.AvailableSpace/1024/1024/1024) " GB" vbcrlf _
"空余空間：" (d.FreeSpace/1024/1024/1024) " GB" ?vbcrlf _
"總空間大小：" (d.TotalSize/1024/1024/1024) " GB" ?vbcrlf _
"文件系統(tǒng)：" d.FileSystem vbcrlf _
"驅(qū)動(dòng)器類型：" d.DriveType vbcrlf _
"是否就緒：" d.IsReady vbcrlf _
"路徑：" d.Path vbcrlf _
"根目錄：" d.RootFolder vbcrlf _
"序列號(hào)：" d.SerialNumber vbcrlf _
"共享名：" d.ShareName vbcrlf _
"卷名：" d.VolumeName vbcrlf vbcrlf
End If
Next
msgbox tmpstr
VB獲取電腦機(jī)器碼
很難達(dá)到你的要求的,VB好像是獲取不到硬盤的物理序列號(hào)的,只能獲取到某一個(gè)分區(qū)的序列號(hào).不過(guò)可以調(diào)用其它的程序?qū)懙墨@取硬盤物理序列號(hào)的dll來(lái)獲取,CPU的序列號(hào)我用的是wmi.VB本來(lái)對(duì)底層方面就不是很好
引用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
求人?。?！VB.net 獲取硬件信息?。?！
顯卡：
Private Sub get_disp_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = "Name"
name(1) = "Caption"
name(2) = "ColorPlanes"
name(3) = "Description"
name(4) = "RefreshRate"
name(5) = "SettingID"
name(6) = "VideoMode"
name(7) = "VerticalResolution"
name(8) = "SystemPaletteEntries"
name(9) = "ReservedSystemPaletteEntries"
name(10) = "BitsPerPixel"
name(11) = "DeviceEntriesInAColorTable"
name(12) = "DeviceSpecificPens"
name(13) = "HorizontalResolution"
Dim opt As New System.Management.ManagementObjectSearcher("Select * from Win32_DisplayControllerConfiguration")
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 13
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = ""
End Try
Next
For i = 0 To 14
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_disp.Items.Add(newitem1)
Next
Next
End Sub
主板驅(qū)動(dòng)信息：
Private Sub get_bois_info()
Dim i As Integer
Dim info(50) As String
Dim name(50) As String
Dim j As Integer
name(0) = "Name"
name(1) = "Caption"
name(2) = "SerialNumber"
name(3) = "Manufacturer"
name(4) = "Description"
name(5) = "PrimaryBIOS"
name(6) = "Version"
name(7) = "Status"
name(8) = "BuildNumber"
name(9) = "CodeSet"
name(10) = "CurrentLanguage"
name(11) = "IdentificationCode"
name(12) = "InstallableLanguages"
name(13) = "InstallDate"
name(14) = "LanguageEdition"
name(15) = "OtherTargetOS"
name(16) = "ReleaseDate"
name(17) = "SMBIOSBIOSVersion"
name(18) = "SMBIOSMajorVersion"
name(19) = "SMBIOSMinorVersion"
name(20) = "SMBIOSPresent"
name(21) = "SoftwareElementID"
name(22) = "SoftwareElementState"
name(23) = "TargetOperatingSystem"
name(24) = "ListOfLanguages"
name(25) = "BIOSVersion"
name(26) = "BiosCharacteristics"
Dim k As Integer
Dim opt As New System.Management.ManagementObjectSearcher("Select * from Win32_BIOS")
For Each obj2 As System.Management.ManagementObject In opt.Get
For j = 0 To 23
Try
info(j) = obj2(name(j))
Catch ex As Exception
info(j) = ""
End Try
Next
Try
info(24) = ""
For k = 0 To obj2(name(24)).length - 1
info(24) += obj2(name(24))(k)
Next
Catch ex As Exception
info(24) = ""
End Try
Try
info(25) = ""
For k = 0 To obj2(name(25)).length - 1
info(25) += obj2(name(25))(k)
Next
Catch ex As Exception
info(25) = ""
End Try
Try
info(26) = ""
For k = 0 To obj2(name(26)).length - 1
info(26) += obj2(name(26))(k)
Next
Catch ex As Exception
info(26) = ""
End Try
For i = 0 To 27
Dim newitem1 As New ListViewItem(name(i))
newitem1.SubItems.Add(info(i))
List_bois.Items.Add(newitem1)
Next
Next
End Sub
分享題目：vb.net提取硬件碼 vb中提取身份證的代碼
轉(zhuǎn)載注明：http://m.jiaotiyi.com/article/dojoshj.html