取DOS返回值，返回进程ID

向月亮道晚安 · 发表于 5 小时前

LEOONL 发表于 2024-10-22 13:28
放完整源码看看

就改了

如果真 (命令行文本＝ “”)
返回 (0)

这里

LEOONL · 发表于 5 小时前

向月亮道晚安发表于 2024-10-22 13:35
就改了

如果真 (命令行文本＝ “”)

完整源码，光你这段我运行不了

向月亮道晚安 · 发表于 5 小时前

LEOONL 发表于 2024-10-22 13:44
完整源码，光你这段我运行不了

窗口程序集名	保留	保留	备注
窗口程序集_窗口1

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
ID	整数型

ID ＝取DOS返回文本1 (编辑框2.内容, &信息回调)
调试输出 (ID)

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

编辑框3.加入文本 (文本＋ #换行符 )

子程序名	返回值类型	公开	备注
取DOS返回文本1	整数型		取出一个dos命令的返回信息。可设置即时回显。注意:该命令会阻塞,[返回值]一直到cmd中的内容执行完毕后才会返回。[取自超级模块]
参数名	类型	参考	可空	数组	备注
命令行文本	文本型				欲执行的命令行文本
即时回显	子程序指针				DOS即时回显信息回调函数回调DOS函数(回显信息) 返回逻辑值,真:停止,假:继续

变量名	类型	静态	数组	备注
SECURITY_ATTRIBUTES	SECURITY_ATTRIBUTES
STARTUPINFO	STARTUPINFO_短整数
PROCESS_INFORMATION	_进程结构
txt	字节集
len	整数型
hWrite	整数型
hRead	整数型
EXIT	整数型
返回值	文本型
临时	文本型
参数	整数型		1
进程ID	整数型

如果真 (命令行文本＝ “”)

返回 (0)

SECURITY_ATTRIBUTES.nLength ＝ 12
SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0
SECURITY_ATTRIBUTES.bInheritHandle ＝ 1
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0) ' 创建一个CMD匿名管道
STARTUPINFO.cb ＝ 68
STARTUPINFO.dwFlags ＝位或 ( #STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES )
STARTUPINFO.wShowWindow ＝ #SW_HIDE
STARTUPINFO.hStdOutput ＝ hWrite
STARTUPINFO.hStdError ＝ hWrite

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

进程ID=_创建新进程_短整数 (0, “command.com /c ” ＋命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

进程ID=_创建新进程_短整数 (0, “cmd.exe /c ” ＋命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

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

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

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

如果 (len ≠ 0)

txt ＝取空白字节集 (1024)

_读出文件中数据 (hRead, txt, 1023, len, 0) ' 从管道中读取数据

临时＝取字节集数据 (txt, #文本型, )

如果真 (是否为空 (即时回显) ＝假)

参数 [1] ＝ _取指针_文本型 (临时, 临时, 0)

如果真 (_动态调用子程序 ( #动态调用代码, 即时回显, 参数, 1, 假))

' ====图片字节集： #动态调用代码 ==== API动态调用子程序

' *** 缩略程序块 ***

' 动态调用代码 = {85,139,236,86,139,117,16,141,78,255,133,201,124,21,139,69,12,141,4,136,65,139,16,137,85,16,255,117,16,131,232,4,73,117,242,255,85,8,137,69,12,139,69,20,133,192,116,13,141,4,181,0,0,0,0,137,69,16,3,101,16,139,69,12,94,93,194,16,0}

' 【汇编码】：

' push ebp

' mov ebp, esp

' push esi

' mov esi, dword ptr [ebp+10h]

' lea ecx, dword ptr [esi-01h]

' test ecx, ecx

' jl Label1

' mov eax, dword ptr [ebp+0Ch]

' lea eax, dword ptr [eax+ecx*4]

' inc ecx

' Label2:

' mov edx, dword ptr [eax]

' mov dword ptr [ebp+10h], edx

' push dword ptr [ebp+10h]

' sub eax, 04h

' dec ecx

' jne Label2

' Label1:

' call dword ptr [ebp+08h]

' mov dword ptr [ebp+0Ch], eax

' mov eax, dword ptr [ebp+14h]

' test eax, eax

' je Label3

' lea eax, dword ptr [00000000h+esi*4]

' mov dword ptr [ebp+10h], eax

' add esp, dword ptr [ebp+10h]

' Label3:

' mov eax, dword ptr [ebp+0Ch]

' pop esi

' pop ebp

' retn 0010h

_关闭对象 (hRead)

跳出循环 ()

返回值＝返回值＋临时

_取中断进程退出代码 (PROCESS_INFORMATION.进程句柄, EXIT) ' 查看指定进程是否已结束

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

_关闭对象 (hRead) ' 关闭管道

跳出循环 ()

处理事件 ()

判断循环尾 ()
返回 (进程ID)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_窗口1<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 ID, 整数型<br />
<br />
ID ＝ 取DOS返回文本1 (编辑框2.内容, &信息回调)<br />
调试输出 (ID)<br />
<br />
.子程序 信息回调<br />
.参数 文本, 文本型<br />
<br />
编辑框3.加入文本 (文本 ＋ #换行符)<br />
<br />
<br />
<br />
<br />
.子程序 取DOS返回文本1, 整数型, 公开, 取出一个dos命令的返回信息。可设置即时回显。注意:该命令会阻塞,[返回值]一直到cmd中的内容执行完毕后才会返回。[取自超级模块]<br />
.参数 命令行文本, 文本型, , 欲执行的命令行文本<br />
.参数 即时回显, 子程序指针, 可空, DOS即时回显信息回调函数 回调DOS函数(回显信息) 返回逻辑值,真:停止,假:继续<br />
.局部变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES<br />
.局部变量 STARTUPINFO, STARTUPINFO_短整数<br />
.局部变量 PROCESS_INFORMATION, _进程结构<br />
.局部变量 txt, 字节集<br />
.局部变量 len, 整数型<br />
.局部变量 hWrite, 整数型<br />
.局部变量 hRead, 整数型<br />
.局部变量 EXIT, 整数型<br />
.局部变量 返回值, 文本型<br />
.局部变量 临时, 文本型<br />
.局部变量 参数, 整数型, , "1"<br />
.局部变量 进程ID, 整数型<br />
<br />
.如果真 (命令行文本 ＝ “”)<br />
    返回 (0)<br />
.如果真结束<br />
<br />
SECURITY_ATTRIBUTES.nLength ＝ 12<br />
SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0<br />
SECURITY_ATTRIBUTES.bInheritHandle ＝ 1<br />
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个CMD匿名管道<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 />
    进程ID=_创建新进程_短整数 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br />
.否则<br />
    进程ID=_创建新进程_短整数 (0, “cmd.exe /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br />
.如果结束<br />
<br />
_关闭对象 (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口<br />
.判断循环首 (len ≠ -1)  ' 制造一个无限循环<br />
    PeekNamedPipe (hRead, 0, 0, 0, len, 0)  ' 查看管道中是否有数据<br />
    .如果 (len ≠ 0)<br />
        txt ＝ 取空白字节集 (1024)<br />
        _读出文件中数据 (hRead, txt, 1023, len, 0)  ' 从管道中读取数据<br />
        临时 ＝ 取字节集数据 (txt, #文本型, )<br />
        .如果真 (是否为空 (即时回显) ＝ 假)<br />
            参数 [1] ＝ _取指针_文本型 (临时, 临时, 0)<br />
            .如果真 (_动态调用子程序 (#动态调用代码, 即时回显, 参数, 1, 假))<br />
                ' ====图片字节集： #动态调用代码 ==== API动态调用子程序<br />
                ' *** 缩略程序块 ***<br />
                ' 动态调用代码 =  {85,139,236,86,139,117,16,141,78,255,133,201,124,21,139,69,12,141,4,136,65,139,16,137,85,16,255,117,16,131,232,4,73,117,242,255,85,8,137,69,12,139,69,20,133,192,116,13,141,4,181,0,0,0,0,137,69,16,3,101,16,139,69,12,94,93,194,16,0}<br />
                ' 【汇编码】：<br />
<br />
                ' push ebp<br />
                ' mov ebp, esp<br />
                ' push esi<br />
                ' mov esi, dword ptr [ebp+10h]<br />
                ' lea ecx, dword ptr [esi-01h]<br />
                ' test ecx, ecx<br />
                ' jl Label1<br />
                ' mov eax, dword ptr [ebp+0Ch]<br />
                ' lea eax, dword ptr [eax+ecx*4]<br />
                ' inc ecx<br />
                ' Label2:<br />
                ' mov edx, dword ptr [eax]<br />
                ' mov dword ptr [ebp+10h], edx<br />
                ' push dword ptr [ebp+10h]<br />
                ' sub eax, 04h<br />
                ' dec ecx<br />
                ' jne Label2<br />
                ' Label1:<br />
                ' call dword ptr [ebp+08h]<br />
                ' mov dword ptr [ebp+0Ch], eax<br />
                ' mov eax, dword ptr [ebp+14h]<br />
                ' test eax, eax<br />
                ' je Label3<br />
                ' lea eax, dword ptr [00000000h+esi*4]<br />
                ' mov dword ptr [ebp+10h], eax<br />
                ' add esp, dword ptr [ebp+10h]<br />
                ' Label3:<br />
                ' mov eax, dword ptr [ebp+0Ch]<br />
                ' pop esi<br />
                ' pop ebp<br />
                ' retn 0010h<br />
<br />
                _关闭对象 (hRead)<br />
                跳出循环 ()<br />
            .如果真结束<br />
<br />
        .如果真结束<br />
        返回值 ＝ 返回值 ＋ 临时<br />
    .否则<br />
        _取中断进程退出代码 (PROCESS_INFORMATION.进程句柄, EXIT)  ' 查看指定进程是否已结束<br />
        .如果真 (EXIT ≠ #STILL_ACTIVE)  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！<br />
            _关闭对象 (hRead)  ' 关闭管道<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .如果结束<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
返回 (进程ID)

全部的代码就这么多了

千年 · 发表于 5 小时前

这种要不要？？、

向月亮道晚安 · 发表于 4 小时前

千年发表于 2024-10-22 14:22
这种要不要？？、

我想要的是取进程ID

千年 · 发表于 4 小时前

向月亮道晚安发表于 2024-10-22 14:29
我想要的是取进程ID

本来就是创建一个cmd.exe进程，再从进程里取出

		自动登录	找回密码
密码			注册

[易语言] 取DOS返回值，返回进程ID

点评