易语言取控制台文本源码 [db:版本]

易语言取控制台文本源码

系统结构:取控制台程序文本信息,CreateProcess,CreatePipe,ReadFile,WriteFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,GetShortPathNameA,

======窗口程序集1
| |
| |------ _启动子程序
| |
| |------ 取控制台程序文本信息
| |
| |
======调用的Dll
| |
| |---[dll]------ CreateProcess
| |
| |---[dll]------ CreatePipe
| |
| |---[dll]------ ReadFile
| |
| |---[dll]------ WriteFile
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ PeekNamedPipe
| |
| |---[dll]------ GetExitCodeProcess
| |
| |---[dll]------ GetShortPathNameA

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
.参数 lpApplicationName, 文本型
.参数 lpCommandLine, 文本型
.参数 lpProcessAttributes, 整数型
.参数 lpThreadAttributes, 整数型
.参数 bInheritHandles, 逻辑型
.参数 dwCreationFlags, 整数型
.参数 lpEnvironment, 整数型
.参数 lpCurrentDriectory, 文本型
.参数 lpStartupInfo, STARTUPINFO, 传址
.参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
.参数 phReadPipe, 整数型, 传址
.参数 phWritePipe, 整数型, 传址
.参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
.参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
.参数 hFile, 整数型
.参数 lpBuffer, 字节集, 传址
.参数 nNumberOfBytesToRead, 整数型
.参数 lpNumberOfBytesRead, 整数型, 传址
.参数 lpOverlapped, 整数型

.DLL命令 WriteFile, 整数型, , "WriteFile"
.参数 hFile, 整数型
.参数 lpBuffer, 字节集, 传址
.参数 nNumberOfBytesToRead, 整数型
.参数 lpNumberOfBytesRead, 整数型, 传址
.参数 lpOverlapped, 整数型

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
.参数 hObject, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
.参数 hNamedPipe, 整数型
.参数 lpBuffer, 整数型
.参数 nBufferSize, 整数型
.参数 lpBytesRead, 整数型
.参数 lpTotalBytesAvail, 整数型, 传址
.参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
.参数 hProcess, 整数型
.参数 lpExitCode, 整数型, 传址

.DLL命令 GetShortPathNameA, 整数型, "kernel32.dll", "GetShortPathNameA", , 返回装载到lpszShortPath缓冲区的字符数量。如lpszShortPath的长度不足，不能容下文件名，就返回需要的缓冲区长度
.参数 lpszLongPath, 文本型, , 指定欲获取短路径名的那个文件的名字。可以是个完整路径，或者由当前目录决定
.参数 lpszShortPath, 文本型, , 指定一个缓冲区，用于装载文件的短路径和文件名，需先分配空间。
.参数 cchBuffer, 整数型, , lpszShortPath缓冲区长度，请设置为260。