隐藏控制台模块 （后台启动控制台程序，通过管道获取控制台信息，进行管理）

蒙顺童

日志输出 (“抢购状态：大萨达”, 15)日志输出 (“抢购状态：大萨达”, 15)

BptDada

如果控制台程序运行完整个程序就自动退出了怎么办

BptDada

感谢大佬，很好用

yy750446

A举个栗子

记得 将该类放到程序集变量，或者全局变量哦

caoniamsd

看看看看

coolya

不是吧,怎么还要币的

coolya

1766666666666666666666666666666666666666666666666666666

mole

tsqdhh 发表于 2019-10-10 12:09
试试看

增加给控制台发送信息

  

子程序名	返回值类型	公开	备 注
接收线程
参数名	类 型	参考	可空	数组	备 注
管道输出端句柄1	整数型
管道输入端句柄1	整数型
管道输出端句柄2	整数型
管道输入端句柄2	整数型
进程标识	整数型
进程ID	整数型
回调子程序	整数型
进程句柄	整数型

变量名	类 型	静态	数组	备 注
数据缓冲区	字节集
输出文本	文本型
实际读取字节数	整数型
可读取总字节数	整数型
i	整数型
备注1	长整数型
备注2	文本型

临界许可.进入 ()
' --------------------------------------------------------------------线程安全区
计次循环首 (取数组成员数 (集_控制台信息), i)
如果真 (集_控制台信息 [i].进程标识 ＝ 进程标识)
备注1 ＝ 集_控制台信息 [i].备注信息1
备注2 ＝ 集_控制台信息 [i].备注信息2
跳出循环 ()

计次循环尾 ()
' --------------------------------------------------------------------线程安全区
临界许可.退出 ()
Call3 (回调子程序, 进程标识, 进程ID, “Start.[CID:” ＋ 到文本 (进程标识) ＋ “][ID:” ＋ 到文本 (进程ID) ＋ “]” ＋ “{RMK1:” ＋ 到文本 (备注1) ＋ “}{RMK2:” ＋ 备注2 ＋ “}” ＋ #换行符 )
判断循环首 (PeekNamedPipe (管道输出端句柄2, 0, 0, 0, 可读取总字节数, 0) ≠ 0)
如果 (可读取总字节数 ＞ 0)
数据缓冲区 ＝ 取空白字节集 (可读取总字节数)
ReadFile (管道输出端句柄2, 数据缓冲区, 可读取总字节数, 实际读取字节数, 0)
输出文本 ＝ UTF8到文本 (数据缓冲区)
Call3 (回调子程序, 进程标识, 进程ID, 输出文本)
如果真 (WaitForSingleObject (进程句柄, 0) ＝ 0)
跳出循环 ()
延时 (500)

判断循环尾 ()
CloseHandle (管道输出端句柄1)
CloseHandle (管道输入端句柄1)
CloseHandle (管道输出端句柄2)
CloseHandle (管道输入端句柄2)
临界许可.进入 ()
' --------------------------------------------------------------------线程安全区
计次循环首 (取数组成员数 (集_控制台信息), i)
如果 (进程标识 ＝ 0)
如果真 (集_控制台信息 [i].进程ID ＝ 进程ID)
备注1 ＝ 集_控制台信息 [i].备注信息1
备注2 ＝ 集_控制台信息 [i].备注信息2
删除成员 (集_控制台信息, i, 1)
跳出循环 ()

如果真 (集_控制台信息 [i].进程标识 ＝ 进程标识)
备注1 ＝ 集_控制台信息 [i].备注信息1
备注2 ＝ 集_控制台信息 [i].备注信息2
删除成员 (集_控制台信息, i, 1)
跳出循环 ()


计次循环尾 ()
' --------------------------------------------------------------------线程安全区
临界许可.退出 ()
Call3 (回调子程序, 进程标识, 进程ID, “Exit.[CID:” ＋ 到文本 (进程标识) ＋ “][ID:” ＋ 到文本 (进程ID) ＋ “]” ＋ “{RMK1:” ＋ 到文本 (备注1) ＋ “}{RMK2:” ＋ 备注2 ＋ “}” ＋ #换行符 )

.版本 2<br /> <br /> .子程序 接收线程<br /> .参数 管道输出端句柄1, 整数型<br /> .参数 管道输入端句柄1, 整数型<br /> .参数 管道输出端句柄2, 整数型<br /> .参数 管道输入端句柄2, 整数型<br /> .参数 进程标识, 整数型<br /> .参数 进程ID, 整数型<br /> .参数 回调子程序, 整数型<br /> .参数 进程句柄, 整数型<br /> .局部变量 数据缓冲区, 字节集<br /> .局部变量 输出文本, 文本型<br /> .局部变量 实际读取字节数, 整数型<br /> .局部变量 可读取总字节数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 备注1, 长整数型<br /> .局部变量 备注2, 文本型<br /> <br /> 临界许可.进入 ()<br /> ' --------------------------------------------------------------------线程安全区<br /> .计次循环首 (取数组成员数 (集_控制台信息), i)<br />     .如果真 (集_控制台信息 <i>.进程标识 ＝ 进程标识)<br />         备注1 ＝ 集_控制台信息 <i>.备注信息1<br />         备注2 ＝ 集_控制台信息 <i>.备注信息2<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' --------------------------------------------------------------------线程安全区<br /> 临界许可.退出 ()<br /> <br /> Call3 (回调子程序, 进程标识, 进程ID, “Start.[CID:” ＋ 到文本 (进程标识) ＋ “][ID:” ＋ 到文本 (进程ID) ＋ “]” ＋ “{RMK1:” ＋ 到文本 (备注1) ＋ “}{RMK2:” ＋ 备注2 ＋ “}” ＋ #换行符)<br /> .判断循环首 (PeekNamedPipe (管道输出端句柄2, 0, 0, 0, 可读取总字节数, 0) ≠ 0)<br />     .如果 (可读取总字节数 ＞ 0)<br />         数据缓冲区 ＝ 取空白字节集 (可读取总字节数)<br />         ReadFile (管道输出端句柄2, 数据缓冲区, 可读取总字节数, 实际读取字节数, 0)<br />         输出文本 ＝ UTF8到文本 (数据缓冲区)<br />         Call3 (回调子程序, 进程标识, 进程ID, 输出文本)<br />     .否则<br />         .如果真 (WaitForSingleObject (进程句柄, 0) ＝ 0)<br />             跳出循环 ()<br />         .如果真结束<br />         延时 (500)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> CloseHandle (管道输出端句柄1)<br /> CloseHandle (管道输入端句柄1)<br /> CloseHandle (管道输出端句柄2)<br /> CloseHandle (管道输入端句柄2)<br /> <br /> 临界许可.进入 ()<br /> ' --------------------------------------------------------------------线程安全区<br /> .计次循环首 (取数组成员数 (集_控制台信息), i)<br />     .如果 (进程标识 ＝ 0)<br />         .如果真 (集_控制台信息 <i>.进程ID ＝ 进程ID)<br />             备注1 ＝ 集_控制台信息 <i>.备注信息1<br />             备注2 ＝ 集_控制台信息 <i>.备注信息2<br />             删除成员 (集_控制台信息, i, 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (集_控制台信息 <i>.进程标识 ＝ 进程标识)<br />             备注1 ＝ 集_控制台信息 <i>.备注信息1<br />             备注2 ＝ 集_控制台信息 <i>.备注信息2<br />             删除成员 (集_控制台信息, i, 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> ' --------------------------------------------------------------------线程安全区<br /> 临界许可.退出 ()<br /> <br /> Call3 (回调子程序, 进程标识, 进程ID, “Exit.[CID:” ＋ 到文本 (进程标识) ＋ “][ID:” ＋ 到文本 (进程ID) ＋ “]” ＋ “{RMK1:” ＋ 到文本 (备注1) ＋ “}{RMK2:” ＋ 备注2 ＋ “}” ＋ #换行符)

启动时能正确显示备注1和备注2了
返回中文不会乱码了

an1994114

感谢大佬6666666666666666