zoukankan      html  css  js  c++  java
  • [水]用vb写了个PCB

    这学期我们学操作系统,所以得写个PCB。

    于是我借鉴了一下windows的PCB,写了这个

    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 = 4 End Enum Structure DispatcherHeader Dim UnionType As Byte Dim UnionData As UnionA <StructLayout(LayoutKind.Explicit)> Structure UnionA <FieldOffset(0)> Dim Abandoned As Byte <FieldOffset(1)> Dim Absolute As Byte <FieldOffset(2)> Dim NpxIrql As Byte <FieldOffset(3)> Dim Signalling As Byte <FieldOffset(0)> Dim Size As Byte <FieldOffset(1)> Dim Hand As Byte <FieldOffset(0)> Dim Inserted As Byte <FieldOffset(1)> Dim DebugActive As Byte <FieldOffset(2)> 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 = 4 Permanent = 8 ExecuteDispatchEnable = 16 ImageDispatchEnable = 32 End Enum

    那个SingleLinkedList是我自定义的

    Public Class SingleLinkedList(Of T)
        Public Property [Next] As SingleLinkedList(Of T)
    Public Property Value As T
    End Class
  • 相关阅读:
    结构体字节对齐
    ORACLE自增长字段实现
    Oracle 11.2.0.2新特性——用户重命名(Rename User)
    oracle expdp/impdp 用法详解
    sql语句面试题(城市人口统计) .
    ORA30553: 函数不确定!
    SQL Express自动备份 .
    SQL 2005的DES加密算法
    SQL 2005加密数据方法
    CREATE VIEW ORA01031
  • 原文地址:https://www.cnblogs.com/Nukepayload2/p/os_pcbmodel_vb.html
Copyright © 2011-2022 走看看