易语言屏幕蓝屏源码

系统结构:蓝屏2,蓝屏,NtRaiseHardError,RtlAdjustPrivilege,RtlInitUnicodeString,CloseWindowStation,CreateWindowStation,SetHandleInformation,取文本指针,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 蓝屏2
           |  |
           |  |------ 蓝屏
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   NtRaiseHardError
           |  |
           |  |---[dll]------   RtlAdjustPrivilege
           |  |
           |  |---[dll]------   RtlInitUnicodeString
           |  |
           |  |---[dll]------   CloseWindowStation
           |  |
           |  |---[dll]------   CreateWindowStation
           |  |
           |  |---[dll]------   SetHandleInformation
           |  |
           |  |---[dll]------   取文本指针

调用的DLL命令:

.DLL命令 NtRaiseHardError, 整数型, "ntdll.dll", "NtRaiseHardError"
    .参数 ErrorStatus, 整数型
    .参数 NumberOfParameters, 整数型
    .参数 UnicodeStringParameterMask, 整数型
    .参数 Parameters, 整数型, 传址 数组
    .参数 ValidResponseOptions, 整数型
    .参数 Response, 整数型, 传址

.DLL命令 RtlAdjustPrivilege, 整数型, "ntdll.dll", "RtlAdjustPrivilege"
    .参数 Privilege, 整数型
    .参数 Enable, 整数型
    .参数 Client, 整数型
    .参数 WasEnabled, 整数型, 传址

.DLL命令 RtlInitUnicodeString, , "ntdll.dll", "RtlInitUnicodeString"
    .参数 DestinationString, UNICODE_STRING, 传址
    .参数 SourceString, 文本型, 传址

.DLL命令 CloseWindowStation, 整数型, "user32", "CloseWindowStation"
    .参数 hWinSta, 整数型

.DLL命令 CreateWindowStation, 整数型, "user32.dll", "CreateWindowStationA"
    .参数 lpwinsta, 文本型
    .参数 dwReserved, 整数型
    .参数 dwDesiredAccess, 整数型
    .参数 lpsa, 整数型

.DLL命令 SetHandleInformation, 整数型, "kernel32", "SetHandleInformation"
    .参数 hObject, 整数型
    .参数 dwMask, 整数型
    .参数 dwFlags, 整数型

.DLL命令 取文本指针, 整数型, , "lstrcpyn", , 感谢海洋老师的例程
    .参数 变量, UNICODE_STRING, 传址, 一定要传址
    .参数 变量, UNICODE_STRING, 传址, 一定要传址.重复一次,骗骗Windows:)
    .参数 保留, 整数型, , 0