| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取DOS返回文本1 | 文本型 | 取出一个dos命令的返回信息。可设置即时回显。注意:该命令会阻塞,[返回值]一直到cmd中的内容执行完毕后才会返回。[取自超级模块] | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 命令行文本 | 文本型 | 欲执行的命令行文本 | 即时回显 | 子程序指针 | DOS即时回显信息回调函数 回调DOS函数(回显信息) 返回逻辑值,真:停止,假:继续 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| SECURITY_ATTRIBUTES | SECURITY_ATTRIBUTES | |||||
| STARTUPINFO | STARTUPINFO_短整数 | |||||
| PROCESS_INFORMATION | _进程结构 | |||||
| txt | 字节集 | |||||
| len | 整数型 | |||||
| hWrite | 整数型 | |||||
| hRead | 整数型 | |||||
| EXIT | 整数型 | |||||
| 返回值 | 文本型 | |||||
| 临时 | 文本型 | |||||
| 参数 | 整数型 | 1 | ||||
如果真 (命令行文本 ＝ “”)
返回 (“”)
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)
_创建新进程_短整数 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口
_创建新进程_短整数 (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=
进程ID=
进程ID=
进程ID=
