.版本 2 .程序集 窗口程序集1 .程序集变量 SECURITY_ATTRIBUTES, SECURITY_ATTRIBUTES .程序集变量 STARTUPINFO, STARTUPINFO .程序集变量 PROCESS_INFORMATION, PROCESS_INFORMATION .程序集变量 hWrite, 整数型 .程序集变量 hRead, 整数型 .程序集变量 txt, 字节集 .程序集变量 len, 整数型 .程序集变量 tmp, 整数型 .子程序 _按钮1_被单击 SECURITY_ATTRIBUTES.nLength ＝ 12 SECURITY_ATTRIBUTES.lpSecurityDescriptor ＝ 0 SECURITY_ATTRIBUTES.bInheritHandle ＝ 1 tmp ＝ CreatePipe (hRead, hWrite, SECURITY_ATTRIBUTES, 0) STARTUPINFO.cb ＝ 68 GetStartupInfo (STARTUPINFO) STARTUPINFO.dwFlags ＝ 位或 (#STARTF_USESHOWWINDOW, #STARTF_USESTDHANDLES) STARTUPINFO.wShowWindow ＝ #SW_HIDE STARTUPINFO.hStdOutput ＝ hWrite STARTUPINFO.hStdError ＝ hWrite .判断开始 (选择框1.选中 ＝ 真) CreateProcess (0, “ping ” ＋ 编辑框2.内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) .默认 CreateProcess (0, 编辑框2.内容, 0, 0, 真, 0, 0, 0, STARTUPINFO, PROCESS_INFORMATION) .判断结束 tmp ＝ CloseHandle (hWrite) .循环判断首 () txt ＝ 取空白字节集 (4096) tmp ＝ ReadFile (hRead, txt, 4095, len, 0) 编辑框1.加入文本 (取字节集数据 (txt, #文本型)) 处理事件 () .循环判断尾 (tmp ≠ 0)