檢測端口是否被占用的代碼
|
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, “提示”).判斷結束 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
