易语言高仿cmd窗口源码

系统结构:取创建进程窗口,GetForegroundWindow,SetParent,取窗口矩形_,移动窗口_,取窗口结构信息,置窗口结构信息1,GetWindowThreadProcessId,OpenProcess,TerminateProcess,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取创建进程窗口
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetForegroundWindow
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   移动窗口_
           |  |
           |  |---[dll]------   取窗口结构信息
           |  |
           |  |---[dll]------   置窗口结构信息1
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   TerminateProcess

调用的DLL命令:

.DLL命令 GetForegroundWindow, 整数型

.DLL命令 SetParent, 整数型
    .参数 a, 整数型
    .参数 b, 整数型

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 移动窗口_, 整数型, "user32.dll", "MoveWindow", , 成功返回非0
    .参数 窗口句柄, 整数型
    .参数 横, 整数型
    .参数 纵, 整数型
    .参数 宽, 整数型
    .参数 高, 整数型
    .参数 刷新, 逻辑型

.DLL命令 取窗口结构信息, 整数型, "user32.dll", "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 属性索引, 整数型, , Long，欲取回的信息，可以是下述任何一个常数： 
GWL_EXSTYLE 扩展窗口样式 
GWL_STYLE 窗口样式 
GWL_WNDPROC 该窗口的窗口函数的地址 
GWL_HINSTANCE 拥有窗口的实例的句柄 
GWL_HWNDPARENT 该窗口之父的句柄。不要用SetWindowWord来改变这个值 
GWL_ID 对话框中一个子窗口的标识符 
GWL_USERDATA 含义由应用程序规定 
DWL_DLGPROC 这个窗口的对话框函数地址 
DWL_MSGRESULT 在对话框函数中处理的一条消息返回的值 
DWL_USER 含义由应用程序规定

.DLL命令 置窗口结构信息1, 整数型, "user32.dll", "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 索引, 整数型
    .参数 处理函数入口, 整数型

.DLL命令 GetWindowThreadProcessId, , , "GetWindowThreadProcessId"
    .参数 hWnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 OpenProcess, 整数型, , "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessId, 整数型

.DLL命令 TerminateProcess, 逻辑型, , "TerminateProcess"
    .参数 hProcess, 整数型
    .参数 uExitCode, 整数型