命令 系统_取DOS执行结果 与 窗口_强制显示 没有修改的疏忽

乐乐大人

7.1模块使用时候会抛出
窗口_强制显示 不能将整数型转换为空白型
系统_取DOS执行结果不能将“精易_进程结构”数据转换到“”数据

修复方法
窗口_强制显示
      在模块源码中 给窗口_强制显示方法的返回值加上整数型

  

子程序名	返回值类型	公开	备 注
窗口_强制显示	整数型		对窗口进行置顶、激活等操作
参数名	类 型	参考	可空	数组	备 注
句柄	整数型				目标窗口句柄
总在最前	逻辑型				默认为假:取消总在最前  真:总在最前

返回 (SetWindowPos (句柄, 选择 (总在最前, #HWND_TOPMOST, #HWND_NOTOPMOST ), 0, 0, 0, 0, 位或 ( #SWP_NOMOVE, #SWP_NOSIZE )))

.版本 2<br /> <br /> .子程序 窗口_强制显示, 整数型, 公开, 对窗口进行置顶、激活等操作<br /> .参数 句柄, 整数型, , 目标窗口句柄<br /> .参数 总在最前, 逻辑型, 可空, 默认为假:取消总在最前  真:总在最前<br /> <br /> 返回 (SetWindowPos (句柄, 选择 (总在最前, #HWND_TOPMOST, #HWND_NOTOPMOST), 0, 0, 0, 0, 位或 (#SWP_NOMOVE, #SWP_NOSIZE)))

系统_取DOS执行结果
      在模块源码中 将系统_取DOS执行结果的变量中的精易_进程结构改为PROCESS_INFORMATION 其变量名依然用PROCESS_INFORMATION
      将下方的进程句柄中文改为hProcess
      将下方的线程句柄中文改为hThread

  

子程序名	返回值类型	公开	备 注
系统_取DOS执行结果	文本型		注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回.
参数名	类 型	参考	可空	数组	备 注
命令行文本	文本型

变量名	类 型	静态	数组	备 注
SECURITY_ATTRIBUTES	SECURITY_ATTRIBUTES
STARTUPINFO	STARTUPINFO_短整数
PROCESS_INFORMATION	PROCESS_INFORMATION
hWrite	整数型
hRead	整数型
txt	字节集
Length	整数型
ExitCode	整数型
retext	文本型

SECURITY_ATTRIBUTES.nLength ＝ 12
SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0
SECURITY_ATTRIBUTES.bInheritHandle ＝ 真
CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个匿名管道
STARTUPINFO.cb ＝ 68
STARTUPINFO.dwFlags ＝ 位或 ( #STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES )
STARTUPINFO.wShowWindow ＝ #SW_HIDE
STARTUPINFO.hStdOutput ＝ hWrite
STARTUPINFO.hStdError ＝ hWrite
如果 (取操作系统类别 () ≤ 2)
CreateProcess_短整数2 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口
CreateProcess_短整数2 (0, “cmd.exe /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口

CloseHandle (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口
判断循环首 (Length ≠ -1)  ' 制造一个无限循环
PeekNamedPipe (hRead, 0, 0, 0, Length, 0)  ' 查看管道中是否有数据
如果 (Length ≠ 0)
txt ＝ 取空白字节集 (Length)
ReadFile (hRead, txt, Length, Length, 0)  ' 从管道中读取数据
retext ＝ retext ＋ 取字节集数据 (txt, #文本型 )
GetExitCodeProcess (PROCESS_INFORMATION.hProcess, ExitCode)  ' 查看指定进程是否已结束
如果真 (ExitCode ≠ #STILL_ACTIVE )  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！
CloseHandle (hRead)  ' 关闭管道
跳出循环 ()

系统_处理事件 ()
程序_延时 (1)
判断循环尾 ()
CloseHandle (PROCESS_INFORMATION.hProcess)
CloseHandle (PROCESS_INFORMATION.hThread)
返回 (retext)

.版本 2<br /> <br /> .子程序 系统_取DOS执行结果, 文本型, 公开, 注意:该命令会阻塞,一直到cmd中的内容执行完毕后才会返回.<br /> .参数 命令行文本, 文本型<br /> .局部变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES<br /> .局部变量 STARTUPINFO, STARTUPINFO_短整数<br /> .局部变量 PROCESS_INFORMATION, PROCESS_INFORMATION<br /> .局部变量 hWrite, 整数型<br /> .局部变量 hRead, 整数型<br /> .局部变量 txt, 字节集<br /> .局部变量 Length, 整数型<br /> .局部变量 ExitCode, 整数型<br /> .局部变量 retext, 文本型<br /> <br /> SECURITY_ATTRIBUTES.nLength ＝ 12<br /> SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0<br /> SECURITY_ATTRIBUTES.bInheritHandle ＝ 真<br /> CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0)  ' 创建一个匿名管道<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 />     CreateProcess_短整数2 (0, “command.com /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br /> .否则<br />     CreateProcess_短整数2 (0, “cmd.exe /c ” ＋ 命令行文本, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION)  ' 创建一个新进程，并且设置读写管道，创建成功后，进程会自动再创建一个写管道端口<br /> .如果结束<br /> <br /> CloseHandle (hWrite)  ' 因为我们开始已经创建了一个写管道端口，现在进程创键时又自动创键了一个写管道端口，所以应关闭多余的管道写端口<br /> <br /> .判断循环首 (Length ≠ -1)  ' 制造一个无限循环<br />     PeekNamedPipe (hRead, 0, 0, 0, Length, 0)  ' 查看管道中是否有数据<br />     .如果 (Length ≠ 0)<br />         txt ＝ 取空白字节集 (Length)<br />         ReadFile (hRead, txt, Length, Length, 0)  ' 从管道中读取数据<br />         retext ＝ retext ＋ 取字节集数据 (txt, #文本型)<br />     .否则<br />         GetExitCodeProcess (PROCESS_INFORMATION.hProcess, ExitCode)  ' 查看指定进程是否已结束<br />         .如果真 (ExitCode ≠ #STILL_ACTIVE)  ' 因为会有程序退出来了，但管道中还有数据的情况，所以必须在管道中没有数据的情况下判断程序是否已结束，这时才能中止循环！<br />             CloseHandle (hRead)  ' 关闭管道<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br />     系统_处理事件 ()<br />     程序_延时 (1)<br /> .判断循环尾 ()<br /> CloseHandle (PROCESS_INFORMATION.hProcess)<br /> CloseHandle (PROCESS_INFORMATION.hThread)<br /> 返回 (retext)