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

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

.版本 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, “提示”)

.判断结束

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

展开阅读全文

擅长工具开发、爬虫采集技术、大数据统计处理！
座右铭：皇天不负有心人。