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

1185384801

CMD这个东西大家应该知道，匿名管道大家也应该知道
不知道的看看解析吧：

1. 匿名管道是一种进程间的通讯方式，是相对于命名管道的概念提出的。
   
2. 命名管道可用于任意两个进程间的通讯。
   
3. 匿名管道仅可用于本地进程，并且必须是父进程与子进程间的通讯。
   
4. 它的优点是运行速度快，系统消耗小。缺点就是以上的限制条件啦。

复制代码

这个还是很简单的了，就是一个进程通讯吧
网上关于用匿名管道仿CMD的帖子不少，可谁又做得了高仿？还别说，我真做出来了
先丢点图镇楼：

左边这个是假的（仿），右边是真，哈哈，这是点阵字体哦！！
原理：
1、建立WINGDOWS控制台程序
2、然后写代码：

  

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

标准输出 (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)  ' 可以根据您的需要返回任意数值

哈哈，用WINDOWS控制台，界面什么的就不用愁了！输出点信息都是点阵字体！！
然后读入输入文本开启管道就是了，是不是特别简单呢？
老规矩：源码回复下载！
如果你觉得可以的，好评打赏走一波~
超仿CMD.zip (11.62 KB, 下载次数: 987)

2018-1-30 16:29 上传

点击文件名下载附件

Gato

感谢分享，很给力！~

qq102030

支持                       

oppo1155

如果管道让选择[Y/N]怎么输入？

yujia62

好厉害，下载用了谢谢

wcx1111

系统_匿名管道运行DOS_读管道 ("回调事件[整数型]")

ttuzi

感谢分享

c虾扯蛋

6666666666666666666666666

恩派尔电脑

来学习一下看看

As0427

学习一下。。。

jiuren

如果你觉得可以的