怎么在dll中载入控制台窗口呢

枭晓岚

rt


补充内容 (2021-8-1 16:52):
还有 标准输入/输出 这两条命令

XcantloadX

封装好的：
（请自行声明用到的 DLL 命令）

  

窗口程序集名	保 留	保 留	备 注
程序集_调试
变量名	类 型	数组	备 注
m_ininted	逻辑型
p_handleOut	整数型		输出句柄
m_输出到易语言	逻辑型

子程序名	返回值类型	公开	备 注
控制台_初始化	逻辑型

变量名	类 型	静态	数组	备 注
retval	逻辑型

retval ＝ AllocConsole ()
p_handleOut ＝ GetStdHandle ( #STD_OUTPUT_HANDLE )
m_ininted ＝ 真
返回 (retval)

子程序名	返回值类型	公开	备 注
控制台_销毁	逻辑型

返回 (FreeConsole ())

子程序名	返回值类型	公开	备 注
控制台_输出
参数名	类 型	参考	可空	数组	备 注
内容	文本型
自动换行	逻辑型				默认为真

如果真 (是否为空 (自动换行) 或 自动换行)
内容 ＝ 内容 ＋ #换行符

如果真 (m_ininted)
WriteConsole (p_handleOut, 内容, 取文本长度 (内容), 0, 0)

如果真 (m_输出到易语言)
输出调试文本 (内容)

子程序名	返回值类型	公开	备 注
控制台_置光标位置
参数名	类 型	参考	可空	数组	备 注
x	短整数型
y	短整数型

变量名	类 型	静态	数组	备 注
coord	COORD

如果真 (m_ininted ＝ 假)
返回 ()
coord.x ＝ x
coord.y ＝ y
SetConsoleCursorPosition (p_handleOut, coord)

子程序名	返回值类型	公开	备 注
控制台_置文本颜色	逻辑型		百d百科搜 SetConsoleTextAttribute 可以找到颜色代码参考
参数名	类 型	参考	可空	数组	备 注
颜色	整数型				#FOREGROUND_ 开头常量

' 颜色表参考：[url=https://baike.baidu.com/pic/SetConsoleTextAttribute/570121/0/4a36acaf2edda3cc76a4e8d908e93901203f9282?fr=lemma&ct=single#aid=0&pic=4a36acaf2edda3cc76a4e8d908e93901203f9282]https://baike.baidu.com/pic/SetConsoleTextAttribute/570121/0/4a36acaf2edda3cc76a4e8d908e93901203f9282?fr=lemma&ct=single#aid=0&pic=4a36acaf2edda3cc76a4e8d908e93901203f9282[/url]
如果真 (m_ininted ＝ 假)
返回 (假)

返回 (SetConsoleTextAttribute (p_handleOut, 颜色))

子程序名	返回值类型	公开	备 注
调试_同时输出到易语言
参数名	类 型	参考	可空	数组	备 注
是否	逻辑型

m_输出到易语言 ＝ 是否

子程序名	返回值类型	公开	备 注
INFO			输出信息
参数名	类 型	参考	可空	数组	备 注
文本	文本型

' 调试输出 (“[INFO] ” ＋ msg)
控制台_置文本颜色 ( #FOREGROUND_WHITE )
控制台_输出 (“[INFO] ” ＋ 文本)

子程序名	返回值类型	公开	备 注
ERR			输出错误
参数名	类 型	参考	可空	数组	备 注
文本	文本型
弹出信息框	逻辑型				自动弹出相同内容的信息框提示用户，默认为假

' 调试输出 (“[ERROR] ” ＋ msg)
控制台_置文本颜色 ( #FOREGROUND_LIGHTRED )
控制台_输出 (“[ERROR] ” ＋ 文本)
如果真 (是否为空 (弹出信息框) ＝ 假 且 弹出信息框)
信息框 (文本, #错误图标 ＋ #确认钮, “错误”)

子程序名	返回值类型	公开	备 注
WARN			输出警告
参数名	类 型	参考	可空	数组	备 注
文本	文本型
弹出信息框	逻辑型				自动弹出相同内容的信息框提示用户，默认为假

' 调试输出 (“[WARN] ” ＋ msg)
控制台_置文本颜色 ( #FOREGROUND_YELLOW )
控制台_输出 (“[WARN] ” ＋ 文本)
如果真 (是否为空 (弹出信息框) ＝ 假 且 弹出信息框)
信息框 (文本, #警告图标 ＋ #确认钮, “警告”)

子程序名	返回值类型	公开	备 注
SUCCESS			输出成功
参数名	类 型	参考	可空	数组	备 注
文本	文本型

控制台_置文本颜色 ( #FOREGROUND_GREEN )
控制台_输出 (“[INFO] ” ＋ 文本)

.版本 2<br /> <br /> .程序集 程序集_调试<br /> .程序集变量 m_ininted, 逻辑型<br /> .程序集变量 p_handleOut, 整数型, , , 输出句柄<br /> .程序集变量 m_输出到易语言, 逻辑型<br /> <br /> .子程序 控制台_初始化, 逻辑型, 公开<br /> .局部变量 retval, 逻辑型<br /> <br /> retval ＝ AllocConsole ()<br /> p_handleOut ＝ GetStdHandle (#STD_OUTPUT_HANDLE)<br /> m_ininted ＝ 真<br /> 返回 (retval)<br /> <br /> .子程序 控制台_销毁, 逻辑型, 公开<br /> <br /> 返回 (FreeConsole ())<br /> <br /> .子程序 控制台_输出, , 公开<br /> .参数 内容, 文本型<br /> .参数 自动换行, 逻辑型, 可空, 默认为真<br /> <br /> .如果真 (是否为空 (自动换行) 或 自动换行)<br />     内容 ＝ 内容 ＋ #换行符<br /> .如果真结束<br /> <br /> .如果真 (m_ininted)<br />     WriteConsole (p_handleOut, 内容, 取文本长度 (内容), 0, 0)<br /> .如果真结束<br /> <br /> .如果真 (m_输出到易语言)<br />     输出调试文本 (内容)<br /> .如果真结束<br /> <br /> <br /> .子程序 控制台_置光标位置, , 公开<br /> .参数 x, 短整数型<br /> .参数 y, 短整数型<br /> .局部变量 coord, COORD<br /> <br /> .如果真 (m_ininted ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> coord.x ＝ x<br /> coord.y ＝ y<br /> SetConsoleCursorPosition (p_handleOut, coord)<br /> <br /> .子程序 控制台_置文本颜色, 逻辑型, 公开, 百d百科搜 SetConsoleTextAttribute 可以找到颜色代码参考<br /> .参数 颜色, 整数型, , #FOREGROUND_ 开头常量<br /> <br /> ' 颜色表参考：<a href="https://baike.baidu.com/pic/SetConsoleTextAttribute/570121/0/4a36acaf2edda3cc76a4e8d908e93901203f9282?fr=lemma&ct=single#aid=0&pic=4a36acaf2edda3cc76a4e8d908e93901203f9282" rel="nofollow" target="_blank">https://baike.baidu.com/pic/SetConsoleTextAttribute/570121/0/4a36acaf2edda3cc76a4e8d908e93901203f9282?fr=lemma&ct=single#aid=0&pic=4a36acaf2edda3cc76a4e8d908e93901203f9282</a><br /> .如果真 (m_ininted ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 返回 (SetConsoleTextAttribute (p_handleOut, 颜色))<br /> <br /> .子程序 调试_同时输出到易语言, , 公开<br /> .参数 是否, 逻辑型<br /> <br /> m_输出到易语言 ＝ 是否<br /> <br /> .子程序 INFO, , 公开, 输出信息<br /> .参数 文本, 文本型<br /> <br /> ' 调试输出 (“[INFO] ” ＋ msg)<br /> 控制台_置文本颜色 (#FOREGROUND_WHITE)<br /> 控制台_输出 (“[INFO] ” ＋ 文本)<br /> <br /> .子程序 ERR, , 公开, 输出错误<br /> .参数 文本, 文本型<br /> .参数 弹出信息框, 逻辑型, 可空, 自动弹出相同内容的信息框提示用户，默认为假<br /> <br /> ' 调试输出 (“[ERROR] ” ＋ msg)<br /> 控制台_置文本颜色 (#FOREGROUND_LIGHTRED)<br /> 控制台_输出 (“[ERROR] ” ＋ 文本)<br /> .如果真 (是否为空 (弹出信息框) ＝ 假 且 弹出信息框)<br />     信息框 (文本, #错误图标 ＋ #确认钮, “错误”)<br /> .如果真结束<br /> <br /> <br /> .子程序 WARN, , 公开, 输出警告<br /> .参数 文本, 文本型<br /> .参数 弹出信息框, 逻辑型, 可空, 自动弹出相同内容的信息框提示用户，默认为假<br /> <br /> ' 调试输出 (“[WARN] ” ＋ msg)<br /> 控制台_置文本颜色 (#FOREGROUND_YELLOW)<br /> 控制台_输出 (“[WARN] ” ＋ 文本)<br /> .如果真 (是否为空 (弹出信息框) ＝ 假 且 弹出信息框)<br />     信息框 (文本, #警告图标 ＋ #确认钮, “警告”)<br /> .如果真结束<br /> <br /> <br /> .子程序 SUCCESS, , 公开, 输出成功<br /> .参数 文本, 文本型<br /> <br /> 控制台_置文本颜色 (#FOREGROUND_GREEN)<br /> 控制台_输出 (“[INFO] ” ＋ 文本)

850536360

AllocConsole ()
https://docs.microsoft.com/zh-cn/windows/console/console-functions

枭晓岚

850536360 发表于 2021-8-1 15:25
AllocConsole ()
https://docs.microsoft.com/zh-cn/windows/console/console-functions

怎么在里面执行 标准输入/输出 这两个命令呢

枭晓岚

XcantloadX 发表于 2021-8-1 15:45
封装好的：
（请自行声明用到的 DLL 命令）
[e=0].版本 2

用到的常量内容可以提供一下吗

XcantloadX

枭晓岚 发表于 2021-8-1 15:55
用到的常量内容可以提供一下吗

  

常量名称	常量值	公 开	备 注
FOREGROUND_DRAKRED	4		0x004
FOREGROUND_LIGHTRED	12
FOREGROUND_WHITE	7
FOREGROUND_YELLOW	14
FOREGROUND_GREEN	10
STD_OUTPUT_HANDLE	-11

.版本 2<br /> <br /> .常量 FOREGROUND_DRAKRED, "4", , 0x004<br /> .常量 FOREGROUND_LIGHTRED, "12"<br /> .常量 FOREGROUND_WHITE, "7"<br /> .常量 FOREGROUND_YELLOW, "14"<br /> .常量 FOREGROUND_GREEN, "10"<br /> .常量 STD_OUTPUT_HANDLE, "-11"

枭晓岚

关于WriteConsole这条dll命令我搜索到的是

  

DLL命令名	返回值类型	公开	备 注
WriteConsoleA	逻辑型		向控制台窗口输出文本
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
WriteConsoleA
参数名	类 型	传址	数组	备 注
hConsoleInput	整数型			控制台的标准输出句柄
lpBuffer	整数型			指向输出的内容
nNumberOfCharsToWrite	整数型			指定要输出的数据长度
lpNumberOfCharsWritten	整数型			指向一个双字，用来返回实际输出的字节数
lpReserved	整数型			保留值.为NULL

.版本 2<br /> <br /> .DLL命令 WriteConsoleA, 逻辑型, "kernel32.dll", "WriteConsoleA", , 向控制台窗口输出文本<br />     .参数 hConsoleInput, 整数型, , 控制台的标准输出句柄<br />     .参数 lpBuffer, 整数型, , 指向输出的内容<br />     .参数 nNumberOfCharsToWrite, 整数型, , 指定要输出的数据长度<br />     .参数 lpNumberOfCharsWritten, 整数型, , 指向一个双字，用来返回实际输出的字节数<br />     .参数 lpReserved, 整数型, , 保留值.为NULL

但是他都是整数型

  

WriteConsoleA (p_handleOut, 内容, 取文本长度 (内容), 0, 0)

WriteConsoleA (p_handleOut, 内容, 取文本长度 (内容), 0, 0)

这条命令用到的“内容”是文本型的呀

枭晓岚

XcantloadX 发表于 2021-8-1 15:56
[e=0].版本 2

.常量 FOREGROUND_DRAKRED, "4", , 0x004

控制输入的功能貌似没有实现呢

枭晓岚

我换成这条可以输出了

  

DLL命令名	返回值类型	公开	备 注
WriteConsoleOutputCharacterA	逻辑型
DLL库文件名:
kernel32
在DLL库中对应命令名:
WriteConsoleOutputCharacterA
参数名	类 型	传址	数组	备 注
hConsoleOutput	整数型			0
lpCharacter	文本型			0
nLength	整数型			0
dwWriteCoord	整数型			0
lpNumberOfCharsWritten	整数型			0

.版本 2<br /> <br /> .DLL命令 WriteConsoleOutputCharacterA, 逻辑型, "kernel32", "WriteConsoleOutputCharacterA"<br />     .参数 hConsoleOutput, 整数型, , 0<br />     .参数 lpCharacter, 文本型, , 0<br />     .参数 nLength, 整数型, , 0<br />     .参数 dwWriteCoord, 整数型, , 0<br />     .参数 lpNumberOfCharsWritten, 整数型, , 0

标准输入功能好像还是没有实现呢

XcantloadX

枭晓岚 发表于 2021-8-1 16:22
关于WriteConsole这条dll命令我搜索到的是[e=1].版本 2

.DLL命令 WriteConsoleA, 逻辑型, "kernel32.dll", ...

lpBuffer 应该是文本型，我用的就是文本型，没问题