Imports System.Runtime.InteropServices

''' <summary>

''' 这就是传说中的PCB
''' </summary>

Structure KPROCESS

    Dim Header As DispatcherHeader

    Dim ProfileListHead As LinkedList(Of ProcessProfileSimulator)

    Dim DirectoryTableBase As UInteger

    Dim LdtDescriptor As KernelGlobalDescriptorTableEntry

    Dim Int21Descriptor As KernelInterruptDescriptorTableEntry

    Dim IopmOffset As Short

    Dim Iopl As Byte

    Dim ActiveProcessors As UInteger

    Dim KernelTime As UInteger

    Dim UserTime As UInteger

    Dim ReadyListHead As LinkedList(Of ProcessSimulator)

    Dim SwapListEntry As SingleLinkedList(Of ProcessSimulator)

    Dim VdmTrapcHandler As IntPtr

    Dim ThreadListHead As LinkedList(Of ThreadSimulator)

    Dim ProcessLock As UInteger

    Dim Affinity As UInteger

    Dim ProcessFlags As ProcessFlag

    Dim BasePriority As SByte

    Dim QuantumReset As SByte

    Dim State As Byte

    Dim ThreadSeed As Byte

    Dim PowerState As Byte

    Dim IdealNode As Byte

    Dim Visited As Byte

    Dim ExecuteOptions As Byte

    Dim StackCount As UInteger

    Dim ProcessListEntry As LinkedList(Of ProcessSimulator)

    Dim CycleTime As ULong

End Structure

Enum ProcessFlag

    None

    AutoAlignment

    DisableBoost

    DisableQuantum =

End Enum

Structure DispatcherHeader

    Dim UnionType As Byte

    Dim UnionData As UnionA

    <StructLayout(LayoutKind.Explicit)>

    Structure UnionA

        <FieldOffset(0)> Dim Abandoned As Byte

        <FieldOffset()> Dim Absolute As Byte

        <FieldOffset()> Dim NpxIrql As Byte

        <FieldOffset()> Dim Signalling As Byte

        <FieldOffset()> Dim Size As Byte

        <FieldOffset()> Dim Hand As Byte

        <FieldOffset()> Dim Inserted As Byte

        <FieldOffset()> Dim DebugActive As Byte

        <FieldOffset()> Dim DpcActive As Byte

    End Structure

    Dim Lock As Integer

    Dim SignalState As Integer

    Dim WaitListHead As LinkedList(Of ProcessSimulator)

End Structure

Structure KernelGlobalDescriptorTableEntry

    Dim LimitLow As Short

    Dim BaseLow As Short

    Dim HighWord As UInteger

End Structure

Structure KernelInterruptDescriptorTableEntry

    Dim Offset As Short

    Dim Selector As Short

    Dim Access As Short

    Dim ExtendedOffset As Short

End Structure

Enum KernelExecuteOptions As Byte

    None

    ExecuteDisable

    ExecuteEnable

    DisableThunkEmulation =

    Permanent =

    ExecuteDispatchEnable =

    ImageDispatchEnable =

End Enum

Public Class SingleLinkedList(Of T)

    Public Property [Next] As SingleLinkedList(Of T)
    Public Property Value As T

End Class