将 HDD Serial # VB6 代码转换为 VB.NET 代码
Posted
技术标签:
【中文标题】将 HDD Serial # VB6 代码转换为 VB.NET 代码【英文标题】：Converting HDD Serial # VB6 code into VB.NET code 【发布时间】：2010-09-21 15:22:04 【问题描述】：我有一段很酷的代码，取自一个 VC++ 项目，它可以在不使用 WMI 的情况下获取硬盘驱动器的完整信息（因为 WMI 有自己的问题）。
我请那些熟悉 API 函数的人尝试将这个 VB6 代码转换为 VB.NET（或 C#），并帮助很多非常需要这个实用程序类的人。
我花了很多时间搜索整个网络以找到获得硬盘实际型号和序列号的方法，最终找到了这个，如果它在.NET中的话......
这里是代码，对于它的格式问题，请把它粘贴到 VB6 IDE 中：
Option Explicit
''// Antonio Giuliana, 2001-2003
''// Costanti per l'individuazione della versione di OS
Private Const VER_PLATFORM_WIN32S = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
''// Costanti per la comunicazione con il driver IDE
Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088
''// Costanti per la CreateFile
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const CREATE_NEW = 1
''// Enumerazione dei comandi per la CmnGetHDData
Private Enum HDINFO
HD_MODEL_NUMBER
HD_SERIAL_NUMBER
HD_FIRMWARE_REVISION
End Enum
''// Struttura per l'individuazione della versione di OS
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
''// Struttura per il campo irDriveRegs della struttura SENDCMDINPARAMS
Private Type IDEREGS
bFeaturesReg As Byte
bSectorCountReg As Byte
bSectorNumberReg As Byte
bCylLowReg As Byte
bCylHighReg As Byte
bDriveHeadReg As Byte
bCommandReg As Byte
bReserved As Byte
End Type
''// Struttura per l'I/O dei comandi al driver IDE
Private Type SENDCMDINPARAMS
cBufferSize As Long
irDriveRegs As IDEREGS
bDriveNumber As Byte
bReserved(1 To 3) As Byte
dwReserved(1 To 4) As Long
End Type
''// Struttura per il campo DStatus della struttura SENDCMDOUTPARAMS
Private Type DRIVERSTATUS
bDriveError As Byte
bIDEStatus As Byte
bReserved(1 To 2) As Byte
dwReserved(1 To 2) As Long
End Type
''// Struttura per l'I/O dei comandi al driver IDE
Private Type SENDCMDOUTPARAMS
cBufferSize As Long
DStatus As DRIVERSTATUS ''// ovvero DriverStatus
bBuffer(1 To 512) As Byte
End Type
''// Per ottenere la versione del SO
Private Declare Function GetVersionEx _
Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
''// Per ottenere un handle al device IDE
Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFileA" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
''// Per chiudere l'handle del device IDE
Private Declare Function CloseHandle _
Lib "kernel32" _
(ByVal hObject As Long) As Long
''// Per comunicare con il driver IDE
Private Declare Function DeviceIoControl _
Lib "kernel32" _
(ByVal hDevice As Long, _
ByVal dwIoControlCode As Long, _
lpInBuffer As Any, _
ByVal nInBufferSize As Long, _
lpOutBuffer As Any, _
ByVal nOutBufferSize As Long, _
lpBytesReturned As Long, _
ByVal lpOverlapped As Long) As Long
''// Per azzerare buffer di scambio dati
Private Declare Sub ZeroMemory _
Lib "kernel32" Alias "RtlZeroMemory" _
(dest As Any, _
ByVal numBytes As Long)
''// Per copiare porzioni di memoria
Private Declare Sub CopyMemory _
Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
Private Declare Function GetLastError _
Lib "kernel32" () As Long
Private mvarCurrentDrive As Byte ''// Drive corrente
Private mvarPlatform As String ''// Piattaforma usata
Public Property Get Copyright() As String
''// Copyright
Copyright = "HDSN Vrs. 1.00, (C) Antonio Giuliana, 2001-2003"
End Property
''// Metodo GetModelNumber
Public Function GetModelNumber() As String
''// Ottiene il ModelNumber
GetModelNumber = CmnGetHDData(HD_MODEL_NUMBER)
End Function
''// Metodo GetSerialNumber
Public Function GetSerialNumber() As String
''// Ottiene il SerialNumber
GetSerialNumber = CmnGetHDData(HD_SERIAL_NUMBER)
End Function
''// Metodo GetFirmwareRevision
Public Function GetFirmwareRevision() As String
''// Ottiene la FirmwareRevision
GetFirmwareRevision = CmnGetHDData(HD_FIRMWARE_REVISION)
End Function
''// Proprieta' CurrentDrive
Public Property Let CurrentDrive(ByVal vData As Byte)
''// Controllo numero di drive fisico IDE
If vData < 0 Or vData > 3 Then
Err.Raise 10000, , "Illegal drive number" ''// IDE drive 0..3
End If
''// Nuovo drive da considerare
mvarCurrentDrive = vData
End Property
''// Proprieta' CurrentDrive
Public Property Get CurrentDrive() As Byte
''// Restituisce drive fisico corrente (IDE 0..3)
CurrentDrive = mvarCurrentDrive
End Property
''// Proprieta' Platform
Public Property Get Platform() As String
''// Restituisce tipo OS
Platform = mvarPlatform
End Property
Private Sub Class_Initialize()
''// Individuazione del tipo di OS
Dim OS As OSVERSIONINFO
OS.dwOSVersionInfoSize = Len(OS)
Call GetVersionEx(OS)
mvarPlatform = "Unk"
Select Case OS.dwPlatformId
Case Is = VER_PLATFORM_WIN32S
mvarPlatform = "32S" ''// Win32S
Case Is = VER_PLATFORM_WIN32_WINDOWS
If OS.dwMinorVersion = 0 Then
mvarPlatform = "W95" ''// Win 95
Else
mvarPlatform = "W98" ''// Win 98
End If
Case Is = VER_PLATFORM_WIN32_NT
mvarPlatform = "WNT" ''// Win NT/2000
End Select
End Sub
Private Function CmnGetHDData(hdi As HDINFO) As String
''// Rilevazione proprieta' IDE
Dim bin As SENDCMDINPARAMS
Dim bout As SENDCMDOUTPARAMS
Dim hdh As Long
Dim br As Long
Dim ix As Long
Dim hddfr As Long
Dim hddln As Long
Dim s As String
Select Case hdi ''// Selezione tipo caratteristica richiesta
Case HD_MODEL_NUMBER
hddfr = 55 ''// Posizione nel buffer del ModelNumber
hddln = 40 ''// Lunghezza nel buffer del ModelNumber
Case HD_SERIAL_NUMBER
hddfr = 21 ''// Posizione nel buffer del SerialNumber
hddln = 20 ''// Lunghezza nel buffer del SerialNumber
Case HD_FIRMWARE_REVISION
hddfr = 47 ''// Posizione nel buffer del FirmwareRevision
hddln = 8 ''// Lunghezza nel buffer del FirmwareRevision
Case Else
Err.Raise 10001, "Illegal HD Data type"
End Select
Select Case mvarPlatform
Case "WNT"
''// Per Win NT/2000 apertura handle al drive fisico
hdh = CreateFile("\\.\PhysicalDrive" & mvarCurrentDrive, _
GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, _
0, OPEN_EXISTING, 0, 0)
Case "W95", "W98"
''// Per Win 9X apertura handle al driver SMART
''// (in \WINDOWS\SYSTEM da spostare in \WINDOWS\SYSTEM\iosUBSYS)
''// che comunica con il driver IDE
hdh = CreateFile("\\.\Smartvsd", _
0, 0, 0, CREATE_NEW, 0, 0)
Case Else
''// Piattaforma non supportata (Win32S)
Err.Raise 10002, , "Illegal platform (only WNT, W98 or W95)"
End Select
''// Controllo validità handle
If hdh = 0 Then
Err.Raise 10003, , "Error on CreateFile"
End If
''// Azzeramento strutture per l'I/O da driver
ZeroMemory bin, Len(bin)
ZeroMemory bout, Len(bout)
''// Preparazione parametri struttura di richiesta al driver
With bin
.bDriveNumber = mvarCurrentDrive
.cBufferSize = 512
With .irDriveRegs
If (mvarCurrentDrive And 1) Then
.bDriveHeadReg = &HB0
Else
.bDriveHeadReg = &HA0
End If
.bCommandReg = &HEC
.bSectorCountReg = 1
.bSectorNumberReg = 1
End With
End With
''// Richiesta al driver
DeviceIoControl hdh, DFP_RECEIVE_DRIVE_DATA, _
bin, Len(bin), bout, Len(bout), br, 0
''// Formazione stringa di risposta
''// da buffer di uscita
''// L'ordine dei byte e' invertito
s = ""
For ix = hddfr To hddfr + hddln - 1 Step 2
If bout.bBuffer(ix + 1) = 0 Then Exit For
s = s & Chr(bout.bBuffer(ix + 1))
If bout.bBuffer(ix) = 0 Then Exit For
s = s & Chr(bout.bBuffer(ix))
Next ix
''// Chiusura handle
CloseHandle hdh
''// Restituzione informazione richiesta
CmnGetHDData = Trim(s)
End Function
【问题讨论】：
也许 refactormycode.com 可能会有所帮助 修复了您的代码格式 - 默认格式不能很好地处理 vb。 【参考方案1】：我找到了！这是等效的 VB.NET 代码。它不完全是 VB6 代码的转换版本，但做同样的事情。尽情享受吧！
Public Class HDDInfo
#Region " Declatrations "
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer
<System.Runtime.InteropServices.DllImport("kernel32.dll")> _
Private Shared Function CloseHandle(ByVal hObject As Integer) As Integer
End Function
<System.Runtime.InteropServices.DllImport("kernel32.dll")> _
Private Shared Function DeviceIoControl(ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, <[In](), Out()> ByVal lpInBuffer As SENDCMDINPARAMS, ByVal lpInBufferSize As Integer, <[In](), Out()> ByVal lpOutBuffer As SENDCMDOUTPARAMS, ByVal lpOutBufferSize As Integer, _
ByRef lpBytesReturned As Integer, ByVal lpOverlapped As Integer) As Integer
End Function
Private Const FILE_SHARE_READ As Short = &H1
Private Const FILE_SHARE_WRITE As Short = &H2
Private Const GENERIC_READ As Integer = &H80000000
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Short = 3
Private Const CREATE_NEW As Short = 1
Private Const VER_PLATFORM_WIN32_NT As Integer = 2
Private Const DFP_RECEIVE_DRIVE_DATA As Integer = &H7C088
Private Const INVALID_HANDLE_VALUE As Integer = -1
#End Region
#Region " Classes "
<StructLayout(LayoutKind.Sequential, Size:=8)> _
Private Class IDEREGS
Public Features As Byte
Public SectorCount As Byte
Public SectorNumber As Byte
Public CylinderLow As Byte
Public CylinderHigh As Byte
Public DriveHead As Byte
Public Command As Byte
Public Reserved As Byte
End Class
<StructLayout(LayoutKind.Sequential, Size:=32)> _
Private Class SENDCMDINPARAMS
Public BufferSize As Integer
Public DriveRegs As IDEREGS
Public DriveNumber As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
Public Reserved As Byte()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> _
Public Reserved2 As Integer()
Public Sub New()
DriveRegs = New IDEREGS()
Reserved = New Byte(2)
Reserved2 = New Integer(3)
End Sub
End Class
<StructLayout(LayoutKind.Sequential, Size:=12)> _
Private Class DRIVERSTATUS
Public DriveError As Byte
Public IDEStatus As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
Public Reserved As Byte()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
Public Reserved2 As Integer()
Public Sub New()
Reserved = New Byte(1)
Reserved2 = New Integer(1)
End Sub
End Class
<StructLayout(LayoutKind.Sequential)> _
Private Class IDSECTOR
Public GenConfig As Short
Public NumberCylinders As Short
Public Reserved As Short
Public NumberHeads As Short
Public BytesPerTrack As Short
Public BytesPerSector As Short
Public SectorsPerTrack As Short
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
Public VendorUnique As Short()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=20)> _
Public SerialNumber As Char()
Public BufferClass As Short
Public BufferSize As Short
Public ECCSize As Short
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> _
Public FirmwareRevision As Char()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=40)> _
Public ModelNumber As Char()
Public MoreVendorUnique As Short
Public DoubleWordIO As Short
Public Capabilities As Short
Public Reserved1 As Short
Public PIOTiming As Short
Public DMATiming As Short
Public BS As Short
Public NumberCurrentCyls As Short
Public NumberCurrentHeads As Short
Public NumberCurrentSectorsPerTrack As Short
Public CurrentSectorCapacity As Integer
Public MultipleSectorCapacity As Short
Public MultipleSectorStuff As Short
Public TotalAddressableSectors As Integer
Public SingleWordDMA As Short
Public MultiWordDMA As Short
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=382)> _
Public Reserved2 As Byte()
End Class
<StructLayout(LayoutKind.Sequential)> _
Private Class SENDCMDOUTPARAMS
Public BufferSize As Integer
Public Status As DRIVERSTATUS
Public IDS As IDSECTOR
Public Sub New()
Status = New DRIVERSTATUS()
IDS = New IDSECTOR()
End Sub
End Class
#End Region
#Region " Methods and Functions "
Private Shared Function SwapChars(ByVal chars As Char()) As String
For i As Integer = 0 To chars.Length - 2 Step 2
Dim t As Char
t = chars(i)
chars(i) = chars(i + 1)
chars(i + 1) = t
Next
Dim s As New String(chars)
Return s
End Function
Public Shared Function GetHDDInfoString() As String
Dim serialNumber As String = " ", model As String = " ", firmware As String = " "
Dim handle As Integer, returnSize As Integer = 0
Dim driveNumber As Integer = 0
Dim sci As New SENDCMDINPARAMS()
Dim sco As New SENDCMDOUTPARAMS()
If Environment.OSVersion.Platform = PlatformID.Win32NT Then
handle = CreateFile("\\.\PhysicalDrive" & "0", GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)
Else
handle = CreateFile("\\.\Smartvsd", 0, 0, 0, CREATE_NEW, 0, 0)
End If
If handle <> INVALID_HANDLE_VALUE Then
sci.DriveNumber = CByte(driveNumber)
sci.BufferSize = Marshal.SizeOf(sco)
sci.DriveRegs.DriveHead = CByte((&HA0 Or driveNumber << 4))
sci.DriveRegs.Command = &HEC
sci.DriveRegs.SectorCount = 1
sci.DriveRegs.SectorNumber = 1
If DeviceIoControl(handle, DFP_RECEIVE_DRIVE_DATA, sci, Marshal.SizeOf(sci), sco, Marshal.SizeOf(sco), _
returnSize, 0) <> 0 Then
serialNumber = SwapChars(sco.IDS.SerialNumber)
model = SwapChars(sco.IDS.ModelNumber)
firmware = SwapChars(sco.IDS.FirmwareRevision)
End If
CloseHandle(handle)
End If
Return model.Trim & " " & serialNumber.Trim
End Function
#End Region
End Class
【讨论】：
【参考方案2】：抱歉，我没有时间为您转换它，但如果没有其他人提供代码，您可能会比查看http://www.pinvoke.net 更糟糕。您的 VB6 代码必须调用 Windows API 函数来完成这项工作，而 VB.NET 代码也必须这样做。它将调用相同的 API 函数。
例如，here 是 DeviceIoControl 的页面。
但是，如果您等待的时间足够长，其他人可能手头就有代码 :-)
【讨论】：
【参考方案3】：Try
Dim Searcher_P As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PhysicalMedia")
For Each queryObj As ManagementObject In Searcher_P.Get()
If queryObj("SerialNumber").ToString.Trim = "Y2S0RKFE" Then
Me.Cursor = Cursors.Default
Return True
End If
Next
Catch ex As Exception
MessageBox.Show("An error occurred while querying for WMI data: Win32_PhysicalMedia " & ex.Message)
End Try
Try
Dim Searcher_L As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogicalDisk WHERE DeviceID = 'C:'")
For Each queryObj As ManagementObject In Searcher_L.Get()
If queryObj("VolumeSerialNumber").ToString.Trim = "226C1A0B" Then
Me.Cursor = Cursors.Default
Return True
End If
Next
Catch ex As Exception
MessageBox.Show("An error occurred while querying for WMI data: VolumeSerialNumber " & ex.Message)
Return False
End Try
【讨论】：
您在网络上随处可见。但它在许多情况下不起作用，并且在许多情况下返回 Null。我敢打赌，“在...时发生错误”消息会经常显示！这不是我想要的，这就是为什么我进一步寻找能够真正完成工作的东西。【参考方案4】：是的，我知道 VB6，但问题在于 API 函数声明以及将这些结构（类型）传递给它们所需的属性。那是我没有时间花的地方！ 如果您有自动 VB6 到 VB.NET 工具和 VB6 本身，请将代码保存为 VB6 项目并转换代码。我没有我的 VB6。
【讨论】：
谁抱怨vb6？从 .Net 调用外部 api 的工作方式几乎相同，我为您提供了您需要更新的主要语法差异。这样做，然后在结果代码中发布您仍然留下的错误。 许多与此代码中定义的类型对应的等效结构在 pInvoke.net 中不存在。我在哪里可以找到它们？【参考方案5】：对于不懂 cmets 中使用的口语的人来说，这是一大堆代码。
我会这样说：在代码中的任何地方，您都可以看到 Type 关键字，您可能想使用 Structure 代替，.Net 中用于 Properties 的语法有点不同，函数调用需要括号和 VB。 Net 没有“任何”类型（可能是 System.IntPtr？不确定）。
VB.Net 中的大多数其他语法都是相同的，因此您可能会更幸运地进行我已经提到的修复，然后解决您在构建结果时遇到的每个错误（或错误类型）单独编码。
【讨论】：
【参考方案6】：你可以得到这个WMI的数据。给你举个例子
【讨论】：
澄清一下……根据我的测试，WMI 是微软（或任何人）创建的最不可靠的部分。以上是关于将 HDD Serial # VB6 代码转换为 VB.NET 代码的主要内容，如果未能解决你的问题，请参考以下文章
尝试使用 COM-interop 从 C# 库中附加 vb6 中的对象时，获取“无法将 'Field' 转换为 'Field' 类型（同一类）”
如何将此程序转换为适用于 VB 6.3 的 64 位计算机？