千年 发表于 2024-10-22 14:38
本来就是创建一个cmd.exe进程，再从进程里取出

大佬发我看看？

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

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

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

我想要的是取进程ID

这种要不要？？、

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)

全部的代码就这么多了

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

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

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

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

就改了

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

这里

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

我的取DOS3就是你的这个

向月亮道晚安 发表于 2024-10-22 13:24
返回的都是1，而且命令返回也只有一行了

放完整源码看看