易语言检测端口是否被占用的代码

今天小编就为大家分享一篇关于易语言检测端口是否被占用的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

检测端口是否被占用的代码

				?

									.版本 2

									.程序集 窗口程序集_启动窗口

									.子程序 检测端口, 整数型, , 如果被占用返回进程PID

									.参数 端口, 整数型, 可空

									.参数 信息, 文本型, 参考 可空

									.局部变量 I, 整数型

									.局部变量 PID, 整数型

									写到文件 (“Get.bat”, 到字节集 (“netstat -aon|findstr ” ＋ #引号 ＋ 到文本 (端口) ＋ #引号 ＋ “ >>Bin”))

									.如果真 (运行 (“Get.bat”, 真, 1))

									  删除文件 (“Get.bat”)

									  信息 ＝ 到文本 (读入文件 (“Bin”))

									  删除文件 (“Bin”)

									  .如果真 (寻找文本 (信息, “:” ＋ 到文本 (端口), , 假) ≠ -1)

									    I ＝ 倒找文本 (信息, “ ”, , 假)

									    PID ＝ 到整数 (取文本右边 (信息, 取文本长度 (信息) － I))

									  .如果真结束

									.如果真结束

									返回 (PID)

									.子程序 _检测按钮_被单击

									.局部变量 PID, 整数型

									PID ＝ 检测端口 (到整数 (端口编辑框.内容))

									.判断开始 (PID ≠ 0)

									  信息框 (“当前端口已被使用，进程PID为 ” ＋ 到文本 (PID), 0, “提示”)

									.默认

									  信息框 (“当前端口未使用”, 0, “提示”)

									.判断结束