易语言ping命令源码

.版本 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)

@1182410163