IFIX上部计算机网络测试屏幕（上计算机IP地址）

ifix主机计算机添加IP测试

影响

它将使屏幕成真

实现脚本

Optional explicit private declaration function getexitcodeprocess lib "kernel32" (_ byval hprocess on long, _ lpexitcode on long) os long private declare closehandle lib "kernel32" (_ byval hobby) and private private declare function openprocess lib "( _ byval dwdesiredAccess long, _ byval binherithandle on Long，_byval dwprocessid on Long）const process_query_information =＆h400const still_alive =＆h103private sub text2_click（） /c ping“＆” 192.168.0.135“＆“ /ipaac .txt”，vbhide）dim hproc at long hproc = openproc = openproc = openprocs（process_query_information，0，pid）dim exitcode，dim exitcode，dim dim exitcode，dom call get get get getexitcodeprocess（hhproc，exitcode）doevents doevents doop loop loop loop loop loop loop loop loop loop loop loop loop loop当exitCode = still_alive text3.caption =““ open” c：/ipaac.txt“＃1 dim strline作为字符串为字符串为eof（1）行输入＃1，strline text3.caption = text3.caption＆strline＆strline＆vbNewline＆vbnewline loop loop loop关闭＃1错误简历下一个杀死“ c：/ipaac.txt” on错误goto 0end sub”