Win32 Disk Management I/O Control Codes - Система - Интересные решения для программистов - Примеры кода

Система → Win32 Disk Management I/O Control Codes → Visual Basic

Получение информации о геометрии диска,О структуре разделов диска,

Общие объявления структур, перечислений и констант по работе с дисковыми устройствами взяты из заголовочного файла C++ [WinIoCtl.h] и вынесены в пространство [Emicrox. Win32_DiskManagement], а все служебные функции в [Win32_DiskManagement.IO]:

Imports System.Runtime.InteropServices

Namespace Emicrox

<CLSCompliant(False)> _

Public Class Win32_DiskManagement

<CLSCompliant(False)> _

Public Class IO

<DllImport("kernel32", EntryPoint:="CreateFileA", ExactSpelling:=True,

CharSet:=CharSet.[Ansi])> _

Public Shared Function CreateFile( _

<MarshalAs(UnmanagedType.VBByRefStr)> ByRef 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

End Function

<DllImport("kernel32")> _

Public Shared Function CloseHandle( _

ByVal hObject As Integer _

) As Integer

End Function

<DllImport("kernel32")> _

Public Shared Function GetLastError( _

) As Integer

End Function

'------------

Public Shared Function CTL_CODE( _

ByVal DeviceType As Integer, _

ByVal Func As Integer, _

ByVal Method As Integer, _

ByVal Access As Integer) As Integer

Return (DeviceType << 16) Or (Access << 14) Or (Func << 2) Or Method

End Function

End Class

'------------------------------------------------------------------------------

' This module defines the 32-Bit Windows

'   Device I/O control codes.

' *** from WinIoCtl

'--------

#Region "Device I/O control codes from WinIoCtl"

#Region "Define the various device type values"

' Define the various device type values. Note that values used by Microsoft

' Corporation are in the range 0-32767, and 32768-65535 are reserved for use

' by customers.

Public Const FILE_DEVICE_BEEP = &H1

Public Const FILE_DEVICE_CD_ROM = &H2

Public Const FILE_DEVICE_CD_ROM_FILE_SYSTEM = &H3

Public Const FILE_DEVICE_CONTROLLER = &H4

Public Const FILE_DEVICE_DATALINK = &H5

Public Const FILE_DEVICE_DFS = &H6

Public Const IOCTL_DISK_BASE = &H7

Public Const FILE_DEVICE_DISK = &H7

Public Const FILE_DEVICE_DISK_FILE_SYSTEM = &H8

Public Const FILE_DEVICE_FILE_SYSTEM = &H9

Public Const FILE_DEVICE_INPORT_PORT = &HA

Public Const FILE_DEVICE_KEYBOARD = &HB

Public Const FILE_DEVICE_MAILSLOT = &HC

Public Const FILE_DEVICE_MIDI_IN = &HD

Public Const FILE_DEVICE_MIDI_OUT = &HE

Public Const FILE_DEVICE_MOUSE = &HF

Public Const FILE_DEVICE_MULTI_UNC_PROVIDER = &H10

Public Const FILE_DEVICE_NAMED_PIPE = &H11

Public Const FILE_DEVICE_NETWORK = &H12

Public Const FILE_DEVICE_NETWORK_BROWSER = &H13

Public Const FILE_DEVICE_NETWORK_FILE_SYSTEM = &H14

Public Const FILE_DEVICE_NULL = &H15

Public Const FILE_DEVICE_PARALLEL_PORT = &H16

Public Const FILE_DEVICE_PHYSICAL_NETCARD = &H17

Public Const FILE_DEVICE_PRINTER = &H18

Public Const FILE_DEVICE_SCANNER = &H19

Public Const FILE_DEVICE_SERIAL_MOUSE_PORT = &H1A

Public Const FILE_DEVICE_SERIAL_PORT = &H1B

Public Const FILE_DEVICE_SCREEN = &H1C

Public Const FILE_DEVICE_SOUND = &H1D

Public Const FILE_DEVICE_STREAMS = &H1E

Public Const FILE_DEVICE_TAPE = &H1F

Public Const FILE_DEVICE_TAPE_FILE_SYSTEM = &H20

Public Const FILE_DEVICE_TRANSPORT = &H21

Public Const FILE_DEVICE_UNKNOWN = &H22

Public Const FILE_DEVICE_VIDEO = &H23

Public Const FILE_DEVICE_VIRTUAL_DISK = &H24

Public Const FILE_DEVICE_WAVE_IN = &H25

Public Const FILE_DEVICE_WAVE_OUT = &H26

Public Const FILE_DEVICE_8042_PORT = &H27

Public Const FILE_DEVICE_NETWORK_REDIRECTOR = &H28

Public Const FILE_DEVICE_BATTERY = &H29

Public Const FILE_DEVICE_BUS_EXTENDER = &H2A

Public Const FILE_DEVICE_MODEM = &H2B

Public Const FILE_DEVICE_VDM = &H2C

Public Const FILE_DEVICE_MASS_STORAGE = &H2D

Public Const FILE_DEVICE_SMB = &H2E

Public Const FILE_DEVICE_KS = &H2F

Public Const FILE_DEVICE_CHANGER = &H30

Public Const FILE_DEVICE_SMARTCARD = &H31

Public Const FILE_DEVICE_ACPI = &H32

Public Const FILE_DEVICE_DVD = &H33

Public Const FILE_DEVICE_FULLSCREEN_VIDEO = &H34

Public Const FILE_DEVICE_DFS_FILE_SYSTEM = &H35

Public Const FILE_DEVICE_DFS_VOLUME = &H36

Public Const FILE_DEVICE_SERENUM = &H37

Public Const FILE_DEVICE_TERMSRV = &H38

Public Const FILE_DEVICE_KSEC = &H39

Public Const FILE_DEVICE_FIPS = &H3A

Public Const FILE_DEVICE_INFINIBAND = &H3B

#End Region

#Region "Define the method codes for how buffers are passed for I/O and FS controls"

' Define the method codes for how buffers are passed for I/O and FS controls

Public Const METHOD_BUFFERED = 0

Public Const METHOD_IN_DIRECT = 1

Public Const METHOD_OUT_DIRECT = 2

Public Const METHOD_NEITHER = 3

' Define some easier to comprehend aliases:

'  METHOD_DIRECT_TO_HARDWARE (writes, aka METHOD_IN_DIRECT)

'  METHOD_DIRECT_FROM_HARDWARE (reads, aka METHOD_OUT_DIRECT)

Public Const METHOD_DIRECT_TO_HARDWARE = METHOD_IN_DIRECT

Public Const METHOD_DIRECT_FROM_HARDWARE = METHOD_OUT_DIRECT

#End Region

#Region "MEDIA_PROTECTED"

Public Const MEDIA_ERASEABLE = &H1

Public Const MEDIA_WRITE_ONCE = &H2

Public Const MEDIA_READ_ONLY = &H4

Public Const MEDIA_READ_WRITE = &H8

Public Const MEDIA_WRITE_PROTECTED = &H100

Public Const MEDIA_CURRENTLY_MOUNTED = &H80000000

#End Region

#Region "ACCESS"

Public Const FILE_ANY_ACCESS = 0

Public Const FILE_SPECIAL_ACCESS = FILE_ANY_ACCESS

Public Const FILE_READ_ACCESS = &H1

Public Const FILE_WRITE_ACCESS = &H2

#End Region

'DeviceIoControl

'--------------------------------------------------------------------

'Return Values

'  If the function succeeds, the return value is nonzero.

'  If the function fails, the return value is zero. To get extended error information,

'    call GetLastError.

<DllImport("kernel32")> _

Public Shared Function DeviceIoControl( _

ByVal hDevice As Integer, _

ByVal dwIoControlCode As Integer, _

ByVal lpInBuffer As [IntPtr], _

ByVal nInBufferSize As Integer, _

ByVal lpOutBuffer As [IntPtr], _

ByVal nOutBufferSize As Integer, _

ByRef lpBytesReturned As Integer, _

ByVal lpOverlapped As Integer _

) As Integer

End Function

' The structure CREATE_DISK_GPT with the ioctl IOCTL_DISK_CREATE_DISK

' to initialize an virgin disk with an empty GPT partition table.

<StructLayout(LayoutKind.Sequential)> _

Public Structure CREATE_DISK_GPT

Dim DiskId As Guid ' Unique disk id for the disk.

Dim MaxPartitionCount As Integer 'Maximim number of partitions allowable.

End Structure

' The structure CREATE_DISK_MBR with the ioctl IOCTL_DISK_CREATE_DISK

' to initialize an virgin disk with an empty MBR partition table.

<StructLayout(LayoutKind.Sequential)> _

Public Structure CREATE_DISK_MBR

Dim Signature As Integer ' Disk signature of the MBR disk to be initialized.

End Structure

<StructLayout(LayoutKind.Sequential)> _

Public Structure CREATE_DISK

Dim Signature As PARTITION_STYLE

Dim Mbr As CREATE_DISK_MBR

'  or

'Dim Gpt As CREATE_DISK_GPT

End Structure

' Define the input buffer structure for the driver, when

' it is called with IOCTL_DISK_FORMAT_TRACKS.

<StructLayout(LayoutKind.Sequential)> _

Public Structure FORMAT_PARAMETERS

Public MediaType As MEDIA_TYPE

Public StartCylinderNumber As Integer

Public EndCylinderNumber As Integer

Public StartHeadNumber As Integer

Public EndHeadNumber As Integer

End Structure

' The following structure is returned on an IOCTL_DISK_GET_DRIVE_GEOMETRY

' request and an array of them is returned on an IOCTL_DISK_GET_MEDIA_TYPES

' request.

<StructLayout(LayoutKind.Sequential, Pack:=1)> _

Public Structure DISK_GEOMETRY

Public Cylinders As Long

Public MediaType As [MEDIA_TYPE]

Public TracksPerCylinder As Integer

Public SectorsPerTrack As Integer

Public BytesPerSector As Integer

End Structure

' The following structure defines information in a GPT partition that is

' not common to both GPT and MBR partitions.

Const GPT_ATTRIBUTE_PLATFORM_REQUIRED = &H1

Const GPT_BASIC_DATA_ATTRIBUTE_NO_DRIVE_LETTER = &H8000000000000000

Const GPT_BASIC_DATA_ATTRIBUTE_HIDDEN = &H4000000000000000

Const GPT_BASIC_DATA_ATTRIBUTE_SHADOW_COPY = &H2000000000000000

Const GPT_BASIC_DATA_ATTRIBUTE_READ_ONLY = &H1000000000000000

<StructLayout(LayoutKind.Sequential)> _

Public Structure PARTITION_INFORMATION_GPT

Public PartitionType As Guid  ' Partition type. See table 16-3.

Public PartitionId As Guid   ' Unique GUID for this partition.

Public Attributes As Int64   ' See table 16-4.

<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=36)> _

Public Name As String    ' Partition Name in Unicode.

End Structure

' The following structure defines information in an MBR partition that is not

' common to both GPT and MBR partitions.

<StructLayout(LayoutKind.Sequential)> _

Public Structure PARTITION_INFORMATION_MBR

Public PartitionType As Byte

Public BootIndicator As Boolean

Public RecognizedPartition As Boolean

Public HiddenSectors As Integer

End Structure

' The following structure is returned on an IOCTL_DISK_GET_PARTITION_INFO

' and an IOCTL_DISK_GET_DRIVE_LAYOUT request. It is also used in a request

' to change the drive layout, IOCTL_DISK_SET_DRIVE_LAYOUT.

<StructLayout(LayoutKind.Sequential)> _

Public Structure PARTITION_INFORMATION

Public StartingOffset As Long

Public PartitionLength As Long

Public HiddenSectors As Integer

Public PartitionNumber As Integer

Public PartitionType As Byte

Public BootIndicator As Boolean

Public RecognizedPartition As Boolean

Public RewritePartition As Boolean

End Structure

' Support for GUID Partition Table (GPT) disks.

' There are currently two ways a disk can be partitioned. With a traditional

' AT-style master boot record (PARTITION_STYLE_MBR) and with a new, GPT

' partition table (PARTITION_STYLE_GPT). RAW is for an unrecognizable

' partition style. There are a very limited number of things you can

' do with a RAW partititon.

Public Enum PARTITION_STYLE

PARTITION_STYLE_MBR

PARTITION_STYLE_GPT

PARTITION_STYLE_RAW

End Enum

' Define the partition types returnable by known disk drivers.

Public Enum PARTITION_TYPES

PARTITION_ENTRY_UNUSED = &H0  ' Entry unused

PARTITION_FAT_12 = &H1     ' 12-bit FAT entries

PARTITION_XENIX_1 = &H2     ' Xenix

PARTITION_XENIX_2 = &H3     ' Xenix

PARTITION_FAT_16 = &H4     ' 16-bit FAT entries

PARTITION_EXTENDED = &H5    ' Extended partition entry

PARTITION_HUGE = &H6      ' Huge partition MS-DOS V4

PARTITION_IFS = &H7       ' IFS Partition

PARTITION_OS2BOOTMGR = &HA   ' OS/2 Boot Manager/OPUS/Coherent swap

PARTITION_FAT32 = &HB      ' FAT32

PARTITION_FAT32_XINT13 = &HC  ' FAT32 using extended int13 services

PARTITION_XINT13 = &HE     ' Win95 partition using extended int13 services

PARTITION_XINT13_EXTENDED = &HF ' Same as type 5 but uses extended int13 services

PARTITION_PREP = &H41      ' PowerPC Reference Platform (PReP) Boot Partition

PARTITION_LDM = &H42      ' Logical Disk Manager partition

PARTITION_UNIX = &H63      ' Unix

End Enum

' Define the media types supported by the driver.

Public Enum MEDIA_TYPE

Unknown         ' Format is unknown

F5_1Pt2_512       ' 5.25", 1.2MB, 512 bytes/sector

F3_1Pt44_512      ' 3.5", 1.44MB, 512 bytes/sector

F3_2Pt88_512      ' 3.5", 2.88MB, 512 bytes/sector

F3_20Pt8_512      ' 3.5", 20.8MB, 512 bytes/sector

F3_720_512       ' 3.5", 720KB, 512 bytes/sector

F5_360_512       ' 5.25", 360KB, 512 bytes/sector

F5_320_512       ' 5.25", 320KB, 512 bytes/sector

F5_320_1024       ' 5.25", 320KB, 1024 bytes/sector

F5_180_512       ' 5.25", 180KB, 512 bytes/sector

F5_160_512       ' 5.25", 160KB, 512 bytes/sector

RemovableMedia     ' Removable media other than floppy

FixedMedia       ' Fixed hard disk media

F3_120M_512       ' 3.5", 120M Floppy

F3_640_512       ' 3.5" , 640KB, 512 bytes/sector

F5_640_512       ' 5.25", 640KB, 512 bytes/sector

F5_720_512       ' 5.25", 720KB, 512 bytes/sector

F3_1Pt2_512       ' 3.5" , 1.2Mb, 512 bytes/sector

F3_1Pt23_1024      ' 3.5" , 1.23Mb, 1024 bytes/sector

F5_1Pt23_1024      ' 5.25", 1.23MB, 1024 bytes/sector

F3_128Mb_512      ' 3.5" MO 128Mb  512 bytes/sector

F3_230Mb_512      ' 3.5" MO 230Mb  512 bytes/sector

F8_256_128       ' 8",   256KB, 128 bytes/sector

F3_200Mb_512      ' 3.5",  200M Floppy (HiFD)

F3_240M_512       ' 3.5",  240Mb Floppy (HiFD)

F3_32M_512       ' 3.5",  32Mb Floppy

End Enum

' Define the different storage bus types

' Bus types below 128 (0x80) are reserved for Microsoft use

Public Enum STORAGE_BUS_TYPE

BusTypeUnknown = &H0

BusTypeScsi

BusTypeAtapi

BusTypeAta

BusType1394

BusTypeSsa

BusTypeFibre

BusTypeUsb

BusTypeRAID

BusTypeiScsi

BusTypeSas

BusTypeSata

BusTypeMaxReserved = &H7F

End Enum

<StructLayout(LayoutKind.Sequential)> _

Public Structure OVERLAPPED

Public Internal As Integer

Public InternalHigh As Integer

Public offset As Integer

Public OffsetHigh As Integer

Public hEvent As Integer

End Structure

#End Region

#Region "Error Codes"

Public Shared Function TranslateError(ByVal Exception As Int32)

Dim RetVal As [String] _

= Hex$(Exception).ToString

Select Case Exception

Case 122 : RetVal = "ERROR_INSUFFICIENT_BUFFER. The data area passed to a system call is too small."

End Select

Return RetVal

End Function

#End Region

End Class

End Namespace

Получение информации

о геометрии

диска:

Значение IOCTL_DISK_GET_DRIVE_GEOMETRY получаем с помощью CTL_CODE() и = &H70000. При его передачи DeviceIoControl, получаем указатель на буфер с данными о параметрах диска, как то: тип, кол-во цилиндров, кол-во треков на цилиндре, секторов на треке, байт в каждом секторе. Для получения дополнительной информации, можно использовать IOCTL_DISK_GET_DRIVE_GEOMETRY_EX. В обоих случаях в DeviceIoControl входящий буфер не используется. Вместо [\\.\PhysicalDrive0] можно использовать [\\.\c:].

<STAThread()> Sub GET_DRIVE_GEOMETRY()

Const FILE_SHARE_READ As Integer = 1 _

, FILE_SHARE_WRITE As Integer = 2 _

, OPEN_EXISTING As Integer = 3

Dim DriveName As String = "\\.\PhysicalDrive0"

Dim Handle As Integer = Emicrox.Win32_DiskManagement.IO.CreateFile( _

DriveName, 0, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0 _

, OPEN_EXISTING, 0, 0 _

)

If Not (Handle = -1) Then

Dim bytesread As Integer

Dim IOCTL_DISK_GET_DRIVE_GEOMETRY As Integer _

= Emicrox.Win32_DiskManagement.IO.CTL_CODE( _

Emicrox.Win32_DiskManagement.IOCTL_DISK_BASE, &H0, _

Emicrox.Win32_DiskManagement.METHOD_BUFFERED, _

Emicrox.Win32_DiskManagement.FILE_ANY_ACCESS _

)

Dim DISK_GEOMETRY As Emicrox.Win32_DiskManagement.DISK_GEOMETRY

Dim ptrSize As Integer _

= Runtime.InteropServices.Marshal.SizeOf(DISK_GEOMETRY)

Dim ptr As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(ptrSize)

Runtime.InteropServices.Marshal.StructureToPtr(DISK_GEOMETRY, ptr, True)

Try

If Not Emicrox.Win32_DiskManagement.DeviceIoControl( _

Handle, IOCTL_DISK_GET_DRIVE_GEOMETRY, Nothing, 0 _

, ptr, ptrSize _

, bytesread _

, 0) = 0 Then

DISK_GEOMETRY = Runtime.InteropServices.Marshal.PtrToStructure(ptr, _

GetType(Emicrox.Win32_DiskManagement.DISK_GEOMETRY))

With DISK_GEOMETRY

Console.WriteLine(String.Concat( _

"Cylinders:      ", .Cylinders, vbCrLf _

, "MediaType:      ", .MediaType, vbCrLf _

, "TracksPerCylinder:  ", .TracksPerCylinder, vbCrLf _

, "SectorsPerTrack:   ", .SectorsPerTrack, vbCrLf _

, "BytesPerSector:   ", .BytesPerSector, vbCrLf _

))

End With

Else

Dim Exception _

= Emicrox.Win32_DiskManagement.IO.GetLastError()

Console.WriteLine(String.Concat("[", Hex$(Exception), "] - " _

, Emicrox.Win32_DiskManagement.TranslateError(Exception) _

, "!") _

)

End If

Catch ex As Exception

Console.WriteLine(String.Concat( _

ex.Message _

))

End Try

Runtime.InteropServices.Marshal.FreeHGlobal(ptr)

Else

Console.WriteLine(String.Concat( _

"Unable to open " _

, DriveName) _

)

End If

Call Emicrox.Win32_DiskManagement.IO.CloseHandle(Handle)

Console.ReadLine()

End Sub

Получение информации о

структуре разделов

диска:

Передаем в DeviceIoControl манипулятор раздела. Для получения дополнительной информации, можно использовать PARTITION_INFORMATION_EX. Для получения информации о количестве разделов диска также можно использовать код IOCTL_DISK_GET_DRIVE_LAYOUT (и, соответственно IOCTL_DISK_GET_DRIVE_LAYOUT_EX).

<STAThread()> Sub GET_PARTITION_INFO()

Dim bytesread As Integer

Dim IOCTL_DISK_GET_PARTITION_INFO As Integer _

= Emicrox.Win32_DiskManagement.IO.CTL_CODE( _

Emicrox.Win32_DiskManagement.IOCTL_DISK_BASE, &H1, _

Emicrox.Win32_DiskManagement.METHOD_BUFFERED, _

Emicrox.Win32_DiskManagement.FILE_READ_ACCESS _

)

Dim PARTITION_INFORMATION As Emicrox.Win32_DiskManagement.PARTITION_INFORMATION

Dim ptrSize As Integer _

= Runtime.InteropServices.Marshal.SizeOf(PARTITION_INFORMATION)

Dim ptr As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(ptrSize)

Runtime.InteropServices.Marshal.StructureToPtr(PARTITION_INFORMATION, ptr, True)

Try

If Not (Emicrox.Win32_DiskManagement.DeviceIoControl( _

[PARTITION.handle], IOCTL_DISK_GET_PARTITION_INFO, Nothing, 0 _

, ptr, ptrSize _

, bytesread _

, 0 _

) = 0) Then

PARTITION_INFORMATION = Runtime.InteropServices.Marshal.PtrToStructure(ptr, _

GetType(Emicrox.Win32_DiskManagement.PARTITION_INFORMATION))

With PARTITION_INFORMATION

Console.WriteLine(String.Concat( _

"PartitionNumber:    ", .PartitionNumber, vbCrLf _

, "PartitionType:     ", .PartitionType, vbCrLf _

, "PartitionLength:    ", .PartitionLength, vbCrLf _

, "BootIndicator:     ", .BootIndicator, vbCrLf _

, "HiddenSectors:     ", .HiddenSectors, vbCrLf _

, "RecognizedPartition:  ", .RecognizedPartition, vbCrLf _

, "RewritePartition:   ", .RewritePartition, vbCrLf _

))

End With

Else

Dim Exception _

= Emicrox.Win32_DiskManagement.IO.GetLastError()

Console.WriteLine(String.Concat("[", Hex$(Exception), "] - " _

, Emicrox.Win32_DiskManagement.TranslateError(Exception) _

, "!") _

)

End If

Catch ex As Exception

Console.WriteLine(String.Concat( _

ex.Message _

))

End Try

Runtime.InteropServices.Marshal.FreeHGlobal(ptr)

End Sub

.net, disk, io, management, vb, visual basic, win32

KOS_MOS

На?уралист?

19.10.2008

Alex [Добавлено 16.07.2010 22:12:26]

Emicrox ->?

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Система → Win32 Disk Management I/O Control Codes → Visual Basic Получение информации о геометрии диска,О структуре разделов диска, Общие объявления структур, перечислений и констант по работе с дисковыми устройствами взяты из заголовочного файла C++ [WinIoCtl.h] и вынесены в пространство [Emicrox. Win32_DiskManagement], а все служебные функции в [Win32_DiskManagement.IO]: Imports System.Runtime.InteropServices Namespace Emicrox <CLSCompliant(False)> _ Public Class Win32_DiskManagement <CLSCompliant(False)> _ Public Class IO <DllImport("kernel32", EntryPoint:="CreateFileA", ExactSpelling:=True, CharSet:=CharSet.[Ansi])> _ Public Shared Function CreateFile( _ <MarshalAs(UnmanagedType.VBByRefStr)> ByRef 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 End Function <DllImport("kernel32")> _ Public Shared Function CloseHandle( _ ByVal hObject As Integer _ ) As Integer End Function <DllImport("kernel32")> _ Public Shared Function GetLastError( _ ) As Integer End Function '------------ Public Shared Function CTL_CODE( _ ByVal DeviceType As Integer, _ ByVal Func As Integer, _ ByVal Method As Integer, _ ByVal Access As Integer) As Integer Return (DeviceType << 16) Or (Access << 14) Or (Func << 2) Or Method End Function End Class '------------------------------------------------------------------------------ ' This module defines the 32-Bit Windows ' Device I/O control codes. ' * from WinIoCtl '-------- #Region "Device I/O control codes from WinIoCtl" #Region "Define the various device type values" ' ' Define the various device type values. Note that values used by Microsoft ' Corporation are in the range 0-32767, and 32768-65535 are reserved for use ' by customers. ' Public Const FILE_DEVICE_BEEP = &H1 Public Const FILE_DEVICE_CD_ROM = &H2 Public Const FILE_DEVICE_CD_ROM_FILE_SYSTEM = &H3 Public Const FILE_DEVICE_CONTROLLER = &H4 Public Const FILE_DEVICE_DATALINK = &H5 Public Const FILE_DEVICE_DFS = &H6 Public Const IOCTL_DISK_BASE = &H7 Public Const FILE_DEVICE_DISK = &H7 Public Const FILE_DEVICE_DISK_FILE_SYSTEM = &H8 Public Const FILE_DEVICE_FILE_SYSTEM = &H9 Public Const FILE_DEVICE_INPORT_PORT = &HA Public Const FILE_DEVICE_KEYBOARD = &HB Public Const FILE_DEVICE_MAILSLOT = &HC Public Const FILE_DEVICE_MIDI_IN = &HD Public Const FILE_DEVICE_MIDI_OUT = &HE Public Const FILE_DEVICE_MOUSE = &HF Public Const FILE_DEVICE_MULTI_UNC_PROVIDER = &H10 Public Const FILE_DEVICE_NAMED_PIPE = &H11 Public Const FILE_DEVICE_NETWORK = &H12 Public Const FILE_DEVICE_NETWORK_BROWSER = &H13 Public Const FILE_DEVICE_NETWORK_FILE_SYSTEM = &H14 Public Const FILE_DEVICE_NULL = &H15 Public Const FILE_DEVICE_PARALLEL_PORT = &H16 Public Const FILE_DEVICE_PHYSICAL_NETCARD = &H17 Public Const FILE_DEVICE_PRINTER = &H18 Public Const FILE_DEVICE_SCANNER = &H19 Public Const FILE_DEVICE_SERIAL_MOUSE_PORT = &H1A Public Const FILE_DEVICE_SERIAL_PORT = &H1B Public Const FILE_DEVICE_SCREEN = &H1C Public Const FILE_DEVICE_SOUND = &H1D Public Const FILE_DEVICE_STREAMS = &H1E Public Const FILE_DEVICE_TAPE = &H1F Public Const FILE_DEVICE_TAPE_FILE_SYSTEM = &H20 Public Const FILE_DEVICE_TRANSPORT = &H21 Public Const FILE_DEVICE_UNKNOWN = &H22 Public Const FILE_DEVICE_VIDEO = &H23 Public Const FILE_DEVICE_VIRTUAL_DISK = &H24 Public Const FILE_DEVICE_WAVE_IN = &H25 Public Const FILE_DEVICE_WAVE_OUT = &H26 Public Const FILE_DEVICE_8042_PORT = &H27 Public Const FILE_DEVICE_NETWORK_REDIRECTOR = &H28 Public Const FILE_DEVICE_BATTERY = &H29 Public Const FILE_DEVICE_BUS_EXTENDER = &H2A Public Const FILE_DEVICE_MODEM = &H2B Public Const FILE_DEVICE_VDM = &H2C Public Const FILE_DEVICE_MASS_STORAGE = &H2D Public Const FILE_DEVICE_SMB = &H2E Public Const FILE_DEVICE_KS = &H2F Public Const FILE_DEVICE_CHANGER = &H30 Public Const FILE_DEVICE_SMARTCARD = &H31 Public Const FILE_DEVICE_ACPI = &H32 Public Const FILE_DEVICE_DVD = &H33 Public Const FILE_DEVICE_FULLSCREEN_VIDEO = &H34 Public Const FILE_DEVICE_DFS_FILE_SYSTEM = &H35 Public Const FILE_DEVICE_DFS_VOLUME = &H36 Public Const FILE_DEVICE_SERENUM = &H37 Public Const FILE_DEVICE_TERMSRV = &H38 Public Const FILE_DEVICE_KSEC = &H39 Public Const FILE_DEVICE_FIPS = &H3A Public Const FILE_DEVICE_INFINIBAND = &H3B ' #End Region #Region "Define the method codes for how buffers are passed for I/O and FS controls" ' ' Define the method codes for how buffers are passed for I/O and FS controls ' Public Const METHOD_BUFFERED = 0 Public Const METHOD_IN_DIRECT = 1 Public Const METHOD_OUT_DIRECT = 2 Public Const METHOD_NEITHER = 3 ' ' Define some easier to comprehend aliases: ' METHOD_DIRECT_TO_HARDWARE (writes, aka METHOD_IN_DIRECT) ' METHOD_DIRECT_FROM_HARDWARE (reads, aka METHOD_OUT_DIRECT) ' Public Const METHOD_DIRECT_TO_HARDWARE = METHOD_IN_DIRECT Public Const METHOD_DIRECT_FROM_HARDWARE = METHOD_OUT_DIRECT ' #End Region #Region "MEDIA_PROTECTED" ' Public Const MEDIA_ERASEABLE = &H1 Public Const MEDIA_WRITE_ONCE = &H2 Public Const MEDIA_READ_ONLY = &H4 Public Const MEDIA_READ_WRITE = &H8 Public Const MEDIA_WRITE_PROTECTED = &H100 Public Const MEDIA_CURRENTLY_MOUNTED = &H80000000 ' #End Region #Region "ACCESS" ' Public Const FILE_ANY_ACCESS = 0 Public Const FILE_SPECIAL_ACCESS = FILE_ANY_ACCESS Public Const FILE_READ_ACCESS = &H1 Public Const FILE_WRITE_ACCESS = &H2 ' #End Region ' 'DeviceIoControl '-------------------------------------------------------------------- 'Return Values ' If the function succeeds, the return value is nonzero. ' If the function fails, the return value is zero. To get extended error information, ' call GetLastError. ' <DllImport("kernel32")> _ Public Shared Function DeviceIoControl( _ ByVal hDevice As Integer, _ ByVal dwIoControlCode As Integer, _ ByVal lpInBuffer As [IntPtr], _ ByVal nInBufferSize As Integer, _ ByVal lpOutBuffer As [IntPtr], _ ByVal nOutBufferSize As Integer, _ ByRef lpBytesReturned As Integer, _ ByVal lpOverlapped As Integer _ ) As Integer End Function ' ' The structure CREATE_DISK_GPT with the ioctl IOCTL_DISK_CREATE_DISK ' to initialize an virgin disk with an empty GPT partition table. ' <StructLayout(LayoutKind.Sequential)> _ Public Structure CREATE_DISK_GPT Dim DiskId As Guid ' Unique disk id for the disk. Dim MaxPartitionCount As Integer 'Maximim number of partitions allowable. End Structure ' ' The structure CREATE_DISK_MBR with the ioctl IOCTL_DISK_CREATE_DISK ' to initialize an virgin disk with an empty MBR partition table. ' <StructLayout(LayoutKind.Sequential)> _ Public Structure CREATE_DISK_MBR Dim Signature As Integer ' Disk signature of the MBR disk to be initialized. End Structure ' <StructLayout(LayoutKind.Sequential)> _ Public Structure CREATE_DISK Dim Signature As PARTITION_STYLE Dim Mbr As CREATE_DISK_MBR ' or 'Dim Gpt As CREATE_DISK_GPT End Structure ' ' Define the input buffer structure for the driver, when ' it is called with IOCTL_DISK_FORMAT_TRACKS. ' <StructLayout(LayoutKind.Sequential)> _ Public Structure FORMAT_PARAMETERS Public MediaType As MEDIA_TYPE Public StartCylinderNumber As Integer Public EndCylinderNumber As Integer Public StartHeadNumber As Integer Public EndHeadNumber As Integer End Structure ' ' The following structure is returned on an IOCTL_DISK_GET_DRIVE_GEOMETRY ' request and an array of them is returned on an IOCTL_DISK_GET_MEDIA_TYPES ' request. ' <StructLayout(LayoutKind.Sequential, Pack:=1)> _ Public Structure DISK_GEOMETRY Public Cylinders As Long Public MediaType As [MEDIA_TYPE] Public TracksPerCylinder As Integer Public SectorsPerTrack As Integer Public BytesPerSector As Integer End Structure ' ' The following structure defines information in a GPT partition that is ' not common to both GPT and MBR partitions. ' Const GPT_ATTRIBUTE_PLATFORM_REQUIRED = &H1 Const GPT_BASIC_DATA_ATTRIBUTE_NO_DRIVE_LETTER = &H8000000000000000 Const GPT_BASIC_DATA_ATTRIBUTE_HIDDEN = &H4000000000000000 Const GPT_BASIC_DATA_ATTRIBUTE_SHADOW_COPY = &H2000000000000000 Const GPT_BASIC_DATA_ATTRIBUTE_READ_ONLY = &H1000000000000000 ' <StructLayout(LayoutKind.Sequential)> _ Public Structure PARTITION_INFORMATION_GPT Public PartitionType As Guid ' Partition type. See table 16-3. Public PartitionId As Guid ' Unique GUID for this partition. Public Attributes As Int64 ' See table 16-4. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=36)> _ Public Name As String ' Partition Name in Unicode. End Structure ' ' The following structure defines information in an MBR partition that is not ' common to both GPT and MBR partitions. ' <StructLayout(LayoutKind.Sequential)> _ Public Structure PARTITION_INFORMATION_MBR Public PartitionType As Byte Public BootIndicator As Boolean Public RecognizedPartition As Boolean Public HiddenSectors As Integer End Structure ' ' The following structure is returned on an IOCTL_DISK_GET_PARTITION_INFO ' and an IOCTL_DISK_GET_DRIVE_LAYOUT request. It is also used in a request ' to change the drive layout, IOCTL_DISK_SET_DRIVE_LAYOUT. ' <StructLayout(LayoutKind.Sequential)> _ Public Structure PARTITION_INFORMATION Public StartingOffset As Long Public PartitionLength As Long Public HiddenSectors As Integer Public PartitionNumber As Integer Public PartitionType As Byte Public BootIndicator As Boolean Public RecognizedPartition As Boolean Public RewritePartition As Boolean End Structure ' ' Support for GUID Partition Table (GPT) disks. ' ' There are currently two ways a disk can be partitioned. With a traditional ' AT-style master boot record (PARTITION_STYLE_MBR) and with a new, GPT ' partition table (PARTITION_STYLE_GPT). RAW is for an unrecognizable ' partition style. There are a very limited number of things you can ' do with a RAW partititon. ' Public Enum PARTITION_STYLE PARTITION_STYLE_MBR PARTITION_STYLE_GPT PARTITION_STYLE_RAW End Enum ' ' Define the partition types returnable by known disk drivers. ' Public Enum PARTITION_TYPES PARTITION_ENTRY_UNUSED = &H0 ' Entry unused PARTITION_FAT_12 = &H1 ' 12-bit FAT entries PARTITION_XENIX_1 = &H2 ' Xenix PARTITION_XENIX_2 = &H3 ' Xenix PARTITION_FAT_16 = &H4 ' 16-bit FAT entries PARTITION_EXTENDED = &H5 ' Extended partition entry PARTITION_HUGE = &H6 ' Huge partition MS-DOS V4 PARTITION_IFS = &H7 ' IFS Partition PARTITION_OS2BOOTMGR = &HA ' OS/2 Boot Manager/OPUS/Coherent swap PARTITION_FAT32 = &HB ' FAT32 PARTITION_FAT32_XINT13 = &HC ' FAT32 using extended int13 services PARTITION_XINT13 = &HE ' Win95 partition using extended int13 services PARTITION_XINT13_EXTENDED = &HF ' Same as type 5 but uses extended int13 services PARTITION_PREP = &H41 ' PowerPC Reference Platform (PReP) Boot Partition PARTITION_LDM = &H42 ' Logical Disk Manager partition PARTITION_UNIX = &H63 ' Unix End Enum ' ' Define the media types supported by the driver. ' Public Enum MEDIA_TYPE Unknown ' Format is unknown F5_1Pt2_512 ' 5.25", 1.2MB, 512 bytes/sector F3_1Pt44_512 ' 3.5", 1.44MB, 512 bytes/sector F3_2Pt88_512 ' 3.5", 2.88MB, 512 bytes/sector F3_20Pt8_512 ' 3.5", 20.8MB, 512 bytes/sector F3_720_512 ' 3.5", 720KB, 512 bytes/sector F5_360_512 ' 5.25", 360KB, 512 bytes/sector F5_320_512 ' 5.25", 320KB, 512 bytes/sector F5_320_1024 ' 5.25", 320KB, 1024 bytes/sector F5_180_512 ' 5.25", 180KB, 512 bytes/sector F5_160_512 ' 5.25", 160KB, 512 bytes/sector RemovableMedia ' Removable media other than floppy FixedMedia ' Fixed hard disk media F3_120M_512 ' 3.5", 120M Floppy F3_640_512 ' 3.5" , 640KB, 512 bytes/sector F5_640_512 ' 5.25", 640KB, 512 bytes/sector F5_720_512 ' 5.25", 720KB, 512 bytes/sector F3_1Pt2_512 ' 3.5" , 1.2Mb, 512 bytes/sector F3_1Pt23_1024 ' 3.5" , 1.23Mb, 1024 bytes/sector F5_1Pt23_1024 ' 5.25", 1.23MB, 1024 bytes/sector F3_128Mb_512 ' 3.5" MO 128Mb 512 bytes/sector F3_230Mb_512 ' 3.5" MO 230Mb 512 bytes/sector F8_256_128 ' 8", 256KB, 128 bytes/sector F3_200Mb_512 ' 3.5", 200M Floppy (HiFD) F3_240M_512 ' 3.5", 240Mb Floppy (HiFD) F3_32M_512 ' 3.5", 32Mb Floppy End Enum ' ' Define the different storage bus types ' Bus types below 128 (0x80) are reserved for Microsoft use ' Public Enum STORAGE_BUS_TYPE BusTypeUnknown = &H0 BusTypeScsi BusTypeAtapi BusTypeAta BusType1394 BusTypeSsa BusTypeFibre BusTypeUsb BusTypeRAID BusTypeiScsi BusTypeSas BusTypeSata BusTypeMaxReserved = &H7F End Enum <StructLayout(LayoutKind.Sequential)> _ Public Structure OVERLAPPED Public Internal As Integer Public InternalHigh As Integer Public offset As Integer Public OffsetHigh As Integer Public hEvent As Integer End Structure #End Region #Region "Error Codes" Public Shared Function TranslateError(ByVal Exception As Int32) Dim RetVal As [String] _ = Hex$(Exception).ToString Select Case Exception Case 122 : RetVal = "ERROR_INSUFFICIENT_BUFFER. The data area passed to a system call is too small." End Select Return RetVal End Function #End Region End Class End Namespace Получение информации о геометрии диска: Значение IOCTL_DISK_GET_DRIVE_GEOMETRY получаем с помощью CTL_CODE() и = &H70000. При его передачи DeviceIoControl, получаем указатель на буфер с данными о параметрах диска, как то: тип, кол-во цилиндров, кол-во треков на цилиндре, секторов на треке, байт в каждом секторе. Для получения дополнительной информации, можно использовать IOCTL_DISK_GET_DRIVE_GEOMETRY_EX. В обоих случаях в DeviceIoControl входящий буфер не используется. Вместо [\\.\PhysicalDrive0] можно использовать [\\.\c:]. <STAThread()> Sub GET_DRIVE_GEOMETRY() Const FILE_SHARE_READ As Integer = 1 _ , FILE_SHARE_WRITE As Integer = 2 _ , OPEN_EXISTING As Integer = 3 Dim DriveName As String = "\\.\PhysicalDrive0" Dim Handle As Integer = Emicrox.Win32_DiskManagement.IO.CreateFile( _ DriveName, 0, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0 _ , OPEN_EXISTING, 0, 0 _ ) If Not (Handle = -1) Then Dim bytesread As Integer Dim IOCTL_DISK_GET_DRIVE_GEOMETRY As Integer _ = Emicrox.Win32_DiskManagement.IO.CTL_CODE( _ Emicrox.Win32_DiskManagement.IOCTL_DISK_BASE, &H0, _ Emicrox.Win32_DiskManagement.METHOD_BUFFERED, _ Emicrox.Win32_DiskManagement.FILE_ANY_ACCESS _ ) Dim DISK_GEOMETRY As Emicrox.Win32_DiskManagement.DISK_GEOMETRY Dim ptrSize As Integer _ = Runtime.InteropServices.Marshal.SizeOf(DISK_GEOMETRY) Dim ptr As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(ptrSize) Runtime.InteropServices.Marshal.StructureToPtr(DISK_GEOMETRY, ptr, True) Try If Not Emicrox.Win32_DiskManagement.DeviceIoControl( _ Handle, IOCTL_DISK_GET_DRIVE_GEOMETRY, Nothing, 0 _ , ptr, ptrSize _ , bytesread _ , 0) = 0 Then DISK_GEOMETRY = Runtime.InteropServices.Marshal.PtrToStructure(ptr, _ GetType(Emicrox.Win32_DiskManagement.DISK_GEOMETRY)) With DISK_GEOMETRY Console.WriteLine(String.Concat( _ "Cylinders: ", .Cylinders, vbCrLf _ , "MediaType: ", .MediaType, vbCrLf _ , "TracksPerCylinder: ", .TracksPerCylinder, vbCrLf _ , "SectorsPerTrack: ", .SectorsPerTrack, vbCrLf _ , "BytesPerSector: ", .BytesPerSector, vbCrLf _ )) End With Else Dim Exception _ = Emicrox.Win32_DiskManagement.IO.GetLastError() Console.WriteLine(String.Concat("[", Hex$(Exception), "] - " _ , Emicrox.Win32_DiskManagement.TranslateError(Exception) _ , "!") _ ) End If Catch ex As Exception Console.WriteLine(String.Concat( _ ex.Message _ )) End Try Runtime.InteropServices.Marshal.FreeHGlobal(ptr) Else Console.WriteLine(String.Concat( _ "Unable to open " _ , DriveName) _ ) End If Call Emicrox.Win32_DiskManagement.IO.CloseHandle(Handle) Console.ReadLine() End Sub Получение информации о структуре разделов диска: Передаем в DeviceIoControl манипулятор раздела. Для получения дополнительной информации, можно использовать PARTITION_INFORMATION_EX. Для получения информации о количестве разделов диска также можно использовать код IOCTL_DISK_GET_DRIVE_LAYOUT (и, соответственно IOCTL_DISK_GET_DRIVE_LAYOUT_EX). <STAThread()> Sub GET_PARTITION_INFO() Dim bytesread As Integer Dim IOCTL_DISK_GET_PARTITION_INFO As Integer _ = Emicrox.Win32_DiskManagement.IO.CTL_CODE( _ Emicrox.Win32_DiskManagement.IOCTL_DISK_BASE, &H1, _ Emicrox.Win32_DiskManagement.METHOD_BUFFERED, _ Emicrox.Win32_DiskManagement.FILE_READ_ACCESS _ ) Dim PARTITION_INFORMATION As Emicrox.Win32_DiskManagement.PARTITION_INFORMATION Dim ptrSize As Integer _ = Runtime.InteropServices.Marshal.SizeOf(PARTITION_INFORMATION) Dim ptr As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(ptrSize) Runtime.InteropServices.Marshal.StructureToPtr(PARTITION_INFORMATION, ptr, True) Try If Not (Emicrox.Win32_DiskManagement.DeviceIoControl( _ [PARTITION.handle], IOCTL_DISK_GET_PARTITION_INFO, Nothing, 0 _ , ptr, ptrSize _ , bytesread _ , 0 _ ) = 0) Then PARTITION_INFORMATION = Runtime.InteropServices.Marshal.PtrToStructure(ptr, _ GetType(Emicrox.Win32_DiskManagement.PARTITION_INFORMATION)) With PARTITION_INFORMATION Console.WriteLine(String.Concat( _ "PartitionNumber: ", .PartitionNumber, vbCrLf _ , "PartitionType: ", .PartitionType, vbCrLf _ , "PartitionLength: ", .PartitionLength, vbCrLf _ , "BootIndicator: ", .BootIndicator, vbCrLf _ , "HiddenSectors: ", .HiddenSectors, vbCrLf _ , "RecognizedPartition: ", .RecognizedPartition, vbCrLf _ , "RewritePartition: ", .RewritePartition, vbCrLf _ )) End With Else Dim Exception _ = Emicrox.Win32_DiskManagement.IO.GetLastError() Console.WriteLine(String.Concat("[", Hex$(Exception), "] - " _ , Emicrox.Win32_DiskManagement.TranslateError(Exception) _ , "!") _ ) End If Catch ex As Exception Console.WriteLine(String.Concat( _ ex.Message _ )) End Try Runtime.InteropServices.Marshal.FreeHGlobal(ptr) End Sub .net, disk, io, management, vb, visual basic, win32** KOS_MOS На?уралист? 19.10.2008 Alex [Добавлено 16.07.2010 22:12:26] Emicrox ->? Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt