Dim buffer(512) As Byte
Dim akt_sektor As Integer
 
Private Sub Command1_Click()
GetDriveHandle "e:"
End Sub
 
Private Sub Command2_Click()
CloseDriveHandle
End
End Sub
 
Private Sub Command3_Click()
akt_sektor = akt_sektor + 1
List1.Clear
Dim i As Integer
ReadSectorFromDrive buffer()
sektor_anzeigen
End Sub
 
 
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 10
  ReadSectorFromDrive buffer()
  akt_sektor = akt_sektor + 1
Next i
sektor_anzeigen
End Sub
 
Private Sub Command5_Click()
Dim i As Integer
Dim j As Integer
For i = 0 To 1000
  ReadSectorFromDrive buffer()
  akt_sektor = akt_sektor + 1
  If buffer(0) = 60 Then
    sektor_anzeigen
    Exit Sub
  End If
Next i
End Sub
 
Sub sektor_anzeigen()
Dim i As Integer
List1.Clear
For i = 0 To 511
    List1.AddItem (Hex(buffer(i)))
Next i
Text1.Text = akt_sektor
End Sub
 
Private Sub Form_Load()
akt_sektor = -1
End Sub

'Windows-Variablen / Konstanten:
Private Type OVERLAPPED
    Internal                As Long
    InternalHigh            As Long
    offset                  As Long
    OffsetHigh              As Long
    hEvent                  As Long
End Type
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000003
Private Const OPEN_EXISTING = 3
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_DEVICE_FILE_SYSTEM = &H9
Private Const METHOD_BUFFERED = 0
Private Const FILE_READ_DATA = (&H1)
Private Const FILE_WRITE_DATA = (&H2)
'API-Deklarationen
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
    (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, lpSecurityAttributes As Any, _
    ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes _
    As Long, _
    ByVal hTemplateFile As Long) As Long
 
Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _
         lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, _
         lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
 
Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long
'Im Modul benötigt:
Dim lngFileHandle As Long       'Handle für Drive
Dim CreateFileError 'Fehler beim Erzeugen des Handles
Dim ReadFileError 'Fehler beim Lesen vom Laufwerk
 
Sub GetDriveHandle(Drivename$)
'muss zuerst aufgerufen werden um Zugang zum Drive zu bekommen
'Fehlervariablen zurücksetzen
CreateFileError = 0
ReadFileError = 0
FileName$ = "\\.\" & Drivename$
lngFileHandle = CreateFile(FileName$, GENERIC_READ Or GENERIC_WRITE, _
  FILE_SHARE_READ, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)
 
    'Bei Fehlschlag aussteigen2
    If (lngFileHandle = INVALID_HANDLE_VALUE) Then
        MsgBox "Invalid handle!"
        CreateFileError = 1
        Exit Sub
    Else
        'MsgBox "File handle:" & Str$(lngFileHandle)
    End If
 
End Sub
 
Sub ReadSectorFromDrive(buffer() As Byte)
'liest 512 Bytes (1 Sektor) in buffer() ein
    If CreateFileError Then
        ReadFileError = 1
        Exit Sub
    End If
 
    retReadFile& = ReadFile(lngFileHandle, buffer(0), 512, BytesRead&, 0&)
    If retReadFile& = 0 Then
        MsgBox "Readfile returns " & Str$(retReadFile&) & vbCrLf & "Read Error!"
        ReadFileError = 1
        Exit Sub
    End If
End Sub
 
Sub CloseDriveHandle()
CloseHandle lngFileHandle
End Sub

Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef _
  lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, ByRef _
  lpNumberOfBytesWritten As Long, ByRef lpOverlapped As Long) As Long
 
Sub WriteSectorToDrive(buffer() As Byte)
'schreibt 512 Bytes (1 Sektor) von buffer()
    If CreateFileError Then
        ReadFileError = 1
        Exit Sub
    End If
 
    retwriteFile& = WriteFile(lngFileHandle, buffer(0), 512, BytesWrite&, 0&)
    If retReadFile& = 0 Then
        MsgBox "Readfile returns " & Str$(retReadFile&) & vbCrLf & "Read Error!"
        ReadFileError = 1
        Exit Sub
    End If
End Sub

lngFileHandle = CreateFile(FileName$, GENERIC_READ Or GENERIC_WRITE, _
  FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, _
  FILE_ATTRIBUTE_NORMAL, ByVal 0)

Private Sub Command6_Click()
Dim i As Integer
For i = 0 To 254
  puffer(i) = i
Next i
WriteSectorToDrive puffer()
End Sub

Private Const FILE_BEGIN = 0
Declare Function SetFilePointer Lib "kernel32.dll" (ByVal hFile As Long, ByVal _
  lDistanceToMove As Long, ByRef lpDistanceToMoveHigh As Long, ByVal _
  dwMoveMethod As Long) As Long
 
Sub SelectSector(adress As Long)
'Wählt den zu beschreibenden oder zu lesenden Sektor aus
    adress = adress * 512
    If CreateFileError Then
        ReadFileError = 1
        Exit Sub
    End If
    retReadFile& = SetFilePointer(lngFileHandle, adress, FILE_BEGIN, 0&)
    If retReadFile& = 0 Then
        MsgBox "Readfile returns " & Str$(retReadFile&) & vbCrLf & "Read Error!"
        ReadFileError = 1
        Exit Sub
    End If
End Sub

Private Sub Command7_Click()
  Dim adress As Long
  adress = Text2.Text
  SelectSector adress
End Sub

Zitat:

lpReOpenBuff Erwartet eine "OFSTRUCT"-Struktur die mit Informationen zu der geöffneten Datei gefüllt wird.

FileName$ = "\\.\" & Drivename$"

Private Declare Function DeviceIoControl Lib "kernel32" ( _
                         ByVal hDevice As Long, _
                         ByVal dwIoControlCode As Long, _
                         ByRef lpInBuffer As Any, _
                         ByVal nInBufferSize As Long, _
                         ByRef lpOutBuffer As Any, _
                         ByVal nOutBufferSize As Long, _
                         ByRef lpBytesReturned As Long, _
                         ByRef lpOverlapped As Any) As Long
 
Private Type STORAGE_DEVICE_NUMBER
    DeviceType As Long
    DeviceNumber As Long
    PartitionNumber As Long
End Type
 
Private Const IOCTL_STORAGE_GET_DEVICE_NUMBER As Long = &H2D1080
 
Public Function GetPhysDriveNumber(ByVal hDrv As Long) As Long
    Dim udtSDN As STORAGE_DEVICE_NUMBER
    Dim lngRet As Long
 
    If DeviceIoControl(hDrv, IOCTL_STORAGE_GET_DEVICE_NUMBER, ByVal _
        0&, 0&, udtSDN, Len(udtSDN), lngRet, ByVal 0&) Then
        GetPhysDriveNumber = udtSDN.DeviceNumber
    Else
        GetPhysDriveNumber = -1
    End If
End Function

Private Sub Command8_Click()
GetDriveHandle "e:"
nummer$ = CStr(GetPhysDriveNumber(lngFileHandle))
CloseDriveHandle
GetDriveHandle2 nummer$
End Sub

Sub GetDriveHandle2(Drivenummer$)
CreateFileError = 0
ReadFileError = 0
FileName$ = "\\.\PHYSICALDRIVE" & Drivenummer$
lngFileHandle = CreateFile(FileName$, GENERIC_READ Or GENERIC_WRITE, _
  FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, _
  FILE_ATTRIBUTE_NORMAL, ByVal 0)
 
    'Bei Fehlschlag aussteigen2
    If (lngFileHandle = INVALID_HANDLE_VALUE) Then
        MsgBox "Invalid handle!"
        CreateFileError = 1
        Exit Sub
    Else
        MsgBox "File handle:" & Str$(lngFileHandle)
    End If
 
End Sub

Zitat:

Hidden Sectors: 251 Number of FAT copies: 2 (Was heißt das??) Sectors per FAT: 242 FAT copy(1) starts at 4 (Absolut gesehen dann also 255) FAT copy(2) starts at 246 (entspricht dann 497) Rootdirectory starts at 488 (entspricht 739) RootDirectoryLength: 31 (Endet also bei 770)

Private Function DirectReadDriveNT(ByVal sDrive As String, ByVal iStartSec As _
  Long, ByVal iOffset As Long, ByVal cBytes As Long) As Variant
    Dim hDevice As Long
    Dim abBuff() As Byte
    Dim abResult() As Byte
    Dim nSectors As Long
    Dim nRead As Long
    nSectors = Int((iOffset + cBytes - 1) / BytesPerSector) + 1
    hDevice = CreateFile("\\.\" & UCase(Left(sDrive, 1)) & ":", GENERIC_READ Or _
      GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, _
      0&, 0&)
    If hDevice = INVALID_HANDLE_VALUE Then Exit Function
    Call SetFilePointer(hDevice, iStartSec * BytesPerSector, 0, FILE_BEGIN)
    ReDim abResult(cBytes - 1)
    ReDim abBuff(nSectors * BytesPerSector - 1)
    Call ReadFile(hDevice, abBuff(0), UBound(abBuff) + 1, nRead, 0&)
    CloseHandle hDevice
    CopyMemory abResult(0), abBuff(iOffset), cBytes
    DirectReadDriveNT = abResult
End Function
 
Private Function DirectWriteDriveNT(ByVal sDrive As String, ByVal iStartSec As _
  Long, ByVal iOffset As Long, ByVal sWrite As String) As Boolean
    Dim hDevice As Long
    Dim abBuff() As Byte
    Dim ab() As Byte
    Dim nRead As Long
    Dim nSectors As Long
    nSectors = Int((iOffset + Len(sWrite) - 1) / BytesPerSector) + 1
    hDevice = CreateFile("\\.\" & UCase(Left(sDrive, 1)) & ":", GENERIC_READ Or _
      GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, _
      0&, 0&)
    If hDevice = INVALID_HANDLE_VALUE Then Exit Function
    abBuff = DirectReadDriveNT(sDrive, iStartSec, 0, nSectors * BytesPerSector)
    ab = StrConv(sWrite, vbFromUnicode)
    CopyMemory abBuff(iOffset), ab(0), Len(sWrite)
    Call SetFilePointer(hDevice, iStartSec * BytesPerSector, 0, FILE_BEGIN)
    Call LockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord(iStartSec _
      * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord(nSectors * _
      BytesPerSector))
    DirectWriteDriveNT = WriteFile(hDevice, abBuff(0), UBound(abBuff) + 1, _
    nRead, 0&)
    Call FlushFileBuffers(hDevice)
    Call UnlockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord( _
      iStartSec * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord( _
      nSectors * BytesPerSector))
    CloseHandle hDevice
End Function

(auch hierzu hab ich keine Infos gefunden )

    Call LockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord(iStartSec _
      * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord(nSectors * _
      BytesPerSector))
 
[....]
 
    Call FlushFileBuffers(hDevice)
    Call UnlockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord( _
      iStartSec * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord( _
      nSectors * BytesPerSector))

Private Sub Command1_Click()
    Dim Res As Integer
    Res = DirectWriteDriveNT(Drive1.Drive, Text1.Text, Text2.Text, Text3.Text)
    MsgBox Res
End Sub

Private Function DirectReadDriveNT(ByVal sDrive As String, ByVal iStartSec As _
  Long, ByVal iOffset As Long, ByVal cBytes As Long) As Variant
    Dim hDevice As Long
    Dim abBuff() As Byte
    Dim abResult() As Byte
    Dim nSectors As Long
    Dim nRead As Long
    nSectors = Int((iOffset + cBytes - 1) / BytesPerSector) + 1
    hDevice = CreateFile("\\.\" & UCase(Left(sDrive, 1)) & ":", GENERIC_READ Or _
      GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, _
      0&, 0&)
    If hDevice = INVALID_HANDLE_VALUE Then Exit Function
    Call SetFilePointer(hDevice, iStartSec * BytesPerSector, 0, FILE_BEGIN)
    ReDim abResult(cBytes - 1)
    ReDim abBuff(nSectors * BytesPerSector - 1)
    Call ReadFile(hDevice, abBuff(0), UBound(abBuff) + 1, nRead, 0&)
    CloseHandle hDevice
    CopyMemory abResult(0), abBuff(iOffset), cBytes
    DirectReadDriveNT = abResult
End Function
 
Private Function DirectWriteDriveNT(ByVal sDrive As String, ByVal iStartSec As _
  Long, ByVal iOffset As Long, ByVal sWrite As String) As Boolean
    Dim hDevice As Long
    Dim abBuff() As Byte
    Dim ab() As Byte
    Dim nRead As Long
    Dim nSectors As Long
    nSectors = Int((iOffset + Len(sWrite) - 1) / BytesPerSector) + 1
    hDevice = CreateFile("\\.\" & UCase(Left(sDrive, 1)) & ":", GENERIC_READ Or _
      GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, _
      0&, 0&)
    If hDevice = INVALID_HANDLE_VALUE Then Exit Function
    abBuff = DirectReadDriveNT(sDrive, iStartSec, 0, nSectors * BytesPerSector)
    ab = StrConv(sWrite, vbFromUnicode)
    CopyMemory abBuff(iOffset), ab(0), Len(sWrite)
    Call SetFilePointer(hDevice, iStartSec * BytesPerSector, 0, FILE_BEGIN)
    Call LockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord(iStartSec _
      * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord(nSectors * _
      BytesPerSector))
    DirectWriteDriveNT = WriteFile(hDevice, abBuff(0), UBound(abBuff) + 1, _
    nRead, 0&)
    Call FlushFileBuffers(hDevice)
    Call UnlockFile(hDevice, LoWord(iStartSec * BytesPerSector), HiWord( _
      iStartSec * BytesPerSector), LoWord(nSectors * BytesPerSector), HiWord( _
      nSectors * BytesPerSector))
    CloseHandle hDevice
End Function

CreateFile(FileName$, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or _
  FILE_SHARE_WRITE, ByVal 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)