史上最仿CMD，你可能简直看不出来是仿的还是真的！！ - 精易论坛

变量名	类型	静态	数组	备注
输入内容	文本型

标准输出 (1, #CMD基本输出信息＋ #换行符 )

判断循环首 (1 ＝到整数 (“1”))

标准输出 (1, #换行符＋取运行目录 () ＋ “>”)

输入内容＝标准输入 (真)

SECURITY_ATTRIBUTES.nLength ＝ 12

SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0

SECURITY_ATTRIBUTES.bInheritHandle ＝ 1

CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0) ' 创建一个匿名管道

STARTUPINFO.cb ＝ 68

STARTUPINFO.dwFlags ＝位或 ( #STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES )

STARTUPINFO.wShowWindow ＝ #SW_HIDE

STARTUPINFO.hStdOutput ＝ hWrite

STARTUPINFO.hStdError ＝ hWrite

如果 (取操作系统类别 () ≤ 2)

CreateProcess (0, “command.com /c ” ＋输入内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

CreateProcess (0, “cmd.exe /c ” ＋输入内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

CloseHandle (hWrite) ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口

判断循环首 (len ≠ -1) ' 制造一个无限循环

PeekNamedPipe (hRead, 0, 0, 0, len, 0) ' 查看管道中是否有数据

如果 (len ≠ 0)

txt ＝取空白字节集 (1024)

ReadFile (hRead, txt, 1023, len, 0) ' 从管道中读取数据

标准输出 (1, 取字节集数据 (txt, #文本型, ))

GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT) ' 查看指定进程是否已结束

如果真 (EXIT ≠ #STILL_ACTIVE ) ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！

CloseHandle (hRead) ' 关闭管道

跳出循环 ()

处理事件 ()

输出调试文本 (到文本 (len))

判断循环尾 ()

判断循环尾 ()
返回 (0) ' 可以根据您的需要返回任意数值

.版本 2<br />
<br />
.局部变量 输入内容, 文本型<br />
<br />
标准输出 (1, #CMD基本输出信息 ＋ #换行符)<br />
.判断循环首 (1 ＝ 到整数 (“1”))<br />
    标准输出 (1, #换行符 ＋ 取运行目录 () ＋ “>”)<br />
    输入内容 ＝ 标准输入 (真)<br />
    SECURITY_ATTRIBUTES.nLength ＝ 12<br />
    SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0<br />
    SECURITY_ATTRIBUTES.bInheritHandle ＝ 1<br />
    CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个匿名管道<br />
    STARTUPINFO.cb ＝ 68<br />
    STARTUPINFO.dwFlags ＝ 位或 (#STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES)<br />
    STARTUPINFO.wShowWindow ＝ #SW_HIDE<br />
    STARTUPINFO.hStdOutput ＝ hWrite<br />
    STARTUPINFO.hStdError ＝ hWrite<br />
    .如果 (取操作系统类别 () ≤ 2)<br />
        CreateProcess (0, “command.com /c ” ＋ 输入内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br />
    .否则<br />
        CreateProcess (0, “cmd.exe /c ” ＋ 输入内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br />
    .如果结束<br />
<br />
    CloseHandle (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口<br />
    .判断循环首 (len ≠ -1)  ' 制造一个无限循环<br />
        PeekNamedPipe (hRead, 0, 0, 0, len, 0)  ' 查看管道中是否有数据<br />
        .如果 (len ≠ 0)<br />
            txt ＝ 取空白字节集 (1024)<br />
            ReadFile (hRead, txt, 1023, len, 0)  ' 从管道中读取数据<br />
            标准输出 (1, 取字节集数据 (txt, #文本型, ))<br />
        .否则<br />
            GetExitCodeProcess (PROCESS_INFORMATION.hProcess, EXIT)  ' 查看指定进程是否已结束<br />
            .如果真 (EXIT ≠ #STILL_ACTIVE)  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！<br />
                CloseHandle (hRead)  ' 关闭管道<br />
                跳出循环 ()<br />
            .如果真结束<br />
<br />
        .如果结束<br />
        处理事件 ()<br />
        输出调试文本 (到文本 (len))<br />
    .判断循环尾 ()<br />
<br />
.判断循环尾 ()<br />
返回 (0)  ' 可以根据您的需要返回任意数值