检测端口是否被占用的代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
.版本 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, “提示”).判断结束 |
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接
